菜鸟问题，望赐教！

[zhouwenhong0427]

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

[zhouwenhong0427]

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

[网络精灵]

你主要是没有给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