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