0,0) CASE This.Value=2 This.Backcolor=RGB(0,0,255) CASE This.Value=3 This.Backcolor=RGB(0,255,0) CASE This.Value=4 This.Backcolor=RGB(255,255,255) CASE This.Value=5 This.Backcolor=RGB(0,0,0) ENDCASE Thisform.Refresh
11. 设计一个标准化模拟考试表单。界面如图所示。要求:文字字体、字号任意,当选择答 案时,根据对错用 Messagebox()函数显示提示信息。
图:模拟考试表单
(1) 表单 form1 的 init 时间 Thisform.optiongroup1.value=0 (2) 命令按钮组 optiongroup1 的 click 事件 if this.value=2 messagebox(“答对了,真棒!”,0+48,”评判结果”) else messagebox(“答错了,再试!”,0+32,”评判结果”) endif
12.编制一个表单完成表文件“学生.dbf” “成绩.dbf”内容的学生成绩查询显示功能,界面 如图 11-5 所示。具体要求如下:①当用户在组合框输入或选择后,按回车或“确定” 按钮时,表单将自动显示对应学生的平均成绩,如果该学生不存在,则显示提示信息。②按 “退出”按钮时,自动关闭表单。
图:学生成绩查询表单
(1) 表单 form1 的 init 事件 Set talk off Select 1 Use 学生 Select 2 Use 成绩 (2) 命令按钮 command 1 的 click 事件 Select 1 Locate a
ll for alltrim()=alltrim(thisformbol.displayvalue) If !found() Messagebox(“查无此人!”) Else Select 2 Average all for =学生. to pj Thisform.text1.value=pj Endif Thisform.refresh (3) 命令按钮 command2 的 click 事件 Thisform.release
13. 编制一个表单完成表文件“学生.dbf”内容的触发只读浏览显示功能,界面如图所示。 要求如下:①表单初始显示内容为表文件“学生.dbf”的首记录;②当按“前翻” “后翻” “首 记录” “末记录”按钮时,表单将自动显示相应记录的内容;③当翻至表头或表底时,将自 动设置相应按钮不可访问。④命令按钮采用用命令按钮组对象。
(1) 命令按钮 command1 的 click 事件 Go top Thisformmand1.enabled=.F. Thisformmand2