一个具有10个元素的一维数组,下标从1到10,每个数组元素的值是随机函数产生的1～100之间的随机整数.要求：用Visu

Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 100) + 1
Print a(i);
Next
Print
For i = 1 To 10
For j = 1 To i
If a(i) < a(j) Then t = a(i):a(i) = a(j):a(j) = t
Next
Next
For i = 1 To 10
Print a(i);
Next
End Su