可以使用LBound函数
例如：
Private Sub Command1_Click() Dim a(10) As Integer a(LBound(a)) = 4 '向一维数组的第一个元素赋值End Sub
只要定义了数组,不赋值的话,它就默认为空或者0
