浙江财经学院VFP上机考试答案完整版.docVIP

表单设计 设计标准化模拟考试表单。 表单Form1的Init事件： Thisform.Optiongroup1.Value=0 Optiongroup1的Click事件 IF This.Value=2 MessageBox(答对了,真棒！,0+48,评判结果） Else MessageBox(答错了,再试！,0+32,评判结果) ENDIF 编制一个表单完成表文件学生.dbf 命令按钮Command1的Click事件 GO TOP Thisform.Command1.Enabled=.F. Thisform.Command2.Enabled=.F. Thisform.Command3.Enabled=.T. Thisform.Command4.Enabled=.T. Thisform.Refresh (2) Command2的Click事件 SKIP -1 IF BOF() Thisform.Command1.Enabled=.F. Thisform.Command2.Enabled=.F. ELSE Thisform.Command3.Enabled=.T. Thisform.Command2.Enabled=.T. ENDIF Thisform.Refresh (3）Command3的Click事件 SKIP IF EOF(） Thisform.Command3.Enabled=.F. Thisform.Command4.Enabled=.F. ELSE Thisform.Command1.Enabled=.T. Thisform.Command2.Enabled=.T. ENDIF Thisform.Refresh Command4 的Click事件 GO BOTTOM Thisform.Command3.Enabled=.F. Thisform.Command4.Enabled=.F. Thisform.Command1.Enabled=.T. Thisform.Command2.Enabled=.T. Thisform.Refresh 3、编制一个表单完成学生成绩查询显示功能 (1)From1的Init事件 SET TALK OFF SELECT 1 USE 学生 SELECT 2 USE 成绩 (2)Command1的Click事件 SELECT 1 LOCATE ALL FOR ALLTRIM(姓名)=ALLTRIM（Thisform.Combo1.Displayvalue） IF !FOUND() MESSAGEBOX(“查无此人!”) ELSE SELECT 2 AVERAGE ALL FOR 学号=学生.学号 TO PJ Thisform.Text1.Value=PJ ENDIF Thisform.Refresh （3）Command2的Click事件 Thisform.Release 4、编一页面转换表单，要求表单上有一个包含3页的页框，每页依次一幅图画、一张表格、一个列表框。 Form1的Init事件 Thisform.P=0 P是用户自定义的属性 Timer1的Timer事件 Thisform.Pageframe1.Page1. Enabled=.F. Thisform.Pageframe1.Page2. Enabled=.F. Thisform.Pageframe1.Page3. Enabled=.F. Thisform.P=Thisform.P+1 IF Thisform.PThisform.Pageframe1.Pagecount Thisform.P=1 ENDIF Thisform.Pageframe1.Pages(Thisform.P).Enabled=.T. Thisform.Pageframe1.Activepage=Thisform.P Thisform.Refresh 5.编制手工日历表单。 （1） 表单FORM1的INIT事件 Thisform.Text1.Value=DATE( )