1、下列程序段的执行结果为__4  6______。
Dim a(10) As Integer, b() As Integer
Dim i As Integer
ReDim b(5)
For i = 1 To 10
a(i) = i
If i Mod 2 = 0 Then
b(i/2) = a(i)
End If
Next i
Print a(4); b(3)
2、执行下列程序段，输出结果为 __7  0    ________。Dim a(10) As Integer
Dim i As Integer
For i = 1 To 10
a(i) = 2 * i - 1
Next i
Print a(4);
Erase a
Print a(4)
执行下列程序段，输出结果为 ___出错
Dim a() As Integer
Dim i As Integer
ReDim a(10)
For i = 1 To 10
a(i) = 2 * i - 1
Next i
Print a(4);
Erase a
Print a(4)
3、执行下面的程序，输出结果是_____18  30______。
Option Explicit
Private Sub Form_Click()
Dim M As Integer,N As Integer
M=1:N=2
Print M+N+F(M,N)
M=2:N=1
Print F(M,N)+F(M,N);
End Sub
Private Function F(X As Integer,Y As Integer)
X=X+Y
Y=X+3
F=X+Y
End Function
4、下面程序段中，在窗体上显示的结果为___5  15__________。
Private Sub Command1_Click()
Dim b As Integer, k As Integer
b = 1
For k = 1 To 5
b = b * k
If b >= 15 Then
Exit For
Else
k = k + 1
End If
Next k
Print k, b
End Sub
5、执行以下程序段，第一行输出结果是_6 5 4 3，第二行输出结果是123_______。 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
Print
a = Array("abc", "123", "def")
Print a(1)
End Sub
6、执行以下程序，单击命令按钮后，输出结果是0 1 2 3 4 5 6 7 8 9 10______。
Private Sub Command1_Click()
Dim a(10) As Integer
Dim b
For i = 1 To 10
a(i) = i
Next i
For Each b In a
Print b;
Next b
End Sub
7、运行如下程序后，输出结果为__21 27____。
Dim i As Integer, y As Integer
For i = 3 To 15 Step 3
y = y + i
i = i + 3
Next i
Print i; y
8、运行以下程序，单击命令按钮后在窗体上输出内容____0_____。Private Sub Command1_Click()
Dim a() As Integer
Dim i As Integer, j As Integer
ReDim a(3, 4)
For i = 1 To 3
For j = 1 To 4
a(i, j) = (i - 1) * 10 + j
Next j
Next i
ReDim a(4, 5)
Print a(2, 3)
End Sub
9、下列程序段的执行结果为 ____0 2 2 3  ____。
Dim M(2)
For i=1 To 2
M(i)=0
Next i
K=2
For i=1 To k
For j=1 TO k
M(j)=M(i)+1
Print M(k);
Next j
Next i
10、运行下面程序，输出结果是__8  ___。
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
Dim d As Integer
a = 5
b = -3
c = 8
d = IIf(a > b And a > c, a, IIf(b > c, b,c))
print d
End Sub
11、阅读下列程序，输出结果是__30_0____。
Private Sub Command1_Click()
Dim i As Integer
For i = 10 To 1 Step -2
s = s + i
Next i
Print s,i
End Sub
12、阅读下面程序，当单击窗体后，窗体上输出的是_17 13 3________。
Private Sub Form_Click()
Dim i As Integer, k As Integer
Dim a As Integer, b As Integer
a = 5:
b = 1
For i = 1 To a + b Step b
i = i + 1
a = a + i
b = b + i
k = k + 1
Next i
Print a; b; k
End Sub
13、运行下面的程序，当单击窗体时，窗体上显示的内容为_31 63_________。
Private Sub Test(x As Integer)
x = x * 2 + 1
If x < 8 Then
Call Test(x)
End If
x = x * 2 + 1
Print x;
End Sub
Private Sub Form_Click()
Test 3
End Sub
14、执行下面的程序段，输出结果是_ABCBCD________。
vba计算字符串长度Dim str1 As String, str2 As String
str1 = "abc"
str1 = UCase(str1)
For i = 1 To 3
str2 = Chr(Asc(str1) + i)
str1 = str1 & str2
Next i
Print str1
15、执行以下程序段，则第一行输出结果是__5 3 ___，第二行输出结果是-3 0____。Dim a(-3 To 5) As Single
Dim b(3, 4) As Integer
Print UBound(a), UBound(b, 1)
Print LBound(a), LBound(b, 2)
16、执行下列语句:
16、运行如下程序段，输出结果为___16_____。
Private Sub command1_click()
a = 1:
b = 2:
c = 3
a= a + b: b = b + a: c = b + a
If a <> 3 Or b <> 3 Then
a =
b - a: b =
c - a: c = b + a
End If
Print a + b + c
End Sub
17、运行以下程序，单击命令按钮后，如果用户从键盘上输入6、5、4、3、2、1，则窗
体上输出内容为____9_____。
Private Sub Command1_Click()
Dim a() As Integer
Dim i As Integer, j As Integer
ReDim a(6)
For i = 5 To 10
a(10 - i + 1) = InputBox("input number")
Next i
ReDim Preserve a(10)
a(10) = a(5) + a(4)
Print a(10)
End Sub
18、运行如下程序后，输出结果为___19_____。
For m = 1 To 4
a = 0
For j = 1 To 5
a = 1
For k = 1 To 6
a = a + 3
Next k
Next j
Next m
Print a
19、下列程序段的执行结果为___12 2 4________。
n = 0
For i = 1 To 3
For j = 5 To i Step -1
n = n + 1
Next j
Next i
Print n; j; i
20、运行下面的程序，第二行显示结果是11 22 33___________。
Option Base 1
Private Sub Form_Click()
Dim a, b(), i, j, k
a = Array(11, 12, 13, 21, 22, 23, 31, 32, 33)
ReDim b(3, 3)
Call read(a, b)
Call prt(b)

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。