资源描述：
《2005-2009年浙江省计算机vfp二级考试试卷(含答案)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、1、编制一个能进行数字时钟显示功能的表单。表单将自动以1秒为间隔动态显示系统时间，时、分、秒用汉字说明。图1为表单中控件的布局界面，时钟控件名为Timer1，图2为表单运行后界面。1、Form1Initthis.timer1.interval=1000this.timer1.enabled=.t.Timer1Timers=substr(time(),1,2)f=substr(time(),4,2)m=substr(time(),7,2)thisform.text1.value=s+"时"+f+'分'+m+'秒'2、编制一
2、个表单完成表文件“课程.dbf”内容的显示功能。命令按钮“上一条”、“下一条”和“退出”名称分别为COMMAND1、COMMAND2和COMMAND3。采用非绑定方式实现。界面如图3、图4所示。具体要求：1）点击“上一条”按钮时，显示上一条记录。当到达表头时，转到末记录。2）点击“下一条”按钮时，显示下一条记录。当到达表尾时，转到首记录。3）当点击“退出”按钮时，退出表单。2、Form1Initthis.text1.value=课程号this.text2.value=课程名this.text3.value=学时数this
3、form.refreshCommand1Clickskip-1ifbof()gobottomendifthisform.text1.value=课程号thisform.text2.value=课程名thisform.text3.value=学时数thisform.refreshCommand2Clickskipifeof()gotopendifthisform.text1.value=课程号thisform.text2.value=课程名thisform.text3.value=学时数thisform.refreshCo
4、mmand3Clickthisform.release3、编制一个学生成绩查询表单。初始布局界面如图5所示。具体要求：1）列表框List1中列出所有学生姓名，等待用户选择，采用绑定方式实现。2）选中某个姓名后，列出该学生所有成绩以及平均成绩，如图6所示。3、Form1Initthis.caption='成绩查询'this.label1.caption='姓名'this.label2.caption='成绩情况'this.list1.rowsourcetype=6this.list1.rowsource='学生.姓名'th
5、is.list2.rowsourcetype=0this.list2.rowsource=''select学生.学号,学生.姓名,成绩.课程号,课程名,成绩from学生,课程,成绩;where成绩.学号=学生.学号and成绩.课程号=课程.课程号;intotablet1this.list2.visible=.f.List1Interactivechangethisform.list2.clearselet1stor0toa1,a2scanfor姓名=thisform.list1.valuethisform.list2.a
6、dditem(课程号+''+allt(课程名)+''+str(成绩,5,1))a1=a1+成绩a2=a2+1endscanthisform.list2.additem('平均成绩为:'+str(a1/a2,5,1))thisform.list2.visible=.t.试题7、面向过程程序设计（14分）编制一个学生成绩查询表单。初始布局界面如图1所示。命令按钮“查询”、“退出”名称分别为COMMAND1、COMMAND2。具体要求：1)组合框Combo1、Combo2分别用于选择“姓名”、“课程名”，并且，在表单的初始化事
7、件（init）中采用绑定来实现；2)点击“查询”按纽后查询显示相应的成绩，如图2；3)当查询不到相应的成绩时，显示“没有该成绩”，如图3；4)点击“退出”按钮时，退出表单。SETTALKOFFCLEARINPUT“请输入英语成绩”TOX1INPUT“请输入数学成绩”TOX2INPUT“请输入语文成绩”TOX3X4=X1+X2+X3IFX4>=200IFX1>=60ANDX2>=60?’录取’ELSEIFX1>=70ANDX2>=55?’复试’ENDIFENDIFELSE?’不录取’ENDIFSETTALKON试题8、面向
8、对象程序设计(1)form1的init事件THISFORM.COMBO1.ROWSOURCETYPE=6THISFORM.COMBO1.ROWSOURCE=’学生.姓名’THISFORM.COMBO2.ROWSOURCETYPE=6THISFORM.COMBO3.ROWSOURCE=’课程.课程名’(2)comman
