选择、循环结构程序测试2016

选择、循环结构程序测试
一、选择题：
1、下列程序：
Private Sub Form_Click()
For j = 1 To 20
a = a +j \ 7
Next J
Print a
End Sub
在运行时输出a的值是（）
A、21
B、41
C、63
D、210
2、下列程序：
Private Sub Form_Click()
a =3
b = 4
x = a + b
If a> b Then x =a - b
Print x
End Sub
输出x的值是（）
A、3
B、1
C、7
D、-1
3、下列程序：
Private Sub Form_Click()
a = 1:
b = 1
For i= 1 To 3
a = a + b
b = b + a
Next i
Print a; b
End Sub
该程序的输出结果是（）
A、6 6
B、5 8
C、13 21
D、34 55
4、下列程序：
Private Sub Form_Click()
For j = 1 To 15
a = a + j Mod 3
Next j
Print A
End Sub
运行后输出的结果是（）A、1 B、15 C、90 D、120
5.下列程序：
Private Sub Form_Click()
S = 0
n= 5
For i = 1 To n
S = S + n
Next i
Print S
End Sub
运行后输出结果是（）
A、15
B、20
C、25
D、30
6、下列程序：
Private Sub Form_Click()
For j = 1 To 10
a = Val(Inputbox("请输入一个数"))
If a / 3 = a \ 3 Or a / 5 = a \ 5 Then
Sum = Sum + a
End If
Next j
Print "Sum="; Sum
End Sub
运行时在输入对话框中依顺序输入：19、17、15、13、11、9、7、5、3、1，输出sum的值是（）
A、27
B、15
C、32
D、20
7、下列程序：
Private Sub Form_Click()
Dim a as string,b as string
a = "54321":
b = "abcde"
For j = 1 To 5
Print Mid$(a, 6 - j, 1) + Mid$(b, j, 1); Next j
Print
End Sub
运行后输出的结果是（）
A、a1b2c3d4e5
B、a5b4c3d2e1
C、e1d2c3b4a5
D、1a2b3c4d5e
8、下列程序：
Private Sub Form_Click()
S = 0
Do while s<=30
S = (S + 1) * (S + 2)
Num = Num + 1
Loop
Print Num; S
End Sub
运行后输出的结果是（）
A、0 1
B、30 30
C、4 30
D、3 182
9、下列程序：
Private Sub Form_Click()
b = 1
a = 2
Do While b < 10
b = 2 * a + b
Loop
Print b
End Sub
运行后输出的结果是（）
A、13
B、17
C、21
D、33
10、下列程序：
Private Sub Form_Click()
a = Inputbox("a=?")
b = Inputbox("b=?")
x = a * a + b
If b > a Then x =b * b +a
Print x
End Sub
运行后从键盘输入3和4，输出的结果是（）
A、12
B、13
C、19
D、20
二、程序填空
1、下列程序：
Private Sub Form_Click()
Dim a as string
a = "A Worker Is Over There"
n = Len(a)
For i = 1 To n - 1
b = Mid$(a,i, 2)
If b = "er" Then s = s + 1
Next i
Print s
End Sub
运行后输出的结果是_______________.
2、下面程序的功能是计算1到10之间的奇
数之和与偶数之和，请补充程序。

Private Sub Form_Click()
a = 0:
b = 0
For i = 1 To 10 Step 1
If then a=a+i
If then b=
Next i
Print "奇数之和="; a
Print "偶数之和="; b
End Sub
3、下面程序运行后文本框1显示的结果是
____________________
Private Sub Command1_Click()
Dim i As Integer, sum As Integer
sum = 0
For i = 1 to 10
If i Mod 3=0 Then sum = sum + i
Next i
Text1.Text=Str(sum)
End Sub
4、统计字符串s中的小写字母及大写字母的个数并分别显示在文本框2和文本框3中. 请补充程序。

Dim i As Integer，c As String，s As String，x As Integer，y As Integer
s= "2012 Hero "：x=0：y=0
For i=1 To Len（s）
c=Mid（s，i，1）
If c>=”a” And c<=”z” Then x=
If Then y=
Next i
Text1.Text=str(x)
Text1.Text=str(y)。