Private Sub Form_Click() Dim Str1 As String, Str2 As String Dim Str3 As String, I As Integer Str1 = \For I = 1 To 2 Str2 = UCase(Str1) Str1 = Str2 & Str1 Str3 = Str3 & Str1 Str1 = Chr(Asc(Str1) + I) Next ID、eeFF
96、用Msgbox \你好\显示的消息对话框窗口的标题是________。 ( )
A、你好 B、vbokonly C、Ok D、Hello 97、语句If x=1 Then y=1，下列说法正确的是____________。 ( )
A、x=1和y=1均为赋值语句 B、x=1和y=l均为关系表达式 C、x=1为关系表达式，y=1为赋值语句 D、x=1为赋值语句，y=l为关系表达式 98、以下语句中，不能正确执行的是____________。 ( )
A、If Optionl.Value Then B、If Optionl.Value=True Then C、Check1.Value=0 D、Check1.Value=True
99、执行以下语句后，a的值为____________。
Dim a As Integer
a=1
Do Until a=100
a=a+2
Loop ( )
A、99 B、100 C、溢出 D、101 100、表达式（7\\3+1）*(18\\5-1)的值是___________. ( )
A、8.67 B、7.8 C、6 D、6.67 101、表达式（-1）*sgn(-100+int(rnd*100))的值是__________. ( )
A、0 B、1 C、-1 D、随机数
102、在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释），要折行书写，可以在行末使用续行字符________________，表示下一行是当前行的继续。 ( )
A、一个空格加一个下划字符(_) B、一个下划字符(_)
C、直接回车 D、一个空格加一个连字符(—) 103、在一个语句行内写多条语句时，语句之间应该用___________分隔。 ( )
A、逗号 B、分号 C、顿号 D、冒号 104、下列叙述中不正确的是___________. ( )
A、变量名的第一个字符必须是字母 B、变量名的长度不超过255个字符 C、变量名可以包含小数点或者内嵌的类型声明字符 D、变量名不能使用关键字 105、VisualBasic认为下面___________组变量是同一个变量。 ( )
A、A1和a1 B、Sum 和Summary C、Aver 和 Average D、A1 和A_1 106、以下不合法的常量是_____________. ( )
A、10^2 B、100 C、100.0 D、10E+01 107、下列有关数组的说法中，不正确的是________。 ( )
A、在窗体模块中不可以定义全局数据组
B、可以使用Erase语句释放所有数组所占据的存储储空间
C、语句Dim X(3.6+2)As Integer定义了一个维上界是6的一维的整型数组 D、形参数组的类型可以是定长符串类型
108、在窗体模块的通用声明处用下面的语句声明变量、数组，正确语句有________个。 ①Public A(5) As Integer ②Public N As Integer ③Public St As String
④Private b() As Integer ( )
A、2 B、3 C、4 D、1
109、在窗体上添加一个命令按钮，名为Command1，事件过程如下。执行结果是________。 Sub pb(b( ) As Integer) For i=1 To 4 B(i)=2*i Next i End Sub
Private Sub Command1_Click( ) Dim a(1 To 4) As Integer a(1)=5:a(2)=6: a(3)=7:a(4)=8 pb a For i=1 To 4 Print a(i); Next i
End Sub ( )
A、2 4 6 8 B、1 3 5 7 C、3 6 6 12 D、4 8 12 16 110、程序代码如下，当单击窗体上Command1控件时，窗体上显示的结果是_________。 Option Base 1
Private Sub Command1_Click( ) Dim i As Integer Dim x(3,3)As Integer For i = 1 To 3 For j = 1 To 3 x(i,j) = (i-1) * 3+j Next j Next i For i = 1 To 3 Print x(i,4-i) Next i
End Sub ( )
A、1 5 9 B、1 4 7 C、3 5 7 D、3 6 9 111、下列程序段的执行结果是________。 Dim A(3,3) For M=1 TO 3 For N=1 TO 3
If N=M Or N=3-M+1 Then A(M,N)=1 Else A(M,N)=0
End If Next N Next M For M=1 TO 3 For N=1 TO 3 Print A(M,N); Next N Print
Next M ( )
A、1 0 0 0 1 0 0 0 1 B、1 1 1 1 1 1 1 1 1 C、0 0 0 0 0 0 0 0 0 D、1 0 1 0 1 0 1 0 1
112、下列程序段的输出结果是________。 Dim A(5) For I=0 TO 4 A(I)=I+1 M=I+1 If M=3 Then A(M-1)=A(I-1) Else A(M)=A(I) End If
If I=3 Then A(I+1)=A(M-4) Print A(I); Next I ( )
A、1 1 1 2 2 B、2 1 1 4 4 C、1 2 2 4 5 113、 Private Sub Command1_Click Dim a, B(3, 3) a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For I = 1 To 3 For j = 1 To 3 B(I, j) = a(I * j) If (I >= j) Then D、2 2 1 4 1 Print Tab(j * 3); Format(B(I, j), \Next j Print Next I End Sub ( ) A、1 2 3 4 5 6 7 8 9 B、l 4 5 7 8 9 C、1 4 7 2 4 6 3 6 9 D、1 2 4 3 6 9 114、以下程序输出的结果是____________。 Dim a a=Array(1,2,3,4,5,6,7) For i=Lbound(a)To Ubound(a) a(i)= a(i)*a(i) Next i Print a(i) ( ) A、49 B、0 C、不确定 D、程序出错 115、如下数组声明语句，则数组a包含元素的个数有____________。 Dim a(3 , -2 to 2 , 5) ( ) A、120 B、75 C、60 D、13 116、如下二维数组声明语句，____________正确。 ( ) A、Dim a[3，4] As Integer B、Dim a(3，4) As Integer C、Dim a(n，n) As Integer D、Dim a(34) As Integer 117、以下有关数组的说明中，错误的是________。 ( ) A、根据数组说明的方式，可将数组分为动态数组和静态数组。 B、在过程中，不能用Private语句定义数组。 C、利用ReDim语句重新定维时，不得改变已经说明过的数组的数据类型。 D、数组重新定维后，原有的数组元素内容将不予保留。 118、Option Base 1 Private Sub Command1_Click() Dim a%(3, 3) For i = 1 To 3 For j = 1 To 3 If j > 1 And i > 1 Then a(i, j) = a(a(i - 1, j - 1), a(i, j - 1)) + 1 Else a(i, j) = i * j End If Print a(i, j); \Next j Print Next i End Sub ( ) A、1 2 3 2 3 1 3 2 3 B、1 2 3 1 2 3 1 2 3 C、1 2 3 2 4 6 3 6 9 D、1 1 1 2 2 2 3 3 3 119、要分配存放如下方阵的数据，____________数组声明语句能实现(不能浪费空间)。每行三个元素，第一行为：1.1 2.2 3.3第二行为：4.4 5.5 6.6第三行为：7.7 8.8 9.9 ( ) A、Dim a(9) As Single B、Dim a(3，3) As Single C、Dim a(-1 To l，-5 To -3) As Single D、Dim a(-3 To -1，5 To 7) As Integer 120、在窗体的通用声明处有语句Dim A() As Single，以下在某事件过程中重定义此数组的一组正确语句是：____________。 ( ) A、ReDim A(3,3) 121、运行程序产生死循环时，按________键可以终止程序的运行。 ( ) A、Ctrl+C B、Ctrl +Z C、Ctrl+Break D、单击停止运行按钮 122、Sub过程和Function过程最根本的区别是________________。 ( ) A、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以 B、Function过程可以有参数，Sub过程不可以 C、两种过程参数的传递方式不同
ReDim A(4,4) As Integer B、ReDim A (3,3)
ReDim Preserve A (4,4) C、ReDim A(3)
ReDim A(3,3) As Integer D、ReDim A (3,3)
ReDim Preserve A(3,4)