一个vb作业 不知道哪错了 谢谢

Option Base 1
Dim i%, j%, k%, c%, x%, a%(6, 10), q(), b()
Private Sub Command1_Click()

For i = 1 To 6
For j = 1 To 10
x = Int(Rnd * 101 + 100)
a(i, j) = x
Picture1.Print a(i, j);
Next j
Picture1.Print
Next i

m = 0: n = 0
If a(i, j) Mod 2 = 0 Then
n = n + 1
q(n) = a(i, j)
Else
m = m + 1
b(m) = a(i, j)
End If
For i = 1 To n - 1
For j = i + 1 To n
If q(i) > q(j) Then
c = q(i): q(i) = q(j): q(j) = c
End If
Next j
Next i

j = 0
For i = 1 To m - 1
For j = i + 1 To m
If q(i) < q(j) Then
c = q(i): q(i) = q(j): q(j) = c
End If
Next j
Next i

For i = 1 To 10
Text1.Print q(n);
j = j + 1
If j = 10 Then j = 0: Text1.Print

Text2.Print b(m);