vfp综合应用题及解析.doc
文本预览下载声明
【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
显示全部