VB系统说缺少数组或用户定义类型，求大神解答

Question

Private Sub Command1_Click()

Call ABC(x, n)
Text1 = Str(x(1))

For i = 2 To vn
Text1 = Text1 & Str(x(i))
Next i
End Sub

Private Sub ABC(x%(), n)
Dim a%
n = Val(InputBox("n的值为"))
ReDim x(1 To 100)
For i = 1 To n
x(i) = Int(Rnd * 100 + 1)
Next i
For j = 1 To n - 1
For i = j To 1 Step -1
If x(i) > x(i + 1) Then
a = x(i): x(i) = x(i + 1): x(i + 1) = a
Else
Exit For
End If
End Sub

Answer 1

Private Sub Command1_Click()
    Dim x()
    n = Val(InputBox("n的值为"))
    ReDim x(1 To n)
    Call ABC(x, n)
    Text1 = Str(x(1))
    For i = 2 To n
        Text1 = Text1 & Str(x(i))
    Next i
End Sub

Private Sub ABC(x, n)
    '随机获取数值
    For i = 1 To n
        x(i) = Int(Rnd * 100 + 1)
    Next i
    '排序
    For j = 1 To n - 1
    For i = j To 1 Step -1
        If x(i) > x(i + 1) Then
            a = x(i): x(i) = x(i + 1): x(i + 1) = a
        End If
    Next i, j
End Sub

本回答被提问者采纳

Answer 2

没有引用 Microsoft ActiveX Data Objects 2.0 LIbrary造成的
菜单“工程”-“引用”

PS：实时错误‘438’在哪一句？

ps:这个程序是哪里拷贝的？StatusBar1(0)是状态栏控件数组，你添加了该控件么？
菜单“工程”-“部件” Microsoft
windows commom controls 6.0
注意是 控件 数组
另外Panels(4)也是要通过StatusBar1(0).Panels.Add增加Panels的数量，否则会下标越界
晕倒……