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

  • 48
  • 0
  • 约1.29万字
  • 约 14页
  • 2016-11-26 发布于重庆
  • 举报

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

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

表单设计 设计标准化模拟考试表单。 表单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( )

文档评论(0)

1亿VIP精品文档

相关文档