VFP实验课综合题目及答案

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（命令按钮标题为“求和”），表单实现的功能是单击命令按钮后可计算从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()过程中的程序补充完整，实现上述功能。s=1fori=2to100step2s=s+inextthisform.label1.caption=str(s)4.本题素材是考生文件夹中的表单tk04.scx。该表单的功能是：在文本框中输入一个整数，单击命令按钮“判断”后，若该整数是偶数，则label2显示“该数是一个偶数”,若为奇数，则显示“该数是一个奇数”。请将command1_click()中的程序补充完整以实现上述功能。下图为运行效果，输入8，则label2显示该数是一个偶数。将Command1.click中程序补充完整：ifval(thisform.text1.value)%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.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.单击命令按钮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)thisform.label1.ForeColor=RGB(r,g,b)&&说明，rand()函数的返回值是0～1之间的数。rand()乘以256再取整就能产生0～255之间的数。11.本题素材为考生文件夹下的tk11.scx，表单运行效果图如下所示：表单的功能是字体字号设置，表单内有一个标签对象（Label1的标题为“南昌科技大学”）,一个列表框（List1）用来设置Label1的字号大小，一个下拉列表框（combo1用来设置Label1的字体），表单功能如下：在列表框List1的Click事件中编写以下程序：thisform.label1.fontsize=VAL(thisform.list1.Value)在组合框Combo1的Click事件中编写以下程序：thisform.label1.fontname=thisform.combo1.Value12.本题素材为考生文件夹下的tk12.scx，表单运行效果图如下所示：该表单上有一个标签对象和三个复选框，表单的功能是设置标签label1(标题为南昌科技大学)的字体样式，要求选中粗体则标签文字设为粗体，选中斜体则标签文字设为斜体，选中下划线则标签文字加上下划线。Check1_clickIfthis.value=1thenThisform.label.fontbold=.T.ElseThisform.label.fontbold=.F.endifCheck2_clickIfthis.value=1thenThisform.label.fontitalic=.T.ElseThisform.label.fontitalic=.F.endifCheck3_clickIfthis.value=1thenThisform.label.fontunderline=.T.ElseThisform.label.fontunderline=.F.endif编写程序实现上述功能。13.本题素材为考生文件夹中的表单文件tk13.scx，表单运行效果图如下所示：该表单实现的功能是设置文本框中文字的字体，要求选中宋体则文本框的字体为宋体，选中幼圆则文本框的字体为幼圆，选中隶书则文本框的字体为隶书。编写程序实现上述功能。（方法不限）Option1_clickThisform.text1.fontname=”宋体”Option2_clickThisform.text1.fontname=”幼圆”Option3_clickThisform.text1.fontname=”隶书”14.本题素材为考生文件夹中的表单文件tk14.scx，表单运行后界面如下图所示：该表单实现的功能是选中红色选项按钮，则文本框中文字的颜色为红色(255,0,0)；选中绿色则文本框中文字为绿色(0,255,0)；选中蓝色则文本框中文字为蓝色(0,0,255)；Option1_clickThisform.text1.forecolor=rgb(255,0,0)Option2_clickThisform.text1.forecolor=rgb(0,255,0)Option3_clickThisform.text1.forecolor=rgb(0,0,255)单击退出按钮可以释放该表单。Thisform.release编写程序实现上述功能。15.本题素材为考生文件夹中的表单文件tk15.scx，表单运行后界面如下图所示：该表单实现的功能是选中红色选项按钮，则文本框的背景颜色为红色(255,0,0)；选中绿色则文本框的背景颜色为绿色(0,255,0)；选中蓝色则文本框的背景颜色为蓝色(0,0,255)。（文本框的文字由你任意输入。）编写程序实现上述功能。在OptionGroup1的Click事件中写下如下程序语句：docasecasethis.value=1thisform.Text1.BackColor=RGB(255,0,0)casethis.value=2thisform.Text1.BackColor=RGB(0,255,0)casethis.value=3thisform.Text1.BackColor=RGB(0,0,255)endcase16.本题素材为考生文件夹中的表单文件tk16.scx，数据环境中已经添加了表tk16_rc.dbf。表单运行效果如下图所示：该表单程序可以实现以下功能：单击command1文本框中可显示第一条记录、单击command2可显示上一条记录、单击command3可显示下一条、单击command4可显示最后一条记录。完成下列操作以实现上述功能：（1）设置文本框txt职称和txt工资现状的相关属性，使得文本框与表中相应字段绑定；（2）分别在command1（第一条）、command2（上一条）、command3（下一条）、command4(最后一条)的click过程中编写程序实现上述功能。(1)设置各文本框的ControlSource属性为它们各自对应的字段。(2)在Command1的Click事件中：gotopthisform.refresh在Command2的Click事件中：ifnotbof()thenskip-1thisform.refreshendif在Command3的Click事件中：ifnoteof()thenskipthisform.refreshendif在Command4的Click事件中：gobottomthisform.refresh17.本题素材为考生文件夹中的表单文件tk17.scx，表单界面如下图所示，数据环境中已经添加了表tk17_xs.dbf。本题素材为考生文件夹中的表单文件tk17.scx，表单界面如下图所示，数据环境中已经添加了表tk17_xs.dbf。该表单程序可以实现以下功能：单击command1文本框中可显示第一条记录、单击command2可显示上一条记录、单击command3可显示下一条、单击command4可显示最后一条记录。完成下列操作以实现上述功能：（1）设置各文本框的相关属性，使得文本框为只读；readonly（2）分别在command1（第一条）、command2（上一条）、command3（下一条）、command4(最后一条)的click过程中编写程序实现上述功能。Command1_clickGotoThisform.refeshCommand2_clickIfnotbof()Skip-1Thisform.refeshendifCommand1_clickIfnoteof()SkipThisform.refeshendifCommand1_clickGobottomThisform.refesh18.本题素材为考生文件夹中的表单文件tk18.scx，数据环境中已添加表文件“tk18_d