真题答案

k
Next j
For j=2 To 3
For k=2 To 3
Print arr(k,j);
Next k
Print
Next j
运行后，输出的结果是 B 。
A）2 5
3 6
B）5 8
6 9
C）4 7
5 8
D）5 9
92.语句Dim abc(-2 To 4,0 To 4,5)As Long 定义的三维数组，其数组元素有 D 。
A）96个
B）112个
C）140个
D）210个
93下列程序段的执行结果为 B 。
Dim A(4)
n=3
A(1)=1
For k=0 To n-1
For l=1 To k+1
X=k+2-1
A(X)=A(X)+A(X-1)
If k<n-1 Then Exit For
Print A(X);
Next 1
Next k
A）1 2 1
B）1 2 3
C）2 4 6
D）1 3 1
94.有如下程序，运行后输出的是 D 。
Option Base 1
Private Sub Command1_Click()
Dim aj(1 To 10)
For j=6 To 10
aj(j)=j*2
Next j
Print aj(1)+aj(j)
End Sub
A）5
B）20
C）22
D）显示出错信息
95.下列程序的输出结果为 A 。
Private Sub Command1_Click()
Dim a(20)
For j=1 To 20 Step 2
a(j)=j
Next j
Print a(1)+a(2)+a(3)
End Sub
A）4
B）5
C）6
D）7
96.使用ReDim Preserve可以改变数组的 A 。
A）最后一维的大小
B）第一维的大小
C）所有维的大小
D）改变维数和所有维的大小
97.以下程序的输出结果是 C 。
Private Sub Command1_Click()
Dim a(-5 To 6)
For i=LBound (a,1) To UBound (a,1)
a(i)=i
Next i
Print a(LBound(a,1));a(UBound(a,1))
End Sub
A）0 0
B）-5 0
C）-5 6
D）0 6
98.下列程序段的执行结果为 C 。
K=0
For J=1 To 2
For I=1 To 3
K=I+1
Next I
For I=1 To 7
K=K+1
Next I
Next J
Print K
A）10
B）6
C）11
D）16
99.下列程序段的执行结果为 B 。
x=Int(Rnd+4)
Select Case x
Case 5
Print "优秀"
Case 4
Print "良好"
Case 5
Print "合格"
Case Else
Print "不合格"
End Select
A）优秀
B）良好
C）合格
D）不合格
100.已知数组a(1 To 10)As Integer,下面调用GetValue函数正确的是 B 。
Private Function GetValue(a() As Integer) As Integer
For i=1 To 10
GetValue=GetValue+a(i)
Next i
End Function
A)S=GetValue(a(1 To 10))
B)S=GetValue(a)
C)S=GetValue(a(10))
D)S=GetValue a
101.运行下面程序后，输出结果为 B 。
Private Sub Command1_Click()
a=1:b=2:c=3
Call test(a,b+3,c)
Print "main:";a;b;c
End Sub
Private sub test(p,m,n)
p=p+1:m=m+1:n=n+1
Print "sub:";p;m;n
End sub
A)sub:2 6 4
main:1 2 3
B)sub:2 4 6
main:2 2 3
C)sub:2 6 4
main:2 6 4
D)sub:2 6 4
main:1 6 4
102.下面程序的运行结果为 B 。
Private Sub Command1_Click()
Dim a As Integer
a=2
For i=1 To 3
Print F(a)
Next i
End Sub
Private Function F(a As Integer)
b=0
Static c
b=b+1
c=c+1
f=a+b+c
End Function
A)4
4
4
B)4
5
6
C)4
6
8
D)4
7
9
103.执行按钮单击事件，输出结果为 A 。
Private Sub Command1_Click()
Dim a(1 To 4) As Integer
a(1)=5:a(2)=6:a(3)=7:a(4)=8
P a()
For i=1 To 4
Print a(i)
Next i
End Sub
Private Sub P(b() As Integer)
For i=1 To 4
b(i)=2*i
Next i
End Sub
A)2
4
6
8
B)5
6
7
8
C)10
12
14