关于Vb6.0的编程题

Dim a(9) As Integer, temp As Integer
Randomize
For i = 0 To 9
a(i) = Int(Rnd * 89 + 10)
Print a(i);
Next
Print
For i = 0 To 9
For j = i + 1 To 9
If a(i) < a(j) Then
temp = a(i)
a(i) = a(j)
a(j) = temp
End If
Next
Print a(i);
Next
第二个：
dim A(1,6),B(1,6)
a(0) = array(35,67,52,50,103,115,125,101)
a(1) = array(33,47,66,39,133,127,132,135)
B(0) = array(47,66,66,41,111,103,134,118)
B(1) = array(30,69,55,38,123,109,113,130)

Option Base 1
Dim a(10) As Integer
Dim i, j, k As Integer 放在通用声明里

Private Sub Command1_Click()
For i = 1 To 10
For j = i + 1 To 10
If a(i) < a(j) Then
k = a(i): a(i) = a(j): a(j) = k
End If
Next j
Print a(i);
Next i
End