VFP实验课综合题目及答案讲解
- 格式:doc
- 大小:506.50 KB
- 文档页数:15
标题为“求和”),表单实现的功能是单击命令按钮后可计算从1到100的连续自然数的和,并用标签label1显示结果。请把command1的click过程中的程序补充完整以实现上述功能。
s=1
for i=1 to 100 step 1
s=s+i
next
bel1.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
bel1.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
bel1.caption=str(s)
4.本题素材是考生文件夹中的表单tk04.scx。该表单的功能是:在文本框中输入一个整数,单击命令按钮“判断”后,若该整数是偶数,则label2显示“该数是一个偶数”,若为奇数,则显示“该数是一个奇数”。
请将command1_click()中的程序补充完整以实现上述功能。下图为运行效果,输入8,则label2显示该数是一个偶数。
将Command1.click中程序补充完整: if val(thisform.text1.value)%2=0 bel2.Caption = "偶数" else
bel2.Caption = "奇数"
endif
算”),表单实现的功能是求1!+2!+3!+...+10!,结果在标签label1中显示。
请在command1的click过程中编写程序以实现上述功能。
sum=0
s=1
for i=1 to 10
s=s*i
sum=sum+s
next
bel1.caption=str(sum)
6.表单tk06.scx实现的功能是系统时钟,标签label2中每秒显示一次当前时间;单击设置字号(command1)可将标签label2中的文字大小设为16号。
完成以下操作实现该功能:
(1)设置计时器Timer1的时间间隔属性;
1000
(2)在command1的click过程中编写程序使得标签label2的字号为16;
bel2.fontsize=16
(3)在Timer1的Timer过程中编写程序使得标签label2中显示当前系统时间。
程序运行效果图如下:
bel2.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.
单击命令按钮command3,释放表单。
thisform.release
请分别在command1.Click()、command2.click()、command3.click()过程中编写代码实现上述功能。
9.表单tk09.scx实现的功能是设置文字的颜色,表单运行效果图如下:
编写程序实现以下功能:
单击命令按钮“设置文字颜色”时,设置标签的文字颜色为随机产生的颜色。
在Command1的Click事件中写如下程序:
r=INT(RAND()*256)
g=INT(RAND()*256)
b=INT(RAND()*256)
bel1.ForeColor=RGB(r,g,b)
&&说明,rand()函数的返回值是0~1之间的数。rand()乘以256再取整就能产生0~255之间的数。
11.本题素材为考生文件夹下的tk11.scx ,表单运行效果图如下所示:
表单的功能是字体字号设置,表单内有一个标签对象(Label1的标题为“南昌科技大学”),一个列表框(List1)用来设置Label1的字号大小,一个下拉列表框(combo1用来设置Label1的字体),表单功能如下:
在列表框List1的Click 事件中编写以下程序:
bel1.fontsize=VAL(thisform.list1.Value)
在组合框Combo1的Click 事件中编写以下程序:
bel1.fontname=bo1.Value
12.本题素材为考生文件夹下的tk12.scx ,表单运行效果图如下所示:
该表单上有一个标签对象和三个复选框,表单的功能是设置标签label1(标题为南昌科技大学)的字体样式,要求选中粗体则标签文字设为粗体,选中斜体则标签文字设为斜体,选中下划线则标签文字加上下划线。
Check1_click If this.value=1 then bel.fontbold=.T. Else bel.fontbold=.F. endif Check2_click If this.value=1 then bel.fontitalic=.T. Else
bel.fontitalic=.F.
endif
Check3_click
If this.value=1 then
bel.fontunderline=.T.
Else
bel.fontunderline=.F.
endif
编写程序实现上述功能。
13.本题素材为考生文件夹中的表单文件tk13.scx ,表单运行效果图如下所示: