Dim j%For i = 1 To 30 For j = 1 To 7 If i = myarray(j) Then Print i; End If Next jNext iPrint这段代码看起来就是把那7个随机数由小到大的打出来