窗体上有Command1、Command2两个命令按钮。现编写以下程序： Opti

问题单项选择题

窗体上有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 C1ick()
m=InputBox("请输入一个正整数")
ReDim a(m)
End Sub
运行程序时，单击Command1后输入整数10，再单击Command2后输入整数5，则数组a中元素的个数是( )

A．5
B．6
C．10
D．11

答案

参考答案：B

解析： Visual Basic中有两种类型的数组：固定大小的数组及动态数组。固定大小的数组总是保持同样的大小，而动态数组在运行时可以改变大小。要使用动态数组可以先声明一个不指明大小的空数组(即没有维数下标)，然后再用ReDim语句在过程中改变数组大小。在一个程序中，可以多次用ReDim语句定义同一个数组，以修改其元素的个数。
Option Base 0语句的作用是限定数组下标的默认下限值为0，此时数组某一维的元素个数等于该维下标上界值加1。
本题中，数组a的上界先被指定为10，后又重新设定为5，故该数组中元素的个数应为5+1=6。