欢迎来到天天文库
浏览记录
ID:37673810
大小:506.50 KB
页数:15页
时间:2019-05-28
《VFP实验课综合题目及答案》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、1.打开考生文件夹中的文件tk01.scx,该表单上有两个标签Label1、Label2和一个命令按钮Command1(命令按钮标题为“求和”),表单实现的功能是单击命令按钮后可计算从1到100的连续自然数的和,并用标签label1显示结果。请把command1的click过程中的程序补充完整以实现上述功能。s=1fori=1to100step1s=s+inextthisform.label1.caption=str(s)2.打开考生文件夹中的文件tk02.scx,该表单上有两个标签Label1、Label2和一个命令按钮Command1(命令按钮标题为“求和”),表
2、单实现的功能是单击命令按钮后可计算从1到100的之间的奇数的和,并用标签label1显示计算结果。请将command1_click()过程中的程序补充完整,实现上述功能。s=1fori=1to100step2s=s+inextthisform.label1.caption=str(s)3.打开考生文件夹中的文件tk03.scx,该表单上有两个标签Label1、Label2和一个命令按钮Command1(命令按钮标题为“求和”),表单实现的功能是单击命令按钮后可计算从1到100的之间的偶数的和,并用标签label1显示计算结果。请将command1_click()过程中
3、的程序补充完整,实现上述功能。s=1fori=2to100step2s=s+inextthisform.label1.caption=str(s)4.本题素材是考生文件夹中的表单tk04.scx。该表单的功能是:在文本框中输入一个整数,单击命令按钮“判断”后,若该整数是偶数,则label2显示“该数是一个偶数”,若为奇数,则显示“该数是一个奇数”。请将command1_click()中的程序补充完整以实现上述功能。下图为运行效果,输入8,则label2显示该数是一个偶数。将Command1.click中程序补充完整:ifval(thisform.text1.value
4、)%2=0thisform.Label2.Caption="偶数"elsethisform.Label2.Caption="奇数"endif5.打开考生文件夹中的文件tk05.scx,该表单上有一个标签Label1和一个命令按钮Command1(命令按钮标题为“计算”),表单实现的功能是求1!+2!+3!+...+10!,结果在标签label1中显示。请在command1的click过程中编写程序以实现上述功能。sum=0s=1fori=1to10s=s*isum=sum+snextthisform.label1.caption=str(sum)6.表单tk06.sc
5、x实现的功能是系统时钟,标签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,该表单实现的功能是
6、系统时钟,即在文本框中每秒显示一次当前时间;单击设置背景(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
7、个标签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()过程中
此文档下载收益归作者所有