VFP实验课综合题目.doc

1.打开考生文件夹中的文件tk01.scx，该表单上有两个标签Label1、Label2和一个命令按钮Command1（命令按钮标题为“求和”），表单实现的功能是单击命令按钮后可计算从1到100的连续自然数的和，并用标签label1显示结果。 请把command1的click过程中的程序补充完整以实现上述功能。 s=1 for i=1 to 100 step 1 s=s+i next thisform.label1.caption=str(s) 2.打开考生文件夹中的文件tk02.scx，该表单上有两个标签Label1、Label2和一个命令按钮Command1（命令按钮标题为“求和”），表单实现的功能是单击命令按钮后可计算从1到100的之间的奇数的和，并用标签label1显示计算结果。 请将command1_click()过程中的程序补充完整，实现上述功能。 s=1 for i=1 to 100 step 2 s=s+i next thisform.label1.caption=str(s) 3.打开考生文件夹中的文件tk03.scx，该表单上有两个标签Label1、Label2和一个命令按钮Command1（命令按钮标题为“求和”），表单实现的功能是单击命令按钮后可计算从1到100的之间的偶数的和，并用标签label1显示计算结果。 请将command1_click()过程中的程序补充完整，实现上述功能。 s=1 for i=2 to 100 step 2 s=s+i next thisform.label1.caption=str(s) 4.本题素材是考生文件夹中的表单tk04.scx。该表单的功能是：在文本框中输入一个整数，单击命令按钮“判断”后，若该整数是偶数，则label2显示“该数是一个偶数”,若为奇数，则显示“该数是一个奇数”。 请将command1_click()中的程序补充完整以实现上述功能。下图为运行效果，输入8，则label2显示该数是一个偶数。 将Command1.click中程序补充完整： if val(thisform.text1.value)%2=0 thisform.Label2.Caption = 偶数 else thisform.Label2.Caption = 奇数 endif  5.打开考生文件夹中的文件tk05.scx，该表单上有一个标签Label1和一个命令按钮Command1（命令按钮标题为“计算”），表单实现的功能是求1!+2!+3!+...+10!，结果在标签label1中显示。 请在command1的click过程中编写程序以实现上述功能。 sum=0 s=1 for i=1 to 10 s=s*i sum=sum+s next thisform.label1.caption=str(sum) 6.表单tk06.scx实现的功能是系统时钟，标签label2中每秒显示一次当前时间；单击设置字号（command1）可将标签label2中的文字大小设为16号。 完成以下操作实现该功能： （1）设置计时器Timer1的时间间隔属性； 1000 （2）在command1的click过程中编写程序使得标签label2的字号为16； Thisform.label2.fontsize=16 （3）在Timer1的Timer过程中编写程序使得标签label2中显示当前系统时间。 程序运行效果图如下： Thisform.label2.caption=time() 7.本题素材为表单tk07.scx，该表单实现的功能是系统时钟，即在文本框中每秒显示一次当前时间；单击设置背景（command1）可设置文本框的背景颜色。 完成以下操作实现该功能： （1）设置计时器Timer1的时间间隔属性； 1000 （2）在command1的click过程中编写程序使得文本框的背景颜色设为rgb（255,96,128）； Thisform.text1.backcolor=rgb(255,96,128) （3）编写Timer1的Timer过程代码使得文本框中显示当前系统时间。 Thisform. text1.value=time() 程序运行效果图如下： 8.本题素材为考生文件夹中的表单文件tk08.scx。该表单包含1个标签Label1，3个命令按钮command1“暂停”、command2“继续”和command3“退出”。 该表单的功能是：Label1用来显示系统的当前时间；单击命令按钮command1，时钟暂停走动；thisform.timer1.enabled=.F 单击命令按钮command2，时钟继续显示系统的当前时间； thisform.timer1.enabled=.T. 单击命令按钮comm