关于vb数组的编程

Option Explicit '这行的意思是所有变量都要显式定义，未定义的变量不能使用

Private Sub Form_Click()
Dim x(5) As Integer '定义数组
Dim i As Integer, j As Integer, t As Integer, k As Integer '所有用到的变量都要定义
x(1) = 8: x(2) = 3: x(3) = 1: x(4) = 6: x(5) = 4 '数组赋初始值
For i = 1 To 4 '此4行是把数组由大到小排序
For j = i + 1 To 5
If x(i) < x(j) Then t = x(i): x(i) = x(j): x(j) = t
Next j, i
For k = 1 To 5 '此三行把排序后的数组显示在窗体上
Form1.Print "x("; k; ")="; x(k)
Next k

End Sub

补充一点：Next j, i 虽然是不太规范的用法，但实际上在语法上却是没错的。所以1楼的说错了

Next j, i
改为
Next j
Next i

变量j没有定义。变量i也没有定义。
由于是Option Explicit，所有变量都需要定义。共有i,j,k三个。
另外循环语句结尾的next不需要跟变量名