下列程序段的运行结果是（ ）。Dim A As Integer , B As IntegerA = 15B = 4Print 4 + A B

有如下函数过程： 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 该程序的运行结果是（ ）。

有如下程序： Const n = -5 Const m = 6 Dim a(n To m) As Integer For i = LBound(a, 1) To UBound(a, 1) a(i) = i Next i Print a(LBound(a, 1)); a(UBound(a, 1)) 运行后输出的结果为（ ）。

运行下面程序，如果输入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 abc(n As Integer) As Integerabc = n * 2 + 1End FunctionPrivate Sub Command1_Click()Dim x As Integerx = abc(3) * abc(4)Print xEnd Sub

假定有如下的Sub过程：Sub fun(x As Single, y As Single)t = xx = t / yy = t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a As SingleDim b As Singlea = 6b = 4fun a, bPrint a, bEnd Sub程序运行后，单击命令按钮，输出结果为（ ）。

执行下列程序后，输出的结果是： Function Fun1(ByVal a As Integer, b As Integer) As Integer Dim t As Integer t = a - b b = t + a Fun1 = t + b End Function Private Sub Command1_Click() Dim x As Integer x = 10 Print Fun1(Fun1(x, (Fun1(x, x - 1))), x - 1) End Sub

下列程序段的运行结果为（ ）。 Dim a Dim s%, i% a = Array(1, 2, 3, 4, 5) For i = 1 To 3 s = s + a(i) ^ 2 Next i Print s

运行下面程序，如果输入80，则输出结果是_____。Dim a As Integer, i As Integera = InputBox(\input a:\)If a > 60 Then i = 1If a > 70 Then i = 2If a > 80 Then i = 3If a > 90 Then i = 4Print \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该程序的运行结果是（ ）。

下面程序段的运行结果为________。 Dim s As Integer, i As Integer i = 1: s = 1 Do i =i + s Loop Until s >20 Print i, s

下列程序的执行结果是 _ ________ __ Dim a(5) As String Dim b As Integer Dim I As Integer For I = 0 To 5 a(I) = I + 1 Print a(I); Next I

有如下程序：Dim a(3，3)As IntegerFor m ＝ 1 To 3For n ＝ 1 To 3a(m，n)＝(m-1)*3＋nNext nNext mFor m ＝ 2 To 3For n ＝ 1 To 2Print a(n，m)；Next nNext m运行后，输出结果是( )。

下列程序段的执行结果为______。Dim A（3，3)For M=1 To 3For N=1 To 3If N=M 0r N=3-M+1 Then A（M，

在窗体上画一个名称为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 运行程序，其结果是（）。

下列程序段的执行结果为（)。Dim A（3，3)For M=1 To 3For N=1 To 3If N=M Or N=3-M+1 Then A（M, N)=

以下程序段运行的结果是 ______。Dim a（-1 To 5)As BooleanDim flag As Booleanflag=FalseDim i A

下列程序段的执行结果为______ 。Dim A（4)N= 3A（1) =1For K=0 To N-1For L=1 To K+1 X=K+2 -L A（X

以下程序段运行的结果是______。Dim a（-1 To 5) As BooleanDim flag As Booleanflag = FalseDim i

下列程序段的执行结果是（）。 Dim x As Integer x = 76 Select Case x Case Is ＞= 60 Form1.Print "及格" Case Is ＞ 75 Form1.Print "良好" Case Is ＞= 90 Form1.Print "优秀" Case Else Form1.Print "不及格" End Select

单击命令按钮时，下列程序的执行结果是（)。 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

下面程序段的执行结果是（）。 Dim A（5) As Interger For i=1 To 5 A（i)=i*i Next i Print A（i-1)

在窗体上面画一个命令按钮，然后编写如下程序： 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 程序运行后，单击命令按钮，输出结果为

下列程序段运行结束后，消息框中的输出结果是_______。 Dim C As Boolean A=Sqr（3) B=Sqr（2) C=a＞b MsgBox C

下列程序段的输出结果为（）。 Dim A（5) For i=1 to 5 A（i)=i*i Next i Print A（i)