问题
单项选择题
窗体上有Command1、Command2两个命令按钮。现编写以下程序：
Option Base 0
Dim a() As Integer, in As Integer
Private Sub Command1_Click()
m=InputBox("请输入一个正整数")
ReDim a(m)
End Sub
Private Sub Command2_Click()
In=InputBox("请输入一个正整数")
ReDim a(m)
End Sub
运行程序，单击Command1后输入整数10，再单击Command2后输入整数5，则数组a中元素的个数是
A．5
B．6
C．10
D．11
答案
参考答案：B
解析： ReDim语句用于重新设置数组上下界，数组元素个数的多少由最近一次ReDim语句决定。本题先单击Command1，再单击Command2，所以最后数组元素个数由Command2事件过程中的ReDim a(m)语句来决定。通过InputBox函数接收到的整数5赋给变量m(此处VB自动将输入内容转换为变量m的类型)，然后将m设置为数组上界，由于默认下界设置为0，所以数组元素个数为6，本题的答案为B。