“随机产生200个大于零小于1000的整数并对结果按从高到低的顺序VB程序式怎写？

在窗体的click事件里，写入如下代码：
Private Sub Form_Click()
Dim i As Integer
Dim j, k As Integer
Dim max As Integer
Dim x As Integer

'存储200个随机数
Dim mydata(200) As Integer

For i = 1 To 200
mydata(i) = 1000 * Rnd

Next i

'进行降序排序
For j = 1 To 200
max = j
For k = 1 To 200
If mydata(j) < mydata(k) Then
max = k
End If

Next k

temp = mydata(j)
mydata(j) = mydata(max)
mydata(max) = temp
Next j

'输出排序后的数
For x = 1 To 200
If x Mod 20 = 0 Then
Print
End If

Print mydata(x);
Next x

End Sub

怎么没看到分啊，呵呵，开玩笑