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

四、实验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.SHAPE1.TOP=THISFORM.SHAPE1.TOP-1 THISFORM.SHAPE1.HEIGHT=THISFORM.SHAPE1.HEIGHT-1 THISFORM.SHAPE1.WIDTH=THISFORM.SHAPE1.WIDTH-1 ENDIF THISFORM.REFRESH （3）如果用添加新的方法来统计第5题的5档销售业绩，如何编写该方法？ 答：销售业绩的方法程序编写为： PARAMETERS X DO CASE CASE X=6000 DC=优秀 CASE X=4000 DC=良好 CASE X=2000 DC=中等 CASE X=1000 DC=合格 CASE X1000 DC=不合格 ENDCASE RETU DC （4）如果用添加新的方法来统计第6题的工资总额大写，如何编写该方法？ 答：工资总额大写的方法程序编写为： PARAMETERS X C1=零壹贰叁肆伍陆柒捌玖 C2=分角元拾佰仟万拾佰仟亿 M=ROUND(X,2) M=M*100 I=0 C=SPACE(0) DO WHILE M0 N=MOD(M,10) P1=SUBSTR(C1,2*N+1,2) P2=SUBSTR(C2,2*I+1,2) C=P1+P2+C I=I+1 M=INT(M/10) ENDDO RETURN C 2．简答题 （1）如何将第3题的命令按钮组的9个按钮排好并对整齐？ 答：在命令按钮组的界面右击编辑,拖动按钮十七排列成3乘3的形式，然后再按格式-对齐即可使命令按钮组的9个按钮排好并对整齐。 （2）怎样给表单添加新属性，如何给新属性赋初值？ 答：给表单添加新属性： ①使用“表单”(“新建属性”菜单命令； ②在“新建属性”对话框中，键入属性的名称，还可以加入关于这个属性的说明，将显示在“属性”对话框的底部。 给新属性赋初值： 在代码框中表单Form1的Init事件代码中给新属性赋初值。Eg：This.F=0。 （3）在什么情况下需要向表单添加新的方法？怎样给表单加新方法，如何进入新方法的代码编辑状态？ 答：当子程序相对独立时需要向表单添加新的方法； 给表单加新方法： ①使用“表单”(“新建方法程序”菜单命令； ②在“新建方法程序”对话框中，键入方法程序的名称，还可以包含有关这个方法程序的说明，这是可选的； 进入新方法的代码编辑状态：双击表单对象，在代码编辑窗口选择新建的方法程序并输入方法程序，也可以通过“属性”对话框，找到新建的方法名称，双击“默认过程”进入代码编辑窗口并输入方法程序。 （4）怎样使第5题的“查询职工工资总额和业绩档次”表单中的3个方框（Shape对象）设置为三维、透明、置后？ 答：将形状中，属性名为SpecialEffect的属性由初始的默认值“1—平面”设置为“0—三维”，属性