难易度：1
题目 ：139、以下程序的运行结果是（ ）。
Private Sub Command5_Click() Dim x As Integer For I = 1 To 10
If I Mod 3 = 0 Then x = x + I End If Next I Print x End Sub
答案: 18 权重：3 难易度：2
题目 ：140、 单击命令按钮时，下列程序代码的执行结果为（ ）。
Public Function MyFunc(m As Integer, n As Integer) As Integer Do While m <> n Do While m > n m = m - n Loop
Do While m < n n = n - m Loop
MyFunc = m Loop
End Function
Private Sub Command1_Click() Print MyFunc(24, 18) End Sub
答案: 6 权重：4 难易度：2
题目 ：141、函数和调用它的事件过程如下，则该程序运行结果为( )。
Function func(a As Integer, b As Integer) As Integer Static m As Integer Static I As Integer m = 0 I = 2
I = I + m + 1 m = I + a + b func = m End Function
Private Sub Command2_Click() Dim k As Integer Dim m As Integer Dim p As Integer
k = 4 m = 1
p = func(k, m) Print p;
p = func(k, m) Print p End Sub
答案: 8 8 权重：3 难易度：3
题目 ：142、下列程序段的执行结果为( )。 N = 0 J = 1
Do Until N > 2 N = N + 1
J = J + N * (N + 1) Loop
Print N; J
答案: 3 21 权重：3 难易度：1
题目 ：143、下列程序段的执行结果为( )。
Dim A(10, 10) For I = 2 To 4 For J = 4 To 5 A(I, J) = I * J Next J Next I
Print A(2, 5) + A(3, 4) + A(4, 5) 答案: 42 权重：3 难易度：2
题目 ：144、下列程序执行后，变量S的值为( )。
Dim s as integer,n as intger s=0:n=1
do until n>10 s=s+n n=n+1 Loop
答案: 55 权重：3 难易度：1
题目 ：145、下列是一个计算1到50的奇数的和的程序，请补充完该程序。 Private Sub Command3_Click() Dim s As Long Dim x As Integer s = 0
For x= ( ) Step -2 s = s + x Next x Print s End Sub
答案: 99 to 1 权重：4 难易度：2
题目 ：146、以下程序的运行结果是( )。
Private Sub Command6_Click() Dim x As Integer Dim I As Integer x = 1
Do Until x > 10
If x Mod 3 <> 0 Then I = I + x End If
x = x + 1 Loop
Print I End Sub
答案: 37 权重：3 难易度：1
题目 ：147、下列程序的运行后，变量s的值为( )。 J = 0: s = 0 For I = 1 To 4 j = j + I s = s + j Next I
答案: 20 权重：2 难易度：2
题目 ：148、执行下列程序后，X的值为( )。 X = 3 y = 6
Do While y <= 6 x = x * y y = y + 1 Loop
答案: 18 权重：3 难易度：2
题目 ：149、有如下一个Sub过程： Sub pb(b() As Integer) For I = 1 To 4 b(I) = 2 * I Next I
End Sub
在窗体上添加一个命令按纽，名为Command1，事件过程如下，则运行结果是( )。
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
答案: 2 4 6 8 权重：4 难易度：2
题目 ：150、下列程序段的执行结果为( )。 A = 0 B = 1 Do
A = A + B B = B + 1
Loop While A < 10 Print A; B
答案: 10 5 权重：3 难易度：1
题目 ：151、单击窗体时，下列程序代码的执行结果为( )。
Private Sub Value(ByVal m As Integer, ByVal n As Integer) m = m * 2 n = n - 5 Print m; n End Sub
Private Sub Command1_Click() Dim x As Integer Dim Y As Integer x = 10 Y = 15
Call Value(x, Y) Print x; Y End Sub
答案: 20 10
10 15 权重：4 难易度：2
题目 ：152、下列程序的执行结果为题目 ：156、下列程序的输入值为5时，( )。
Dim S AS Integer,n AS Integer S=0：n=1
Do While n<=100 S=S+n n=n+1 Loop
Print s
答案: 5050 权重：3 难易度：2
题目 ：153、下列程序的输入值分别为100，10，则执行结果为( )。 M=Val(inputbox(\请输入数字1\n=Val(inputbox(\请输入数字2\If n*m=0 Then
MsgBox \两数都不能为0\Exit Sub
If m t=m：m=n：n=t End If End If DO R=m Mod n m=n n=f Loop While r <> 0 Print m 答案: 10 权重：4 难易度：2 题目 ：154、下列程序的执行结果为( )。 100 k=k+1 s=s+k If k<=10 Then Goto 100 答案: 66 权重：3 难易度：1 题目 ：155、下列程序的执行结果为( )。 A = 100 b = 50 If a > b Then a = a - b Else b = b + a Print a, b 答案: 50 50 权重：3 难易度：2 其运行结果为( )。 Dim A As Integer A = InputBox(\请输入a的值\ If A > 10 Then If A >= 15 Then Print \Else Print \ Else If A >= 5 Then Print \Else Print \ End If 答案: C 权重：3 难易度：1 题目 ：157、下列程序的执行结果为( )。 Dim intsum As Integer Dim I As Integer intsum = 0 For I = 0 To 50 Step 10 intsum = intsum + I Next I Print intsum 答案: 150 权重：3 难易度：2 题目 ：158、下列程序段的执行结果为( )。 A = \B = \ E = Right(A, 3) F = Mid(B, 2, 3) If E < F Then Print E + F Else Print F + E End If 答案: bcdcde 权重：2 难易度：2 题目 ：159、下列程序段的执行结果是( )。 Z = \For I = 6 To 2 Step -3 u = String(I, z) v = Left(z, I) w = Mid(z, I, I) x = Right(z, I) Y = x + w + v + u Y = Right(Y, 1) Next I Print Y 答案: A 权重：3 难易度：1 题目 ：160、 以下程序段的执行结果是( )。 X = 2 Y = 1 If x * Y < 1 Then Y = Y - 1 Else Y = -1 Print Y - x > 0 End If 答案: False 权重：3 难易度：2 题目 ：161、下列程序段的执行结果为( )。 Dim X(3, 5) For I = 1 To 3 For J = 1 To 5 X(I, J) = X(I - 1, J - 1) + I + J Next J Next I Print X(3, 4) 答案: 15 权重：2 难易度：1 题目 ：162、下列程序的输入值为15时，其运行结果为( )。 Dim A As Integer A = InputBox(\请输入a的值\ If A <= 10 Then If A >= 15 Then Print \Else Print \ Else If A >= 5 Then Print \Else Print \ End If 答案: C 权重：3 难易度：2 题目 ：163、下列程序的输入值为15时，其运行结果为( )。 Dim a as integer A = InputBox(\请输入a的值\Select case A Case 1 to 4 Print \ Case 5 to 10 Print \ Case IS=15 Print \ Case else Print \End select 答案: B 权重：3 难易度：1 题目 ：164、下列程序的执行结果为( )。 Dim intsum As Integer Dim I As Integer intsum = 0 For I = 20.2 To 5 Step -4.7 intsum = intsum + I Next I Print intsum 答案: 50 权重：2 难易度：1 题目 ：165、 下列程序共执行了( )循环。 Dim intsum As Integer Dim I As Integer Dim j As Integer I = 1 Do j = 1 Do intsum = intsum + j j = j + 2 Print j; Loop Until j > 3 I = I + 2 Loop Until I > 10 Print intsum 答案: 10 权重：3 难易度：2 题目 ：166、 以下程序输出1到1000之间所有的偶数的和，请补充完该程序。 Private Sub Command5_Click() Dim x As Double For I = 0 To 1000 If ( ) Then x = x + I End If Next I Print x End Sub