单项选择题

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