vfp综合应用题及解析.docVIP

【1】 　　打开考生文件夹中的文件tk01.scx，该表单上有两个标签Label1、Label2和一个命令按钮Command1（命令按钮标题为“求和”），表单实现的功能是单击命令按钮后可计算从1到100的连续自然数的和，并用标签label1显示结果。 　　请把command1的click过程中的程序补充完整以实现上述功能。 参考答案及分析： 在Command1的单击事件（click事件）中写上如下程序段： s = 0 for i=1 to 100 s = s+i endfor thisform.Label1.Caption = Alltrim(Str(s)) 【2】 　　打开考生文件夹中的文件tk02.scx，该表单上有两个标签Label1、Label2和一个命令按钮Command1（命令按钮标题为“求和”），表单实现的功能是单击命令按钮后可计算从1到100的之间的奇数的和，并用标签label1显示计算结果。 　　请将command1_click()过程中的程序补充完整，实现上述功能。 参考答案及分析： 在Command1的单击事件（click事件）中写上如下程序段： s = 0 for i=1 to 100 step 2 s = s+i endfor thisform.Label1.Caption = Alltrim(Str(s)) 【3】 　　打开考生文件夹中的文件tk03.scx，该表单上有两个标签Label1、Label2和一个命令按钮Command1（命令按钮标题为“求和”），表单实现的功能是单击命令按钮后可计算从1到100的之间的偶数的和，并用标签label1显示计算结果。 　　请将command1_click()过程中的程序补充完整，实现上述功能。 参考答案及分析： 在Command1的单击事件（click事件）中写上如下程序段： s = 0 for i=2 to 100 step 2 s = s+i endfor thisform.Label1.Caption = Alltrim(Str(s)) 【4】 本题素材是考生文件夹中的表单tk04.scx。该表单的功能是：在文本框中输入一个整数，单击命令按钮“判断”后，若该整数是偶数，则label2显示“该数是一个偶数”，若为奇数，则显示“该数是一个奇数”。 　　请将command1_click()中的程序补充完整以实现上述功能。下图为运行效果，输入8，则label2显示该数是一个偶数。 参考答案及分析： 将Command1.click中程序补充完整： n=thisform.text1.value if x%2=0 then 如果x除以2的余数为0，说明它是一个偶数，否则为奇数。 thisform.Label2.Caption = 偶数 else thisform.Label2.Caption = 奇数 endif 【5】 打开考生文件夹中的文件tk05.scx，该表单上有一个标签Label1和一个命令按钮Command1（命令按钮标题为“计算”），表单实现的功能是求1!+2!+3!+...+10!，结果在标签label1中显示。 请在command1的click过程中编写程序以实现上述功能。 参考答案及分析： 在Command1的Click事件中写如下程序： s=0 t=1 FOR i=1 to 10 t=t*i s=s+t ENDFOR thisform.label1.Caption=STR(s) 【6】 表单tk06.scx实现的功能是系统时钟，标签label2中每秒显示一次当前时间；单击设置字号（command1）可将标签label2中的文字大小设为16号。 完成以下操作实现该功能： （1）设置计时器Timer1的时间间隔属性； （2）在command1的click过程中编写程序使得标签label2的字号为16； （3）在Timer1的Timer过程中编写程序使得标签label2中显示当前系统时间。 程序运行效果图如下： 参考答案及分析： 在Timer1的Timer事件中： thisform.Label2.Caption = Time() 在Command1的click事件中： thisform.Label2.FontSize = 16 【7】 本题素材为表单tk07.scx， 该表单实现的功能是系统时钟，即在文本框中每秒显示一次当前时间；单击设置背景（command1）可设置文本框的背景颜色为红色(255,0,0)。 参考答案及分析： 在Timer1的Timer事件中： Thisform.Text1.Value = Time() 在Command