VFP实验课综合题目及答案(DOC)

1、打开考生文件夹中的文件tkOl.scx，该表单上有两个标签Labell、Label2和一个命令按钮Command1(命令按钮标题为 求和”)，表单实现的功能是单击命令按钮后可计算从1到100的连续自然数的和，并用标签labell显示结果。请把command1的click过程中的程序补充完整以实现上述功能。s=1for i=1 to 100 step 1s=s+inextthisform.label1.caption=str(s)打开考生文件夹中的文件tk02.scx，该表单上有两个标签Labell、Label2和一个命令按钮Command1(命令按钮 标题为 求和”)，表单实现的功能是单击命令

2、按钮后可计算从1到100的之间的奇数的和，并用标签labell显示计算结果。请将command1_click()过程中的程序补充完整，实现上述功能。s=1for i=1 to 100 step 2s=s+i next thisform.label1.caption=str(s)打开考生文件夹中的文件tk03.scx，该表单上有两个标签Label1、Label2和一个命令按钮Command1(命令按钮 标题为 求和”)，表单实现的功能是单击命令按钮后可计算从1到100的之间的偶数的和，并用标签label1显示计算结果。请将command1_click()过程中的程序补充完整，实现上述功能。s=1

3、for i=2 to 100 step 2s=s+i n ext thisform .l abel1.capti on=str(s)后，若该整数是偶数，则label2显示 该数是一个偶数”,若为奇数，则显示 该数是一个奇数4.本题素材是考生文件夹中的表单tk04.scx。该表单的功能是：在文本框中输入一个整数，单击命令按钮判断”请将command1_click()中的程序补充完整以实现上述功能。将 Comma nd1.click 中程序补充完整：ifval(thisform.text1.value)%2=0thisform Label2.C apti on = 偶数下图为运行效果，输入8，则l

4、abel2显示该数是一个偶数。elsethisform Label2.C apti on = 奇数en dif打开考生文件夹中的文件tk05.scx，该表单上有一个标签Labell和一个命令按钮Command1命令按钮标题为计算”，表单实现的功能是求1!+2!+3!+.+10!，结果在标签labell中显示。请在command1的click过程中编写程序以实现上述功能。sum=0s=1for i=1 to 10s=s*isum=sum+sn extthisfor m.l abel1.captio n=str（sum）表单tk06.scx实现的功能是系统时钟，标签label2中每秒显示一次当前时

5、间；单击设置字号（command1可将标签label2中的文字大小设为16号。完成以下操作实现该功能：（1）设置计时器Timer1的时间间隔属性；1000（2） 在comma nd的click过程中编写程序使得标签label2的字号为16；Thisform .l abel2.fo ntsize=16（3） 在Timer1的Timer过程中编写程序使得标签label2中显示当前系统时间。程序运行效果图如下：Thisform .l abel2.capti on=time（）本题素材为表单tk07.scx，该表单实现的功能是系统时钟，即在文本框中每秒显示一次当前时间；单击设置背 景（command1

6、可设置文本框的背景颜色。完成以下操作实现该功能：（1）设置计时器Timer1的时间间隔属性；1000（2） 在comma nd的click过程中编写程序使得文本框的背景颜色设为rgb（255,96,128）；Thisform.text1.backcolor=rgb（255,96,128）（3）编写Timer1的Timer过程代码使得文本框中显示当前系统时间。Thisform. text1.value=time（）程序运行效果图如下：编写程序实现以下功能：单击命令按钮 设置文字颜色”时，设置标签的文字颜色为随机产生的颜色 在 Comma nd 的 Click 事件中写如下程序: r=INT(RA

7、ND()*256)g=INT(RAND()*256)b=INT(RAND()*256)thisform.label1.ForeColor=RGB(r,g,b) &说明，rand()函数的返回值是 01 之间的数。rand()乘以 256 再取整就能产生 0255 之间的数。8.本题素材为考生文件夹中的表单文件tk08.scx。该表单包含1个标签Labell,3个命令按钮command2继续禾口command3退出”。该表单的功能是：Labell用来显示系统的当前时间；单击命令按钮comma mand1暂停”、时钟暂停走动；thisform.timerl.e nabled=.F单击命令按

8、钮command2时钟继续显示系统的当前时间;thisform.timer1.e nabled=.T.单击命令按钮command3释放表单。thisform.release请分另U在command1.Click()、command2.click()command3.click()过程中编写代码实现上述功能。9.表单tk09.s.本题素材为考生文件夹下的tkll.scx，表单运行效果图如下所示:匍昌科技丸学选择字f札梓五蘇表单的功能是字体字号设置，表单内有一个标签对象（Labell的标题为 南昌科技大学”），一个列表框（Listl）用来设置Labell的字号大小，一个下拉列表框（combol用来

9、设置Labell的字体），表单功能如下：在列表框Listl的Click事件中编写以下程序：thisform.label1.fo ntsize=VAL（thisfor m.l istl.Value）在组合框Combo的Click事件中编写以下程序：thisfor m.l abel1.fo ntn ame=bo1.Value12.该表单上有一个标签对象和三个复选框，表单的功能是设置标签label1（标题为南昌科技大学）的字体样式，要求选中粗体则标签文字设为粗体，选中斜体则标签文字设为斜体，选中下划线则标签文字加上下划线。Check1_clickElseIf this.value=1 the nTh

10、isfor m.l abel.fo ntitalic=.F.Thisfor m.l abel.fo ntbold=.T.en difElseCheck3_clickThisfor m.l abel.fo ntbold=.F.If this.value=1 the nThisfor m.l abel.fo ntun derli ne=.T.ElseThisfor m.l abel.fo ntun derli ne=.F.Thisfor m.l abel.fo ntitalic=.T.编写程序实现上述功能。en difCheck2_clickIf this.value=1 the nen dif本

11、题素材为考生文件夹下的tk12.scx，表单运行效果图如下所示:.本题素材为考生文件夹中的表单文件tk13.scx，表单运行效果图如下所示:该表单实现的功能是设置文本框中文字的字体，要求选中宋体则文本框的字体为宋体，选中幼圆则文本框的字体为幼 圆，选中隶书则文本框的字体为隶书。编写程序实现上述功能。(方法不限)Option 1_clickThisform.text1.fontname=幼圆”Thisform.text1.fo ntn ame=宋体”Opti on 3_clickOption2_clickThisform.text1.fontname=隶书”该表单实现的功能是选中红色选项按钮，则

12、文本框中文字的颜色为红色(255,0,0);选中绿色则文本框中文字为绿色(0,255,0);选中蓝色则文本框中文字为蓝色(0,0,255)；Optio n1_clickThisform.text1. forecolor=rgb(0,255,0)Thisform.text1.forecolor=rgb(255,0,0)Optio n3_clickOptio n2_click单击退出按钮可以释放该表单。Thisform.release编写程序实现上述功能。.本题素材为考生文件夹中的表单文件 tk15.scx，表单运行后界面如下图所示:14.tk14.scx，表单运行后界面如下图所示:Thisfor

13、m.text1. forecolor=rgb(0,0,255)本题素材为考生文件夹中的表单文件该表单实现的功能是选中红色选项按钮，则文本框的背景颜色为红色（255,0,0）;选中绿色则文本框的背景颜色为绿色（0,255,0）;选中蓝色则文本框的背景颜色为蓝色（0,0,255）。 （文本框的文字由你任意 输入。 ）编写程序实现上述功能。在 OptionGroupI 的 Click 事件中写下如下程序语句：do casecase this.value=1thisform.Text1.BackColor = RGB(255,0,0)case this.value=2thisform.Text1.Ba

14、ckColor = RGB(0,255,0)case this.value=3thisform.Text1.BackColor = RGB(0,0,255)endcase16.本题素材为考生文件夹中的表单文件 tk16.scx，数据环境中已经添加了表 tk16_rc.dbf。表单运行效果如下图所示：该表单程序可以实现以下功能：单击 comma nd 文本框中可显示第一条记录、单击 comma nd 可显示上 一条记录、单击 comma nd 可显示下一条、单击 comma nd 可显示最后一条记录。完成下列操作以实现上述 功能：（1） 设置文本框txt 职称和txt 工资现状的相关属性，使得文

15、本框与表中相应字段绑定；（2） 分别在 command1（第一条）、command2（上一条）、command（下一条）、command4 最后一 条）的 click 过程中编写程序实现上述功能。设置各文本框的 ControlSource 属性为它们各自对应的字段。在 CommandlClick 事件中：go topthisform.refresh在 Comma nd 的 Click 事件中：if not bof() the nskip -1thisform.refreshen dif在 Comma nd 的 Click 事件中: if not eof() the nskipthisform.

16、refreshen dif在 Comma nd 的 Click 事件中: go bottom thisform.refresh该表单程序可以实现以下功能：单击comma nd文本框中可显示第一条记录、单击comma nd可显示上一条记录、单击comma nd可显示下一条、单击comma nd可显示最后一条记录。完成下列操作以实现上述功能：（1） 设置各文本框的相关属性，使得文本框为只读；read only（2） 分别在command1（第一条）、command2（上一条）、command3（下一条）、command4最后一条）的click过 程中编写程序实现上述功能。Thisform.refe

17、sh en difCommand1_ clickIf not eof()SkipThisform.refesh17.本题素材为考生文件夹中的表单文件tk17.scx，表单界面如下图所示，数据环境中已经添加了表Command1_ clickGo toThisform.refeshCommand2_ clickIf not bof()Skip -1tk17_xs.dbf。en difCommand1_ clickGo bottom该表单实现的功能是：在文本框text1中输入读者姓名，单击命令按钮查询可以查找到该读者的记录信息，把性别显示在文本框text2中，籍贯显示在文本框text3中，如果找不到

18、记录则弹出一个消息框显示查无此人！ ”在按钮command1（查询）的click过程中编写程序实现上述功能。具体要求：单击 统计”按钮，统计出作者表中教授和副教授的人数，并将统计结果输出到相应的文本框中;Thisform.refesh18.本题素材为考生文件夹中的表单文件tk18.scx，数据环境中已添加表文件tk18_dz.dbfxm=alltrim(thisform.text1.value)set exact onif xmlocate for姓名=xmif foun d()thisform.text2.value=性别”thisform.text3.value=籍贯”elsemessag

19、ebox=(没有找到这个人) endif表单运行效果图如下所示：thisform.text1.setfocusen difxm=alltrim(thisform.text1.value)locate for姓名=xmif foun d()tisform.refreshelsemessagebox(查无此人)en dif20.tk20.scx，scx，tk20_作者.dbf”。该表单的功能是统计count for职称=教授 ”to acount for职称=副教授” to bthisform.text1.value=athisform.text2.value=b单击命令按钮 退出”可释放该表单。

20、thisform.release编写程序实现上述功能。21.本题素材为考生文件夹中的表单文件tk21.scx。该表单实现的功能是：单击命令按钮command1设置背景）可以设置labell的背景色为蓝色，单击命令按钮command2放大字体）可使得label1的字号增加2号，例如label1的字号原为12号，单击放大字体后label1的字号为14号。 请分别在按钮comma nd和comma nd的click过程中编写代码以便实现上述功能。Command1_ clickThisform.label1.backcolor=rgb（0,0,255）Command2_ clickThisfor m.

21、l abel1.fo ntsize= Thisfor m.l abel1.fo ntsize=2要求：表单运行后，在文本框Text1中输入一个百分制成绩后，单击判定等级”按钮，根据输入的成绩转换成相应的级别，在标签Label2处显示；单击 清空”按钮后，会自动清除Text1和label2中的内容。请为这2个命令按钮的Click事件 编写对应的程序代码实现上述功能。Command1_ clickcj= val (thisform.text1.value)do casecase cj=90 and cj=80 and cj=70 and cj=60 and cj=0 and cj=90 and v

22、al(cj)=80thisform.label2.caption=良好 caseval(cj)=70thisform.label2.caption=中等 caseval(cj)=60thisform.label2.caption=及格 caseval(cj)60 thisform.label2.caption=不及格 endcaseComma nd2_ clickThisform.text1.value=”本题素材为考生文件夹下的等、及格、不及格）输出。本题素材为考生文件夹下的tk23.scx，表单包括1个标签、1个命令按钮和1个计时器控件。表单运行效果如下图所示：该表单运行时先以9号字体显示

23、 预祝同学们顺利通过考试！”字样，然后每隔一秒将字号放大一号，当达到30号字体时，又恢复成最初状态，即9号字体；单击命令按钮退出”可释放该表单。在属性窗口设置 Timerl 的 Interval 为 100。（ 2 分）在对象 Timer1 的 Timer 事件过程中编写以下程序：（10 分）IF thisform.label1.Fo ntSize30thisform.l abel1.F on tsize=thisfor m.l abel1.F on tsize+1 ELSEthisform.l abel1.F on tsize=9ENDIF在对象 Commanc 的 Click 事件过程中编

24、写以下程序：（3 分）thisform.releasetk24.scx，表单包括1个标签、1个命令按钮和1个计时器控件。表单运行效果如Label1每隔1秒自动从右向左移动5个像素单位， 移到窗口左边界时退出”可释放该表单。thisform.label1.left= thisform.label1.left-5if thisform .l abel.left= thisform.widththisform.label1.left=0-thisform.label1.widthen dif24.第二个从上向下thisfor m.l abel1.top=thisfor m.l abel1.top+5if thisfor m.l abel.top= thisform.heightthisfor m.l abel1.top=0-thisfor m.label1.height en dif第三个从下向上thisfor m.l abel1. top =this