单项选择题

窗体上有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中元素的个数是