在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（） Dim array1（10，10）As Integer Dim I，j As Integer For I=1 To 3 For j=2 To 4 array1（I，j）=I+j Next j Next I Text1.Text=array1（2，3）+array1（3，4） End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（）
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click（） Dim I As Integer，j As Integer Dim a（10，10）As Integer For I=1 To 3 For j=1 To 3 a（I，j）=（I-1）*3+j Print a（I，j）； Next j Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是（）。（其中CR表示回车和换行）
设有如下程序： Option Base 0 Private Sub Form_Click() Dim a Dim i As Integer a = Array(1,2,3,4,5,6,7,8,9) For i = 0 To 3 Print a(5 – i); Next End Sub 程序运行后，单击窗体，则在窗体上显示的是（）
下面程序段是利用For语句给数组a赋值，使a(1)＝1，a(2)＝3，a(3)＝5，……，a(50)＝99，则划线处的语句应该是()。 Dim a(1 to 50) As Integer For i＝1 To 50 ______Next i
有如下函数过程： Function secproc(x As Integer, y As Integer, z As Integer) secproc = 3 * y + z + 2 * x End Function Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = 2: b = 3: c = 4 Print secproc(c, b, a) End Sub 该程序的运行结果是（ ）。
运行下面程序，如果输入80，则输出结果是_____。 Dim a As Integer, i As Integer a = InputBox(input a:) If a > 60 Then i = 1 If a > 70 Then i = 2 If a > 80 Then i = 3 If a > 90 Then i = 4 Print i=
有如下函数过程：Function secproc(x As Integer, y As Integer, z As Integer)secproc = 3 * y + z + 2 * xEnd FunctionPrivate Sub Command1_Click()Dim a As Integer, b As Integer, c As Integera = 2: b = 3: c = 4Print secproc(c, b, a)End Sub该程序的运行结果是（ ）。
设有如下声明语句： Option Base 1 Dim arr(3,-1 To 4) As Integer 则数组arr中数组元素的个数是（ ）
用语句Dim A (-3 To 5) As Integer定义的数组的元素个数是().
假定有如下的程序段： Dim intVar As Integer intVar = True Print intVar 则输出的结果是 _________ 。
在窗体上画一个命令按钮，然后编写如下程序：Sub S1（ByVal X AS Integer，ByVal y As Integer) Dim
窗体中有一个名为Command1的命令按钮和一个名为Text1的文本框，事件代码如下： Private Sub Command1_Click Dim a(10)As Integer，b(10)As Integer n=3 For i=1 T0 5 a(i)=i b(n)=2*n+i Next i Me!Text1=a(n)+b(n) End Sub 打开窗体，单击命令按钮，文本框Text1中显示的内容是（）。
下列程序段错误的是（)。A．Dim a As Integer a=array（1,2,3,4)B．Dim a（),b（) a=array（1,2,3,4): b=
设有如下程序。要使程序的输出结果n的值为5，请将程序补充完整。 Dim x As Integer,n As Integer x=1 Do设有如下程序。要使程序的输出结果n的值为5，请将程序补充完整。 Dim x As Integer,n As Integer x=1 Do x=x+3 n=n+1 Loop Until x=______ MsgBox"n="&n
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Public Enum S a=4 b=3 End Enum Private Sub Command1 Click（） Dim x As Integer x=a If x＞=3 Then MsgBox"Pass!" End Sub 运行程序，其结果是（）。
有如下程序：Private Sub Form_Click（) Dim i As Integer, Sum As Integer sum=0 For i=2 To 10 I
以下程序的输出结果为______。 Dim a（10) As Integer, p（3), i, k As Integer For i = 1 To 10 a（i) = 2 * （i - 1) + 1 Next i For i = 1 To 3 p（i) = a（i * i) Next i For i = 1 To 3 k = k + p（i) 2 Next i MsgBox（k)
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序代码： Option Base 1 Dim arr（) As Integer Private Sub Command1_Click（) Dim i As Integer, j As Integer Dim s As Integer ReDim arr（4, 2) s = 0 For i = 1 To 3 For j = 1 To 2 arr（i, j) = i + j Next j Next i ReDim Preserve arr（4, 4) For j = 3 To 4 arr（3, j) = j + 10 Next j For i = 1 To 4 s = s + arr（i, i) Next i Print s End Sub 程序运行过程中，当单击Command1时，输出结果为________。
有如下程序： Private Sub Command1_Click（) Dim k As Integer，m As Integer Dim p As Integer k=4：m=1 p=PC（k，m)：Print p； p=PC（k，m)：Print p End Sub Private Function PC（a As Integer，b As Integer) Static m As Integ
单击命令按钮时，下列程序的执行结果是（)。 Private Sub Command1_Click（) Dim a As Integer，b As Integer，C As Integer a=3 b=4 c=5 Print SecProc（c，b，a) End Sub Function FirProc （x As Integer，y As Integer，z As Integer) FirProc
在窗体上画—个命令按钮，其名称为Command1，然后编写如下程序： Function M（x As Integer,y As Integer)M=IIf（x＞y,x，y) End FUNction Private Sub Command1 Click（)Dim a As Integer,b As Integera=100b=200Print M（a,B) End Sub 程序运行后，单击命令按钮
在窗体上面画一个命令按钮，然后编写如下程序： Function M（x As Integer，y As Integer)As IntegerM=IIf（x＞y，x，y) End Function Private Sub Command1_Click（)Dim a As Integer，b As Integera=1b=2Print M（a，B) End Sub 程序运行后，单击命令按钮，输出结果为
在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Function M（x As Integer，y As Integer)As Integer M=IIf（x＞y，x，y) End Function Private Sub Command1_Click（) Dim a As Integer，b As Integer a=100 b=200 Print M（a，b) End
在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序； Function M（x As Integer,y As Integer)M=IIf（x＞y,x,y) End Function Private Sub Commandl_Click（)Dim a As Integer,b As Integera=100b=200PrintM（a,B) End Sub 程序运行后，单击命令按钮，
单击命令按钮后，下列程序代码的执行结果是______ 。 Public Sub fun （Byval a （) As Integer) Static n As Integer Do a（n) = a （n) + a（n + 1) n = n + 1 Loop While n ＜ 3 End Sub Private Sub command1_ click（) Dim m As Integer, n
