(26)设有声明语句
Option Base 1
Dimb(-1 To 10, 2 To 9, 20)As Integer
则数组b中全部元素的个数
A)2310
B)1920
C)1500
D)1658
正确答案: B
(27)单击命令按钮，下列事件过程的执行结果为
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x=40: y=72
Call PtoP(x, y)
Print x; y
End Sub
Public SubPtoP(Byval n As Integer, ByVal m As Integer)
n=n ＼ 10+2
m=m ＼10+2
End Sub
A)0 8
B)40 72
C)4 50
D)78 50
正确答案: B
(28)下列程序的执行结果为
Private Sub Command1_Click()
Dim p AsInteger, q As Integer
p=12: q=20
Call Value(p, q)
Print p;q
End Sub
Private Sub Value(ByVal m As Integer, ByVal n As Integer)
m=m * 2: n=n - 5
Print m; n
End Sub
A)20 12
20 15
B)12 20
12 25
C)24 15
12 20
D)24 12
12 15
考生答案: 正确答案: C
(29)在窗体上画一个命令按钮，然后编写如下程序：
Private SubCommand3_Click()
Cop 2
Cop 3
Cop 4
End Sub
Sub Cop (aAs Integer)
Static x As Integer
x=x + a
Print x;
EndSub
程序运行后，单击命令按钮，输出结果为
A)2 3 4
B)2 5 9
C)3 5 4
D)2 4 3
正确答案: B
(30)有如下事件过程，单击命令按钮扣，输出结果为
Private SubCommand1_Click()
Dim b%(1 To 4), j%, t#
For j=1 To 4
b(j)=j
Next j
t=Tax(b())
Print "t="; t,
End Sub
FunctionTax (a()As Integer)
Dim t#, i%
t=1
For i=2 To UBound(A)
t=t * a(i)
Next i
Tax=t
End Function
A)t＝18
B)t＝24
C)t＝30
D)t＝32
正确答案: B
上一页 [1] [2] [3] [4] [5] [6] 下一页
责任编辑：小草
