《VFP实验课综合题目及答案讲解.docx》由会员分享，可在线阅读，更多相关《VFP实验课综合题目及答案讲解.docx（19页珍藏版）》请在三一文库上搜索。
1、VFP实验课综合题目及答案讲解标题为“求和”），表单实现的功能是单击命令按钮后可计算从1到100的连续自然数的和，并用标签label1显示结果。请把command1的click过程中的程序补充完整以实现上述功能。s=1for i=1 to 100 step 1s=s+inexthttp:/ i=1 to 100 step 2s=s+inexthttp:/ i=2 to 100 step 2s=s+inexthttp:/ if val(thisform.text1.value)%2=0 http:/ = 偶数 elsehttp:/ = 奇数endif算”），表单实现的功能是求1!+2!+3!+.
2、+10!，结果在标签label1中显示。请在command1的click过程中编写程序以实现上述功能。sum=0s=1for i=1 to 10s=s*isum=sum+snexthttp:/ text1.value=time()程序运行效果图如下：8.本题素材为考生文件夹中的表单文件tk08.scx。该表单包含1个标签Label1，3个命令按钮command1“暂停”、command2“继续”和command3“退出”。该表单的功能是：Label1用来显示系统的当前时间；单击命令按钮command1，时钟暂停走动；thisform.timer1.enabled=.F单击命令按钮command
3、2，时钟继续显示系统的当前时间；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()*2
4、56)http:/ ，表单运行效果图如下所示： 表单的功能是字体字号设置，表单内有一个标签对象（Label1的标题为“南昌科技大学”）,一个列表框（List1）用来设置Label1的字号大小，一个下拉列表框（combo1用来设置Label1的字体），表单功能如下： 在列表框List1的Click 事件中编写以下程序：http:/ 在组合框Combo1的Click 事件中编写以下程序：http:/ ，表单运行效果图如下所示： 该表单上有一个标签对象和三个复选框，表单的功能是设置标签label1(标题为南昌科技大学)的字体样式，要求选中粗体则标签文字设为粗体，选中斜体则标签文字设为斜体，选中下划线
5、则标签文字加上下划线。 Check1_click If this.value=1 then http:/ Else http:/ endif Check2_click If this.value=1 then http:/ Else http:/ endif Check3_click If this.value=1 then http:/ Else http:/ endif 编写程序实现上述功能。13.本题素材为考生文件夹中的表单文件tk13.scx ，表单运行效果图如下所示：该表单实现的功能是设置文本框中文字的字体，要求选中宋体则文本框的字体为宋体，选中幼圆则文本框的字体为幼圆，选中隶书则文
6、本框的字体为隶书。编写程序实现上述功能。（方法不限）Option1_clickThisform.text1.fontname=”宋体”Option2_click Thisform.text1.fontname=”幼圆”Option3_clickThisform.text1.fontname=”隶书”14.本题素材为考生文件夹中的表单文件tk14.scx，表单运行后界面如下图所示：该表单实现的功能是选中红色选项按钮，则文本框中文字的颜色为红色(255,0,0)；选中绿色则文本框中文字为绿色(0,255,0)；选中蓝色则文本框中文字为蓝色(0,0,255)；Option1_clickThisfor
7、m.text1.forecolor=rgb(255,0,0) Option2_click Thisform.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)；选中蓝色则文本框的背景颜色为蓝色(
8、0,0,255)。（文本框的文字由你任意输入。）编写程序实现上述功能。在OptionGroup1的Click事件中写下如下程序语句：do casecase this.value=1thisform.Text1.BackColor = RGB(255,0,0)case this.value=2thisform.Text1.BackColor = RGB(0,255,0)case this.value=3thisform.Text1.BackColor = RGB(0,0,255)endcase16.本题素材为考生文件夹中的表单文件tk16.scx，数据环境中已经添加了表tk16_rc.dbf。表
9、单运行效果如下图所示：该表单程序可以实现以下功能：单击command1文本框中可显示第一条记录、单击command2可显示上一条记录、单击command3可显示下一条、单击command4可显示最后一条记录。完成下列操作以实现上述功能：（1）设置文本框txt职称和txt工资现状的相关属性，使得文本框与表中相应字段绑定；（2）分别在command1（第一条）、command2（上一条）、command3（下一条）、command4(最后一条)的click过程中编写程序实现上述功能。(1)设置各文本框的ControlSource 属性为它们各自对应的字段。 (2)在Command1的Click 事
10、件中： go topthisform.refresh在Command2的Click 事件中： if not bof() then skip -1thisform.refresh endif在Command3的Click 事件中： if not eof() then skipthisform.refresh endif在Command4的Click 事件中： go bottomthisform.refresh17.本题素材为考生文件夹中的表单文件tk17.scx ，表单界面如下图所示，数据环境中已经添加了表tk17_xs.dbf 。 本题素材为考生文件夹中的表单文件tk17.scx ，表单界面如
11、下图所示，数据环境中已经添加了表tk17_xs.dbf 。该表单程序可以实现以下功能：单击command1文本框中可显示第一条记录、单击command2可显示上一条记录、单击command3可显示下一条、单击command4可显示最后一条记录。完成下列操作以实现上述功能： （1）设置各文本框的相关属性，使得文本框为只读；readonly（2）分别在command1（第一条）、command2（上一条）、command3（下一条）、command4(最后一条)的click 过程中编写程序实现上述功能。 Command1_ click Go to Thisform.refesh Command2_
12、 clickIf not bof() Skip -1 Thisform.refeshendif Command1_ clickIf not eof() Skip Thisform.refeshendifCommand1_ clickGo bottomThisform.refesh18.本题素材为考生文件夹中的表单文件tk18.scx，数据环境中已添加表文件“tk18_dz.dbf”。该表单实现的功能是：在文本框text1中输入读者姓名，单击命令按钮查询可以查找到该读者的记录信息，把性别显示在文本框text2中，籍贯显示在文本框text3中，如果找不到记录则弹出一个消息框显示“查无此人！”在按钮
13、command1（查询）的click过程中编写程序实现上述功能。xm=alltrim(thisform.text1.value) set exact onif xmlocate for 姓名=xmif found()thisform.text2.value=”性别”thisform.text3.value=”籍贯”elsemessagebox=(没有找到这个人) endif thisform.text1.setfocusendifxm=alltrim(thisform.text1.value) locate for 姓名=xmif found()tisform.refreshelsemessa
14、gebox(“查无此人”)endif表单运行效果图如下所示：20.本题素材为考生文件夹下的tk20.scx，scx，数据环境中已添加表“tk20_作者.dbf”。该表单的功能是统计相应职称的人数。表单运行效果如下图所示：具体要求：单击“统计”按钮，统计出作者表中教授和副教授的人数，并将统计结果输出到相应的文本框中；count for职称=”教授” to acount for职称=”副教授” to bthisform.text1.value=athisform.text2.value=b单击命令按钮“退出”可释放该表单。thisform.release编写程序实现上述功能。21.本题素材为考生文
15、件夹中的表单文件tk21.scx。该表单实现的功能是：单击命令按钮command1(设置背景）可以设置label1的背景色为蓝色，单击命令按钮command2(放大字体)可使得label1的字号增加2号，例如label1的字号原为12号，单击放大字体后label1的字号为14号。请分别在按钮command1和command2的click过程中编写代码以便实现上述功能。Command1_ clickhttp:/ clickhttp:/ http:/ clickcj=thisform.text1.valuedo casecase val(cj)=90 and val(cj)=http:/ case
16、 val(cj)=70http:/ case val(cj)=60http:/ case val(cj)http:/ endcaseCommand2_ clickThisform.text1.value=”Command1_ clickcj= val (thisform.text1.value)do casecase cj=90 and cj=http:/ case cj=80 and cjhttp:/ case cj=70 and cjhttp:/ case cj=60 and cjhttp:/ case cj=0 and cjhttp:/ endcase23.本题素材为考生文件夹下的tk2
17、3.scx ，表单包括1个标签、1个命令按钮和1个计时器控件。表单运行效果如下图所示：该表单运行时先以9号字体显示“预祝同学们顺利通过考试！”字样，然后每隔一秒将字号放大一号，当达到30号字体时，又恢复成最初状态，即9号字体；单击命令按钮“退出”可释放该表单。在属性窗口设置Timer1的Interval 为100。（2分）在对象Timer1的Timer 事件过程中编写以下程序：（10分） IF http:/ ELSEhttp:/ ENDIF在对象Command1的Click 事件过程中编写以下程序：（3分） thisform.release 编写程序实现上述功能。24.本题素材为考生文件夹下的tk24.scx ，表单包括1个标签、1个命令按钮和1个计时器控件。表单运行效果如下图所示： 该表单的功能是文字从右向左移动，要求：标签Label1每隔1秒自动从右向左移动5个像素单位，移到窗口左边界时标签回到窗口右边重新向左移动；单击命令按钮“退出”可释放该表单。 http:/ http:/ if http:/ if http:/ thisform.width http:/ endif 第二个 从上向下 http:/ http:/ thisform.height http:/ endif 第三个 从下向上 http:/ top =http:/ top -5 if http:/ top