Thisform.refresh
该表单程序可以实现以下功能:单击command1文本框中可显示第一条记录、单击command2可显示上一 条记录、单击command3可显示下一条、单击command4可显示最后一条记录。完成下列操作以实现上述功能: (1)设置各文本框的相关属性,使得文本框为只读;(选中文本框readonly) 选中文本框readonly (2)分别在command1(第一条)、command2(上一条)、command3(下一条)、command4(最后一条) 的click过程中编写程序实现上述功能。
【40】 本题素材为考生文件夹下的tk25.scx,表单包括1个标签、1个命令按钮和1个计时器控件。表单运 行效果如下图所示:
叁
在 interval 中
设计为 500 if thisform.label1.top> thisform.height thisform.label1.top=0 else thisform.label1.top= thisform.label1.top+5 endif
该表单的功能是文字从上向下移动,要求:标签Label1每隔0.5秒自动从上向下移动5个像素单位,移到窗 口下边界时标签回到窗口上边重新向下移动;单击命令按钮“退出”可释放该表单。 【40】 本题素材为考生文件夹中的表单文件tk21.scx。 该表单实现的功能是:单击命令按钮command1(设置背景)可以设置label1的背景色为蓝色,单击命令 按钮command2(放大字体)可使得label1的字号增加2号,例如label1的字号原为12号,单击放大字体后 label1的字号为14号。 请分别在按钮command1和command2的click过程中编写代码以便实现上述功能。 【40】 本题素材为考生文件夹下的tk22.scx,表单的功能是将输入的百分制成绩转换成五级制(优秀、良 好、中等、及格、不及格)输出。
要求:表单运行后,在文本框Text1中输入一个百分制成绩后,单击“判定等级”按钮,根据输入的成绩转换 成相应的级别,在标签Label2处显示;单击“清空”按钮后,会自动清除Text1和label2中的内容。请为这2 个命令按钮的Click事件编写对应的程序
代码实现上述功能。 Year(出生日期) = 1986 或 year >={^1986-01-01}
Year <= {^1986-12-31} Replace 助教 with 教师编号=”0002” or 教师编号=”0003”
肆
x = Val(thisform.text1.Value) do case case x>90 and x<100 "该学生的成绩 优秀" 该学生的成绩: thisform.Label2.Caption = "该学生的成绩:优秀" case x>80 and x<90 "该学生的成绩 良好" 该学生的成绩: thisform.Label2.Caption = "该学生的成绩:良好" case x>70 and x<80 thisform.Label2.Caption "该学生的成绩 中等" 该学生的成绩: thisform.Label2.Caption = "该学生的成绩:中等" case x>60 and x<70 "该学生的成绩 及格" 该学生的成绩: thisform.Label2.Caption = "该学生的成绩:及格" otherwise "该学生的成绩 不及格" 该学生的成绩: thisform.Label2.Caption = "该学生的成绩:不及格" endcase 打开考生文件夹中的文件tk26.scx 该表单上有两个标签Label1 tk26.scx, Label1、 【40】 】 打开考生文件夹中的文件tk26.scx,该表单上有两个标签Label1、 Label2和一个命令按钮Command1(命令按钮标题为“求和 ),表单实现的功能 和一个命令按钮Command1 求和”), Label2和一个命令按钮Command1(命令按钮标题为 求和 ),表单实现的功能 是单击命令按钮后可计算1 100以内 的倍数的和,并用标签label1显示结果。 以内3 label1显示结果 是单击命令按钮后可计算1到100以内3的倍数的和,并用标签label1显示结果。 请把command1 click过程中的程序补充完整以实现上述功能 command1的 过程中的程序补充完整以实现上述功能。 请把command1的click过程中的程序补充完整以实现上述功能。 在Command1的Click事件过程中编写如下程序: Command1的Click事件过程中编写如下程序: 事件过程中编写如下程序 S=0 for i=3 to 100 step 3 s=s+i endfor thisform.label1.caption=alltrim(str(s)) 或: