2.6.2 习题
一、单选题
1.( B )2.( C )3.( A )4.( C )5.( B )6.( B )7.(A )8.(B )
9.(A )10.( B )11.( C)12.( A )13.( C )14.( B )15.( D )
16.( B )17.( D )18.( A )19.( D )20.( D )21.( A)22.( C)
23.( A )24.( A )25.(D )26.( A )27.( C )28.( C )29.( D )
30.( C )31.( C )32.( D )
二、多选题
1.( ABCDE )2.(BCD )3.( AE )4.( ACDE )5.( BE )
6.( ABD )7.( ABDE )8.( ADE )9.( ACD )
三、填空题
1. ___THIS___, THISFORM_2. LOAD , ___INIT____,___DESTROY___
3. ____RELEASE_____4. ___.SCX__,____REFRESH__
5. ____定时器___,__TIMER__,__ INTERVAL, __毫秒___,__ ENABLE____
6. __(\
列表框 和 文本框
9. THISFORM.TEXT1.SETFOCUS , LOSTFOCUS 10. Increment
11. 文本框 , 编辑框 , SCROLLBARS
12. ADDITEM , REMOVEITEM 13. 按钮锁定
14. 页面 , PAGES , ACTIVEPAGE 15. 表单设计器
16. 可见 , 隐藏 17. ACTIVEX绑定 18. PAGECOUNT
19. 按钮个数 20. 编辑框 21. 激活
22. 多行 , 一行 23. WORDWRAP 24. 编辑
25. 数据源 26. MODIFY FORM 27. __属性窗口___或___程序代码___
四、程序题
1.
命令按钮COMMAND1的CLICK事件代码:
A=ALLTRIM(THISFORM.TEXT1.VALUE)
B=LEN(A)
C=0
FOR I=1 TO B
K=SUBSTR(A,I,1)
IF ASC(K)>=65 AND ASC(K)<=90 OR ASC(K)>=97 AND ASC(K)<=122
C=C+1
ENDIF
ENDFOR
THISFORM.TEXT2.VALUE=B
THISFORM.TEXT3.VALUE=C
2.
“查询”命令按钮的CLICK事件代码如下:
SELECT 外汇账户
DO CASE
CASE THISFORM.MYOPTION.VALUE=1
THISFORM.GRID1.RECORDSOURCE=“SELECT 外币代码,金额;
FROM 外汇账户;
WHERE 钞汇标志=[现汇];
INTO CURSOR TEMP”
CASE THISFORM.MYOPTION.VALUE=2
THISFORM.GRID1.RECORDSOURCE= “SELECT外币代码,金额;
FROM 外汇账户;
WHERE 钞汇标志=[现汇];
INTO CURSOR TEMP”
ENDCASE
3.
编写COMMAND1的CLICK事件代码如下:
THISFORM.RELEASE
编写CHECK1 的INTERACTIVECHANGE事件爱女代码如下:
If THIS.VALUE=1
THISFORM.LABEL1.CAPTION= “欢迎指导!”
ELSE
THISFORM.LABEL1.CAPTION= “”
ENDIF
4.
TEXT1、TEXT2、TEXT3的INIT事件代码:
THIS.VALUE=0
COMMAND1的CLICK事件代码:
X= THISFORM.TEXT1.VALUE
Y= THISFORM.TEXT2.VALUE
DO CASE
CASE Y<=12
M=X*Y(1+0.12)
CASE Y<=24
M=X*Y(1+0.24)
CASE Y<=36
M=X*Y(1+0.36)
OTHER
M=X*Y(1+0.48)
ENDCASE
THISFORM.TEXT3.VALUE=M
COMMAND2的CLICK事件代码:
THISFORM.TEXT1.VALUE=0
THISFORM.TEXT2.VALUE=0
THISFORM.TEXT3.VALUE=0
THISFORM.TEXT1.SETFOCUS
COMMAND3的CLICK事件代码:
THISFORM.RELE
ASE
5.
TEXT1~TEXT5的INIT事件代码:
THIS.VALUE=0
COMMAND1的CLICK事件代码:
X= THISFORM.TEXT1.VALUE
Y= THISFORM.TEXT2.VALUE
Z= THISFORM.TEXT3.VALUE
N=0
S=0
FOR I=X TO Y
IF MOD(1,Z)=0
THISFORM.EDIT.VALUE=THISFORM.EDIT.VALUE+STR(I)+CHR(13)
N=N+1
S=S+1
ENDIF
ENDFOR
THISFORM.TEXT4.VALUE=N
THISFORM.TEXT5.VALUE=S
COMMAND2的CLICK事件代码:
THISFORM.TEXT1.VALUE=0
THISFORM.TEXT2.VALUE=0
THISFORM.TEXT3.VALUE=0
THISFORM.TEXT4.VALUE=0
THISFORM.TEXT5.VALUE=0
THISFORM.TEXT1.setfocus
COMMAND3的CLICK事件代码:
THISFORM.RELEASE
6.
TEXT1的INIT事件代码:
THIS.VALUE=0
COMMAND1的CLICK事件代码:
THISFORM.TEXT2.VALUE=ROUND(THISFORM.TEXT1.VALUE*9/5+32,1)
COMMAND2的CLICK事件代码:
THISFORM.TEXT2.VALUE=ROUND((THISFORM.TEXT1.VALUE-32)*5/9,1)
COMMAND3的CLICK事件代码:
THISFORM.TEXT1.VALUE=0
THISFORM.TEXT2.VALUE= “”
THISFORM.TEXT1.SETFOCUS
COMMAND4的CLICK事件代码:
THISFORM.RELEASE
7.
OPTIONGROUP1的CLICK事件代码:
DO CASE
CA