菜鸟问题，望赐教！

Question

这段程序运行后出错，提示下标越界！

Answer 1

Private Sub Command1_Click()
Dim a() As String
Dim k As Integer, m As Integer
Dim n As Long
ReDim a(n)
Dim l1 As Long, l As Long
k = 1: m = 1
a(0) = CStr(k)
a(1) = CStr(m)
a(2) = a(0) + "," + a(1)l1 = Len(a(2))
Text1.Text = CStr(l1)
l = CLng(a(2))
Text2.Text = CStr(l)
End Sub

Answer 2

你主要是没有给n赋值，给变量n赋上一个值就行了，例如：
Private Sub Command1_Click()
Dim a() As String
Dim k As Integer, m As Integer
Dim n As Long
n = 2 '你只用到了a(2)，给n赋2就行
ReDim a(n)
Dim l1 As Long, l As Long
k = 1: m = 1
a(0) = CStr(k)
a(1) = CStr(m)
a(2) = a(0) + "," + a(1)l1 = Len(a(2))
Text1.Text = CStr(l1)
l = CLng(a(2))
Text2.Text = CStr(l)
End Sub