【40】 数".
本题素材是考生文件夹中的表单tk04.scx.该表单的功能是:在文本框中输入一个整数,单击
命令按钮"判断"后,若该整数是偶数,则label2显示"该数是一个偶数",若为奇数,则显示"该数是一个奇 请将command1_click()中的程序补充完整以实现上述功能.下图为运行效果,输入8,则label2显示该 数是一个偶数.
Val(thisform text1.Value) form. x = Val(thisform.text1.Value) &;&;如果 除以2的余数为0 如果x if x%2=0 then &;&;如果x除以2的余数为0, 说明它是一个偶数,否则为奇数. 说明它是一个偶数,否则为奇数. "偶数 偶数" thisform.Label2.Caption = "偶数" else "奇数 奇数" thisform.Label2.Caption = "奇数" endif 【39】 本题素材文件是考生文件夹中的sz11.scx,完成以下操作: (1)设置label1的文字颜色为红色(255,0,0),背景透明;(backstyle) (3)设置属性使得Command2不可见(即运行时不显示); 1!+2!+3!+4!+5!+6!+7!+8!+9!+10! S=0 N=1 For n=1 to 10 M=1 For I=1 to n M=m*I 【40】 本题素材为考生文件夹中的表单文件tk13.scx,表单运行效果图如下所示: Endfor
Do case Case this.value=1 Thisform.text.fontname="宋体" Case this.value=1 Thisform.text.fontname="幼圆" Case this.value=1 Thisform.text.fontname="隶书" endcase
该表单实现的功能是设置文本框中文字的字体,要求选中宋体则文本框的字体为宋体,选中幼圆则文本框 的字体为幼圆,选中隶书则文本框的字体为隶书.(文本框中的文字任意输入.)
或分别在Option1,Option2和Option3的Click事件写如下程序: 或分别在Option1,Option2和Option3的Click事件写如下程序: Option1 事件写如下程序
壹
RGB(255,0,0) thisform.Text1.BackColor = RGB(255,0,0) thisform.Text1.BackColor = RGB(0,255,0) thisform.Text1.BackColor = RGB(0,0,255)
【40】 本题素材为考生文件夹下的tk23.scx,表单包括1个标签,1个命令按钮和1个计时器控件.表单运 行效果如下图所示:该表单运行时先以9号字体显示"预祝同学们顺利通过考试!"字样,然后每隔一秒将字 号放大一号,当达到30号字体时,又恢复成最初状态,即9号字体;单击命令按钮"退出"可释放该表单.
Thisform.release
计时器
thisform.label1.fontsize=thisform.label1 在计时器中写) .fontsize+1 (在计时器中写) if thisform.label1.fontsize>=30 thisform.label1.fontsize=9 (2)添加一个标签控件,设置其标题为"2006年6月",可自动调整标签控件的大小;(autosize) endif (3)在该表单上添加一个命令按钮,设置其名称为"cmdok",不响应事件(即运行时按钮显示为灰色的). 该表单运行效果如下图所示:(thisformmand1.enabled=.f.) 【39】 本题素材为考生文件夹下的sz07.scx文件,请完成以下操作:
【40】 本题素材为考生文件夹下的tk20.scx,该表单的功能是统计数据表"tk20_作者.dbf"中相应职称的 人数.表单运行效果如下图所示:
tk20_作者 作者.dbf sel
ect * from tk20_作者.dbf 职称= 教授 教授" Count for 职称="教授 to a Thisform.text1.value=str(a) 职称= 副教授 副教授" Count for 职称="副教授 to b Thisform.text2.value=str(b) Thisform.release 具体要求:
贰
(1)单击"统计"按钮,统计出作者表中教授和副教授的人数,并将统计结果输出到相应的文本框中; (2)单击命令按钮"退出"可释放该表单. 【40】 本题素材为考生文件夹中的表单文件tk17.scx,表单界面如下图所示,数据环境中已经添加了表 tk17_xs.dbf.
Go 1 Thisform.refresh Go 1 Thisform.refresh
Go –1 Thisform.refresh
Go bottom Thisform.refresh
该表单程序可以实现以下功能:单击command1文本框中可显示第一条记录,单击command2可显示上一 条记录,单击command3可显示下一条,单击command4可显示最后一条记录.完成下