单选题窗体上有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

【答案解析】[考点] 数组的定义 [解析] 本题考查的考点是有关动态数组的。动态数组以变量作为下标值，在程序运行过程中完成定义，通常分为两步：首先在窗体层、标准模块或过程中用Dim或Public声明一个没有下标的数组(括号不能省略)，然后在过程中随时用ReDim语句可以重定义变量作为下标的数组，重定义后原数组的所有元素值被清空。本题中由于数组下标从0开始，所以单击Command1后输入10，数组被重定义成了11个元素；然后单击Command2输入5，数组又被重定义成了6个元素，所以最后数组中有6个元素。