Else
n = n * n End If
___( 4 )____=n End Function
当单击命令按钮时，在输入对话框中输入2时，文本框中显示的是___( 5 )_____ 3.以下过程计算1到100间所有除以3余1的数的和，请补充完该程序。 Sub mult()
Dim sum As Integer Sum=0
Dim i as integer For i=1 to 100
If _____( 6)____ Then ( 7 )_ End if Next i Print sum
End Sub
4．下列程序中，fac是求n!的递归函数，请将程序填写完整。 Public Function fac(n As Integer) If n = 1 Then
fac = 1
Else
fac = ( 8 )_
End If End Sub
五、编程题（19%，第1题9分，第2题10分）
1.编程计算S=1+（1×2）+（1×2×3）+（1×2×3×4）+??（1×2×3×4×??n）的值， 其中n是由用户输入的正整数，程序界面自行设计。（9分）
2.声明一个5行5列的二维数组，完成下列要求：（共10分）
（1）单击“输出”按钮（command1），生成10-50之间的随机整数赋给数组，并在图形框（picture1）中按5行5列的格式输出。（3分）
（2）单击“下三角”按钮（command2），在图形框（picture2）中输出下三角。（3分） （3）单击“最大值”按钮（command3），求出该数组的最大值并在图形框（picture3）中输出。（3分）
（4）单击“清除”按钮（command4），清除各图形框中的内容。（1分）
试题二
一、填空题（15%，每空1分）
1.Right$（“高级语言程序设计”, 2）的结果 。
2.在VB中，为了使一个控件在运行时不可操作，应将控件的 属性设置为 。 3．定义一个长度为5个字符的定长字符串变量(变量名为ch)的Dim声明语句是 。 4.以下语句的执行结果是 。
I = Format(7654321.4, \Print I
5.在VB中， 123456＆、12346% 这2个常数分别表示 类型、 类型。 6.如果希望每1秒钟产生一个计时事件，那么应将Interval属性值应设置为 。 7. VB中依据变量的作用范围将VB变量的作用范围分为三类，它们是： 变量、 变量和 变量。
8. VB中，当KeyPress事件发生时会返回一个按键的 值。 9.对象的属性、方法使用有所不同，form1.print是__________的使用。
10.VB逻辑数据类型只有True与False两个值。当逻辑数据转换成整型数据时，True 转换为 ，False转换为 。
二、选择题（50%，每题2分）
1.文本框的默认属性是（ ）
A)Caption B)Text C) Name D)Top 2.双击窗体中的对象后VB将显示的的窗口是（ ）
A）工具箱窗口 B）工程资源管理器窗口 C）代码窗口 D）属性窗口 3.下面4项中不属于面向对象系统三要素的是( ) （A）变量 （B）事件 （C） 属性 （D）方法 4.“X是小于100的非负数”，用VB表达式表示正确的是（ ） A) 0<=X<100 B) 0<=X<100 C) X>=0 AND X<100 D) 0<=X OR X<100 5．下列不支持Print方法的是：（ ） A）窗体 B）文本框 C）打印机 6.能够改变窗体边框线类型的属性是（ ）。
A） FontStyle B）BorderStyle C）BackStyle D）Border
D）图形框
7．要清除列表框中所有的列表项时，应使用以下哪种方法( )
A) Remove
B) Clear
C) Removeitem D) Move
8．以下能判断是否到达文件尾的函数是（ ）。
A）BOF B）DOC C）LOF D）EOF
9．通过ADODC控件的（ ）属性可以确定具体可访问的数据来源，这些数据构成记录集对象Recordset。
A）RecordSource B）DtatBase C）RecordSet D）ConnectionString 10.下面逻辑表达式的值为真的是（ ）。
A) “Thank”>“True” B)12>12.1 C）“a”>”A” D)“9”>“a” 11.在函数中，返回值是字符型数据的是（ ）。
A）Chr B）InStr C）Val D）Asc 12.确定单选按钮是否选中，应访问的属性是（ ）。
A）Value B）option C）style D）select
13．在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则使用（ ）关键字在过程中定义局部变量。
A）Dim B）Private C）Public D）Static 14．以下图形方法中，可用于画点的是（ ）方法。 A）Point B）Line C）Pset D）scale 15．下列赋值语句中，语法正确的是（ ）。
A) 5=x+1 B)Now() =15 C) x=1.2^2 D) x+1=x
16．下列变量名不合法的是（ ）。
A） a B） C1 C） 6x D） C_e
17.在VB中，下列单精度数表示方法不正确的是（ ）
A）123.45E-3 B）123.45e+3 C）1.23 D）123.456# 18.下面的四个VB6.0表达式语法正确的是( )
A） a>b.and.b<>c B）a>b c C）a>b and <>c D）a>b and b<>c 19. 赋值语句：a=123 & MID(“123456”,2,1)执行后，a变量中的值是( )。
A）“1231” B）1232 C）125 D）12312
20．假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是（ ）。
A）执行语句Picture1.Picture=LoadPicture(\
B）选择图片框，在属性窗口中选择Picture属性，然后按回车键
C）执行语句Picture1.Picture=\）选择图片框，然后按Del键 21. 以下程序运行时输出的结果是（ ）。 Option Base 1
Private Sub Form_Click() Dim a
a = Array(1, 5, 10, 15) For i = 2 To 3 Print a(i)， Next i End Sub
A）1 5 B） 5 10 C）10 15 D）1 5 10 22.以下程序运行时输出S 的值为（ ）。
Private Sub Form_click() i = 1: s = 0 Do While i < 100
If i Mod 10 <> 0 Then s = s + i i = i + 1 Loop Print s End Sub
A) 4050 B) 5050 C) 5000 23. 以下程序运行时输出的结果是（ ）。
Private Sub Form_Click() Dim i As Integer For i = 1 To 3 Print f(i) Next i End Sub
Function f(a As Integer) Dim b Static c b = b + 1 c = c + 1 f = a + b + c End Function
A） 3 B）3 C）3 3 4 5 3 5 7 24．下面程序段显示 （ ）个“★”
For m = 1 to 4 For n=1 to m-1 Print \★\ Next n
15 D) 4500 D）3 6 9