菜鸟问题,请赐教!
这段程序运行后出错,提示下标越界!Private Sub Command1_Click()
Dim a() As String
Dim n As Long
ReDim a(n)
Dim k As Integer, m As Integer
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