(26)单击一次命令按钮后,下列程序的执行结果为
Private Sub Command1_Click()
Dim m As Integer, I As Integer, x(10)As Integer
For I=0 To 4: x(I)=I + 1: Next I
For I=1 To 2: Call Prioc(x): Next I
For I=0 To 3: Print x(I);: Next I
End Sub
Private Sub Prioc(a()As Integer)
Static I As Integer
Do
a(I)=a(I)+ a(I + 1)
I=I + 1
Loop While I < 2
End Sub
A)3 4 7 5
B)3 5 7 4
C)1 2 3 4
D)1 2 3 5
正确答案: B
(27)下面程序段的运行结果是
a=1
b=1
Do
a=a + 1
b=b + 1
Loop Until b > 5
Print "k="; a; Spc(4); "b="; b + a
A)k=7 b=14
B)k=6 b=6
C)k=4 b=8
D)k=6 b=12
正确答案: D
(28)以下能够正确计算n!的程序是
A)Private Sub Command1_Click()
n=5: x=1
Do
x=x * I
I=I + 1
Loop While I < n
Print x
End Sub
B)Private Sub Command1_Click()
n=5: x=1: I=1
Do
x=x * I
I=I + 1
Loop While I < n
Print x
End Sub
C)Private Sub Command1_Click()
n=5: x=1: I=1
Do
x=x * I
I=I + 1
Loop While I <=n
Print x
End Sub
D)Private Sub Command1_Click()
n=5: x=1: I=1
Do
x=x * I
I=I + 1
Loop While I > n
Print x
End Sub
正确答案: C
(29)下列程序段,在运行时最后输出的内容是
a=2
c=1
AAA:
c=c + a
If c < 10 Then
Print c
GoTo AAA
Else
Print "10以内的奇数显示完毕"
End If
A)3
B)7
C)9
D)10以内的奇数显示完毕
正确答案: D
(30)单击命令按钮时,下列程序的执行结果为
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a=2: b=3: c=4
Print P2(c, b, A)
End Sub
Private Function P1(x As Integer, y As Integer, z As Integer)
P1=2 * x + y + 3 * z
End Function
Private Function P2(x As Integer, y As Integer, z As Integer)
P2=P1(z, x, y)+ x
End Function
A)21
B)19
C)17
D)34
正确答案: A
责任编辑:小草