问题
单项选择题
窗体上有Command1、Command2两个命令按钮。现编写以下程序：
Option Base 0
Dim a() As Integer, m As Integer
Private Sub Command1_Click()
m = InputBox( "请输入一个正整数" )
ReDim a(m)
End Sub
Private Sub Command2_Click()
m = InputBox( "请输入一个正整数" )
ReDim a(m)
End Sub
运行程序时，单击Command1后输入整数10，再单击Command2后输入整数5，则数组a中元素的个数是( )。
A) 5
B) 6
C) 10
D) 11
答案
参考答案：B
解析： 程序中Option Base 0表示指定数组的下标默认下界为0。ReDim语句用来重新定义动态数组，按定义的上下界重新分配存储单元。在一个程序中，可以多次用ReDim语句定义同一个数组，随时修改数组中元素的个数。程序中先执行ReDim a(10)，然后执行了ReDim a(5)，因此数组a的下界为0，上界为5，共有6个元素。