18. 在程序运行中，要想使某个按钮变成看不见，则应设置Visible的属性是__False___。 19. 在程序运行中，要想使用按钮变成看得见但不可操作，则应设置___Enabled___的属性是False。
20. 文本框的默认属性是__Text___。
判断题
1. 判断题：若对话框是模式型，则打开后无法将鼠标移到其它窗口。(正确)
2. Cls方法可以清除窗体或图形框中程序运行时产生的图形和文字的内容。(正确)
3. 语句：If a=c-b Then Print ＂#####＂ Else Print ＂*****＂是正确的。(正确) 4. 4AB和AB都可以作为VB的变量名。(错误) 5. Fix(-5.45)+Int(6.78)的值是0。(错误)
6. 语句：A$ = \执行后V的值是32。(正确) 7. 若要使某文本框获得控制焦点，可使用的方法是SetFocus。(正确)
8. 若使命令按钮Command1重新生效，则使用的赋值语句为Command1.Enabled=false. (错误)
9. 若要清除列表框的所有项目内容，可以使用Clear方法。(正确) 10. 子过程必须指定类型，而函数过程可以不指定其类型。(错误)
11. 判断题：for i=1 to 20 step 0 语句循环无数次。(正确)
12. 用于去掉字符串左边空格的函数是Trim()。（错误） 13. VB中数组默认下界为1。（错误）
14. 设a=6，则执行x=Iif（a>5,-1,0）后x的值为-1。(正确)
15. 修改控件属性，一般可以使用属性窗口，也可以通过方法为属性赋值。（错误） 16. 子过程必须指定类型，而函数过程可以不指定其类型。（错误）
17. 语句Dim B(-1 To 5, 4) As Interger 所定义的数组B的元素个数是25个。（错误） 18. 若对话框是模式型，则打开后无法将鼠标移到其它窗口。(正确) 19. 100+“200” & 200的结果为100200200。（错误）
20. 语句：If a=c-b Then Print ＂#####＂ Else Print ＂*****＂是正确的。 21. 表示x是5或9的倍数的表达式是x mod 5=0 or x mod 9=0。(正确) 22. 窗体最常用的事件只有Load（装入）事件。（错误）
23. 若有数组说明语句：Dim a()则a被定义为变体型数组。（正确） 24. 不能用于列表框控件的方法是AddItem。（错误）
25. 在VB中，对于没有赋值的整型变量，系统默认值是0。（正确） 26. 标签与文本框都有caption属性。（错误）
27. Cls方法可以清除窗体或图形框中程序运行时产生的图形和文字的内容。(正确) 28. 修改控件属性，一般可以使用属性窗口，也可以通过方法为属性赋值。（错误） 29. 注释语句是一个非执行语句，对程序的执行结果没有任何影响。（正确） 30. 若要清除列表框的所有项目内容，可以使用Clear方法。（正确） 31. VB中可以同时删除字符串前导和尾部空白的函数是trim()。（正确） 32. 语句If x > 0 Then y=7x-1是正确的。（错误）
33. 若要使某文本框获得控制焦点，可使用的方法是SetFocus。（正确） 34. 4AB和AB都可以作为VB的变量名。（错误）
35. 设A=3，B=4，C=5，D=6，计算表达式A>B AND C<=D OR 2*A>C的值是False。（错误） 36.用于去掉字符串左边空格的函数是Trim()。（错误）
37. 当k=2时 ,执行语句：If k < 4 Then n = 9: If k < 4 Then n = 8: If k < 5 Then n
= 7后n的值为7。(正确)
38. 安装VB6.0后，系统默认目录为VB98。(正确)
39. Int( 6 * Rnd )+1的值在[1,6]范围内。（正确）
程序设计
1. '题目：(事件)单击窗体。
' (响应)求 10! 的值，并将结果输出到窗体上。 ' 将结果存入变量 sum 中。
'------------------------------------------------- Private Sub Form_Click() Dim sum As Long
'********* Begin ********* Dim i As Integer
sum = 1
For i = 1 To 10 sum = sum * i Next i Print sum
'************ End ************ TestFunc (sum) End Sub
Private Sub TestFunc(i As Long)
Dim OUT As Integer OUT = FreeFile
Open App.Path & \ Print #OUT, i Close #OUT End Sub
2. '题目：(事件)单击窗体。
' (响应)我国现有人口为13亿，设年增长率为1%， ' 计算多少年后增加到20亿。并将结果输出 ' 在窗体上。将结果存入变量year中。 ' 使用do while ...loop语句完成程序。 '------------------------------------------------- Private Sub Form_Click() Dim year As Integer
'***************** Begin ************** Dim p as double
Dim r as single year = 0 p=1300000000 r=0.01
do while p < 2000000000
p=p + p * r year = year + 1
loop
print year
'*************** End ************************* Call TestFunc(year) End Sub
Private Sub TestFunc(i As Integer) Dim OUT As Integer OUT = FreeFile
Open App.Path & \ Print #OUT, i Close #OUT End Sub
3. 题目：(事件)双击窗体。
' (响应)s=20+21+22+…+263，求s的值，并将结果 ' 存储到变量S中。
'------------------------------------------------- Private Sub Form_DblClick() Dim s As Long
'******** Begin *******
Dim i As Integer i = 20
While i <= 263 s = s + i i = i + 1 Wend
Print (CStr(s))
'******** End ************ TestFunc (s) End Sub
Private Sub TestFunc(i As Long)
Dim OUT As Integer OUT = FreeFile
Open App.Path & \ Print #OUT, i Close #OUT End Sub
4. '【程序设计】
'
'题目：(事件)双击窗体。
' (响应)编写代码功能如(图1)。 ' 将结果存入变量S中
'------------------------------------------------- Private Sub Form_DblClick() Dim s As Double
'********** Begin **********
Dim i As Integer s = 1
For i = 1 To 10 s = s * i * i Next i Print s
'*********** End ************** TestFunc (s) End Sub
Private Sub TestFunc(i As Double)
Dim OUT As Integer OUT = FreeFile
Open App.Path & \ Print #OUT, i Close #OUT
End Sub
5. '题目：(事件)双击窗体。
' (响应)求出 1-50 所有奇数的和。
' 将结果存入变量 sum 中，并在窗体上输出。 '------------------------------------------------- Private Sub Form_dblClick() Dim sum As Integer '******* Begin ******* Dim i As Integer
sum = 0
For i = 1 To 50
If i Mod 2 = 1 Then sum = sum + i End If Next i Print sum
'******* End ********** TestFunc (sum) End Sub
Pivate Sub TestFunc(i As Integer)
Dim OUT As Integer OUT = FreeFile
Open App.Path & \ Print #OUT, i Close #OUT End Sub
6.'题目：(事件)单击窗体。
' (响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100， ' 结果输出在窗体上。
'------------------------------------------------- Private Sub Form_Click() Dim s As Single
'************* Begin **************
Dim i As Integer s = 0
For i = 1 To 10 s = s + 1 / (i ^2) Next i Print s
'************* End ************** TestFunc (s) End Sub
Private Sub TestFunc(i As Single)
Dim OUT As Integer OUT = FreeFile
Open App.Path & \ Print #OUT, i Close #OUT End Sub
7.'题目：(事件)双击窗体。
' (响应)求出 100~200 之间，能被 5 整除，但不能被 3 整除的数。 ' 求所有数之和，存入变量中 sum 中，并输出到窗体。 '------------------------------------------------- Private Sub Form_DblClick() Dim sum As Integer
'********** Begin *********
Dim i As Integer sum = 0
For i = 100 To 200
If ((i Mod 5) = 0) And ((i Mod 3) <> 0) Then sum = sum + i End If
Next i Print sum
'********** End ************* TestFunc (sum) End Sub
Private Sub TestFunc(i As Integer)
Dim OUT As Integer OUT = FreeFile
Open App.Path & \ Print #OUT, i Close #OUT End Sub
