谁能用VB帮我随机生成十个数,并给这十个数排序?谢谢

Dim A(1 To 10) As Integer

Private Sub 查找_Click()
Dim N As Integer
N = Val(Text1.Text)
Dim sMin As Integer, sMax As Integer
sMin = 1: sMax = 10
Do
i = (sMin + sMax) / 2
If A(i) = N Then
MsgBox N & "在数组中存在"
Exit Sub
ElseIf A(i) > N Then
sMin = i + 1
Else
sMax = i - 1
End If
Loop While sMax >= sMin
MsgBox N & "在数组中不存在"
End Sub

Private Sub 生成十个数_Click()
Dim s As String
Randomize
s = ""
For i = 1 To 10
Do
k = Int(Rnd * 90) + 10
Loop While InStr(s, k) > 0
A(i) = k
s = s & k & " "
Next
Label1.Caption = "生成的十个数为：" & Trim(s)
s = ""
For i = 1 To 10
For j = i To 10
If A(i) < A(j) Then
t = A(i)
A(i) = A(j)
A(j) = t
End If
Next
s = s & A(i) & " "
Next
Labe