计算机2级设计题答案.doc

1、统计0-100之间能被7整除的个数，并求和。（3） 在COMMAND1的CLICK事件编写如下代码： N=0 S=0 FOR I= 0 TO 100 IF I%7=0 N=N+1 S=S+I ENDIF ENDFOR THISFORM.TEXT1.VALUE=STR(N) THISFORM.TEXT2.VALUE=STR(S) 2、改变背景颜色 （3） 在COMMANDGROUP1的CLICK事件中编写如下代码： DO CASE CASE THIS.VALUE=1 THISFORM.BACKCOLOR=RGB(0,255,0) CASE THIS.VALUE=2 THISFORM.BACKCOLOR=RGB(0,0,255) CASE THIS.VALUE=3 THISFORM.BACKCOLOR=RGB(255,0,0) ENDCASE 3、黄鹤楼(2) 在数据环境中添加表HH（四句诗的内容），将TEXT1的CONTROLSOURSE 设置为HH.诗句,并在COMMANDGROUP1的CLICK事件编写代码: DO CASE CASE THIS.VALUE=1 GO TOP THISFORM.REFRESH CASE THIS.VALUE=2 IF RECNO()2 =MESSAGEBOX(已是第一句) ELSE SKIP -1 THISFORM.REFRESH ENDIF CASE THIS.VALUE=3 IF RECNO()RECCOUNT（） =MESSAGEBOX(已是最后一句) ELSE SKIP THISFORM.REFRESH ENDIF CASE THIS.VALUE=4 GO BOTTOM THISFORM.REFRESH ENDCASE 4、计算商品总金额(2) 在数据环境下添加表SP.DBF,并将其设置为表格控件的数据源。 （1）在CHECK1的CLICK事件编写如下代码: IF THIS.VALUE=1 THISFORM.COMMAND1.ENABLED=.T. ELSE THISFORM.COMMAND1.ENABLED=.F. ENDIF （2）再在COMMAND1的CLICK事件编写如下代码: REPLACE ALL 金额 WITH 单价*数量 THISFORM.REFRESH 5、教师查询(2) 在数据环境下添加两个表DDM1和TEACH1,并将COMBO1的数据源设置为TEACH1.教师号. （1）在FORM1的INIT的事件中编写如下代码: SELECT 系名 from ddm1,teach1 where ddm1.系号=teach1.系号 and TEACH1.教师号=THISFORM.COMBO1.VALUE into array h thisform.text1.value=h(1) （2）在COMBO1的INTERACTIVECHANGE的事件中编写如下代码: LOCATE FOR TEACH1.教师号=THISFORM.COMBO1.VALUE SELECT 系名 from ddm1,teach1 where ddm1.系号=teach1.系号 and TEACH1.教师号=THISFORM.COMBO1.VALUE into array h thisform.text1.value=h(1) THISFORM.REFRESH 6、两个数从小到大排列（3） 在CLICK事件编写如下代码： A= THISFORM.TEXT1.VALUE B= THISFORM.TEXT2.VALUE IF AB T=A A=B B=T ENDIF THISFORM.TEXT3.VALUE=A THISFORM.TEXT4.VALUE=B 7、轻松学习FOXPRO单词(2) (参考”黄鹤楼”) 在数据环境中添加表DIC.DBF，，将TEXT1的CONTROLSOURSE 设置为DIC.单词、TEXT2的CONTROLSOURSE 设置为DIC.中文意思,并在COMMANDGROUP1的CLICK事件编写代码: DO CASE CASE THIS.VALUE=1 GO TOP THISFORM.REFRESH CASE THIS.VALUE=2 IF RECNO()2 =MESSAGEBOX(已是第一个) ELSE SKIP -1 THISFORM.REFRESH ENDIF CA