数据库应用基础(第二版)第六章 常用表单控件的使用 实验6.3之实验报告.docVIP

四、实验6-3报告 1．实验过程报告 （1）写出第2题 “判断题”表单选项按钮组的InterActiveChange事件代码。 答：“判断题”表单选项按钮组的InterActiveChange事件代码为： IF THIS.VALUE=2 MESSAGEBOX(答对了,真棒!,0+48,评判结果) ELSE MESSAGEBOX(答错了,再试!,0+16,评判结果) ENDIF THISFORM.REFRESH （2）写出第4题“拍球”表单计时器Timer事件代码。 答：“拍球”表单计时器Timer事件代码为： IF THISFORM.SHAPE1.TOP=THISFORM.HEIGHT-THISFORM.SHAPE1.HEIGHT THISFORM.F=1 ENDIF IF THISFORM.SHAPE1.TOP=0 THISFORM.F=0 ENDIF IF THISFORM.F=0 THISFORM.SHAPE1.TOP=THISFORM.SHAPE1.TOP+1 THISFORM.SHAPE1.HEIGHT=THISFORM.SHAPE1.HEIGHT+1 THISFORM.SHAPE1.WIDTH=THISFORM.SHAPE1.WIDTH+1 ELSE THISFORM.SHA