怎么用VB编写”随机生成50个两位数，并用第2个单击事件降序排列”，小生在此感谢！

Dim C As Boolean, s%(1 To 50)

Private Sub Form_Click()
Dim i%, j%, t%
Randomize

If C = False Then '第1次生成
Cls
Print "生在的50个数为:"
For i = 1 To 50
s(i) = Int(90 * Rnd + 10)
Print s(i);
If i Mod 5 = 0 Then Print
Next
C = True
Exit Sub

ElseIf C = True Then

For i = 1 To 50
For j = i To 50
If s(j) > s(i) Then
t = s(i)
s(i) = s(j)
s(j) = t
End If
Next
Next

Print "重新排序后为:"
For i = 1 To 50
Print s(i);
If i Mod 5 = 0 Then Print
Next
C = flase
End If
End Sub

Dim a(1 To 50) As Integer
Private Sub Command1_Click()
For n = 1 To 50
a(n) = Int(Rnd * 90 + 10)
Print a(n);
Next
End Sub

Private Sub Command2_Click()
Print
Print "排序后："
For n = 1 To 50
For m = 2 To 50
If a(n) < a(m) Then my = a(n): a(n) = a(m): a(m