实验命令.docx
- 文档编号:28178158
- 上传时间:2023-07-09
- 格式:DOCX
- 页数:16
- 大小:259.36KB
实验命令.docx
《实验命令.docx》由会员分享,可在线阅读,更多相关《实验命令.docx(16页珍藏版)》请在冰豆网上搜索。
实验命令
thisform.label1.forecolor=rgb(255,0,0)
thisform.label1.fontsize=thisform.label1.fontsize+2
thisform.release
thisform.label1.left=thisform.label1.left+5
thisform.timer1.enabled=.t.
replaceall公积金with基本工资*0.15
replaceall总价with单价*数量
replaceall单价with22.50
mand1.enabled=.f.
replace职称with"助教"for教师编号="0002"or教师编号="0003"
deletefor姓名="林一凡"
replace奖金with100for职称="副教授"
listfor"小"$姓名
deleteallfor性别=.T.
deleteallforyear(出生日期)<1960
setsysmenutodefault
clearevents
quit
insertblankbefore
【26】本题素材为考生文件夹下的tk22.scx,表单的功能是将输入的百分制成绩转换成五级制(优秀、良好、中等、及格、不及格)输出。
要求:
表单运行后,在文本框Text1中输入一个百分制成绩后,单击“判定等级”按钮,根据输入的成绩转换成相应的级别,在标签Label2处显示;单击“清空”按钮后,会自动清除Text1和label2中的内容。
请为这2个命令按钮的Click事件编写对应的程序代码实现上述功能。
本题的作答结果在考生文件夹中得分:
0.0分分
参考答案及分析:
在对象Command1的Click事件过程中编写以下程序:
(10分)
fs=thisform.text1.value
DOcase
CASEfs>=90
thisform.label2.Caption="优秀"
CASEfs>=80
thisform.label2.Caption="良好"
CASEfs>=70
thisform.label2.Caption="中"
CASEfs>=60
thisform.label2.Caption="及格"
OTHERWISE
thisform.label2.Caption="不及格"
ENDCASE
在对象Command2的Click事件过程中编写以下程序:
(5分)
&&本表单中已预先设定文本框text1的值为数值型
thisform.text1.Value=0
thisform.label2.Caption=""
【26】打开考生文件夹中的文件tk05.scx,该表单上有一个标签Label1和一个命令按钮Command1(命令按钮标题为“计算”),表单实现的功能是求1!
+2!
+3!
+...+10!
,结果在标签label1中显示。
请在command1的click过程中编写程序以实现上述功能。
本题的作答结果在考生文件夹中得分:
0.0分分
参考答案及分析:
在Command1的Click事件中写如下程序:
s=0
t=1
FORi=1to10
t=t*i
s=s+t
ENDFOR
thisform.label1.Caption=STR(s)
【26】本题素材为考生文件夹下的tk25.scx,表单包括1个标签、1个命令按钮和1个计时器控件。
表单运行效果如下图所示:
该表单的功能是文字从上向下移动,要求:
标签Label1每隔0.5秒自动从上向下移动5个像素单位,移到窗口下边界时标签回到窗口上边重新向下移动;单击命令按钮“退出”可释放该表单。
编写程序实现上述功能。
本题的作答结果在考生文件夹中得分:
0.0分分
参考答案及分析:
在属性窗口设置Timer1的Interval为500。
(2分)
在对象Timer1的Timer事件过程中编写如下程序:
(10分)
IFthisform.label1.Top thisform.label1.Top=thisform.label1.Top+5 ELSE thisform.label1.Top=-thisform.label1.Height ENDIF 在对象Command1的Click事件过程中编写如下程序: (3分) thisform.release 【26】表单tk09.scx实现的功能是设置文字的颜色,表单运行效果图如下: 编写程序实现以下功能: 单击命令按钮“设置文字颜色”时,设置标签的文字颜色为随机产生的颜色。 本题的作答结果在考生文件夹中得分: 0.0分分 参考答案及分析: 在Command1的Click事件中写如下程序: r=INT(RAND()*256) g=INT(RAND()*256) b=INT(RAND()*256) thisform.label1.ForeColor=RGB(r,g,b) &&说明,rand()函数的返回值是0~1之间的数。 rand()乘以256再取整就能产生0~255之间的数。 【26】本题素材是考生文件夹中的表单tk04.scx。 该表单的功能是: 在文本框中输入一个整数,单击命令按钮“判断”后,若该整数是偶数,则label2显示“该数是一个偶数”,若为奇数,则显示“该数是一个奇数”。 请将command1_click()中的程序补充完整以实现上述功能。 下图为运行效果,输入8,则label2显示该数是一个偶数。 本题的作答结果在考生文件夹中得分: 0.0分分 参考答案及分析: 将Command1.click中程序补充完整: n=thisform.text1.value ifx%2=0then&&如果x除以2的余数为0,说明它是一个偶数,否则为奇数。 thisform.Label2.Caption="偶数" else thisform.Label2.Caption="奇数" endif 【26】本题素材为考生文件夹中的表单文件tk13.scx,表单运行效果图如下所示: 该表单实现的功能是设置文本框中文字的字体,要求选中宋体则文本框的字体为宋体,选中幼圆则文本框的字体为幼圆,选中隶书则文本框的字体为隶书。 (文本框中的文字任意输入。 ) 编写程序实现上述功能。 (方法不限) 本题的作答结果在考生文件夹中得分: 0.0分分 参考答案及分析: 在OptionGroup1的Click事件中写下如下程序语句: docase casethis.value=1 thisform.Text1.fontname="宋体" casethis.value=2 thisform.Text1.fontname="幼圆" casethis.value=3 thisform.Text1.fontname="隶书" endcase 或分别在Option1、Option2和Option3的Click事件写如下程序: thisform.Text1.fontname="宋体" thisform.Text1.fontname="幼圆" thisform.Text1.fontname="隶书" 【26】本题素材为考生文件夹中的表单文件tk16.scx,数据环境中已经添加了表tk16_rc.dbf。 表单运行效果如下图所示: 该表单程序可以实现以下功能: 单击command1文本框中可显示第一条记录、单击command2可显示上一条记录、单击command3可显示下一条、单击command4可显示最后一条记录。 完成下列操作以实现上述功能: (1)设置文本框"txt职称"和"txt工资现状"的相关属性,使得文本框与表中相应字段绑定; (2)分别在command1(第一条)、command2(上一条)、command3(下一条)、command4(最后一条)的click过程中编写程序实现上述功能。 本题的作答结果在考生文件夹中得分: 0.0分分 参考答案及分析: (1)设置各文本框的ControlSource属性为它们各自对应的字段。 (2) 在Command1的Click事件中: gotop thisform.refresh 在Command2的Click事件中: ifnotbof()then skip-1 thisform.refresh endif 在Command3的Click事件中: ifnoteof()then skip thisform.refresh endif 在Command4的Click事件中: gobottom thisform.refresh 【26】 打开考生文件夹中的文件tk26.scx,该表单上有两个标签Label1、Label2和一个命令按钮Command1(命令按钮标题为“求和”),表单实现的功能是单击命令按钮后可计算1到100以内3的倍数的和,并用标签label1显示结果。 请把command1的click过程中的程序补充完整以实现上述功能。 本题的作答结果在考生文件夹中得分: 0.0分分 参考答案及分析: 在Command1的Click事件过程中编写如下程序: S=0 fori=3to100step3 s=s+i endfor thisform.label1.caption=alltrim(str(s)) 26】本题素材为考生文件夹下的tk11.scx,表单运行效果图如下所示: 表单的功能是字体字号设置,表单内有一个标签对象(Label1的标题为“南昌科技大学”),一个列表框(List1)用来设置Label1的字号大小,列表框中的项目已设好,一个下拉列表框(combo1用来设置Label1的字体),具体要求如下: (1)设置Combo1中可供选择的字体为: 黑体、宋体、楷体、华文新魏。 (设计方法不限) (2)在组合框Combo1中选择某种字体后,Label1的字体相应发生变化。 (3)在列表框list1中选择任意数字,Label1的字号相应发生变化。 编写程序实现上述功能。 本题的作答结果在考生文件夹中得分: 0.0分分 参考答案及分析: 在列表框List1的Click事件中编写以下程序: thisform.label1.fontsize=VAL(thisform.list1.Value) (注: 由于字号为数值型,列表框的值为字符型,所以用val函数进行类型转换。 ) 在组合框Combo1的Click事件中编写以下程序: thisform.label1.fontname=bo1.Value 【26】 打开考生文件夹中的文件tk02.scx,该表单上有两个标签Label1、Label2和一个命令按钮Command1(命令按钮标题为“求和”),表单实现的功能是单击命令按钮后可计算从1到100的之间的奇数的和,并用标签label1显示计算结果。 请将command1_click()过程中的程序补充完整,实现上述功能。 本题的作答结果在考生文件夹中得分: 0.0分分 参考答案及分析: 在Command1的单击事件(click事件)中写上如下程序段: s=0 fori=1to100step2 s=s+i endfor thisform.Label1.Caption=Alltrim(Str(s)) 【26】本题素材为考生文件夹中的表单文件tk08.scx。 该表单包含1个标签Label1,3个命令按钮command1“暂停”、command2“继续”和command3“退出”。 该表单的功能是: Label1用来显示系统的当前时间;单击命令按钮command1,时钟暂停走动;单击命令按钮command2,时钟继续显示系统的当前时间;单击命令按钮command3,释放表单。 请分别在command1.Click()、command2.click()、command3.click()过程中编写代码实现上述功能。 本题的作答结果在考生文件夹中得分: 0.0分分 参考答案及分析: 在Command1的Click事件中: thisform.Timer1.Enabled=.F. 在Command2的Click事件中: thisform.Timer1.Enabled=.T. 在Command3的Click事件中: thisform.Release 【26】本题素材为考生文件夹下的tk12.scx,表单运行效果图如下所示: 该表单上有一个标签对象和三个复选框,表单的功能是设置标签label1(标题为南昌科技大学)的字体样式,要求选中粗体则标签文字设为粗体,选中斜体则标签文字设为斜体,选中下划线则标签文字加上下划线。 编写程序实现上述功能。 本题的作答结果在考生文件夹中得分: 0.0分分 参考答案及分析: 在复选框Check1(粗体)的Click事件中编写以下程序: IFthis.Value=1 thisform.label1.FontBold=.T. ELSE thisform.label1.FontBold=.F. ENDIF 在复选框Check2(斜体)的Click事件中编写以下程序: IFthis.Value=1 thisform.label1.FontItalic=.T. ELSE thisform.label1.FontItalic=.F. ENDIF 在复选框Check3(下划线)的Click事件中编写以下程序: IFthis.Value=1 thisform.label1.FontUnderline=.T. ELSE thisform.label1.FontUnderline=.F. ENDIF 【26】本题素材为考生文件夹下的tk20.scx,该表单的功能是统计数据表“tk20_作者.dbf”中相应职称的人数。 表单运行效果如下图所示: 具体要求: (1)单击“统计”按钮,统计出作者表中教授和副教授的人数,并将统计结果输出到相应的文本框中; (2)单击命令按钮“退出”可释放该表单。 编写程序实现上述功能。 本题的作答结果在考生文件夹中得分: 0.0分分 参考答案及分析: 在统计按钮Command1的Click事件过程中编写如下程序: countfor职称="教授"tom countfor职称="副教授"ton thisform.text1.value=m thisform.text2.value=n (注: 由于文本框中开始没有任何数据,此时将数据型变量m的值赋给文本框text1,则text1自动变为数值型,所以不需要进行数据类型转换。 ) 在退出按钮Command2的Click事件过程中编写如下程序: thisform.release 【26】本题素材为表单tk07.scx, 该表单实现的功能是系统时钟,即在文本框中每秒显示一次当前时间;单击设置背景(command1)可设置文本框的背景颜色为红色(255,0,0)。 本题的作答结果在考生文件夹中得分: 0.0分分 参考答案及分析: 在Timer1的Timer事件中: Thisform.Text1.Value=Time() 在Command1的click事件中: Thisform.Text1.BackColor=RGB(255,0,0)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 实验 命令