生成10个互不相同的两位随机整数,用冒泡法进行降序排列,再使用二分法查找某个数是否在这10个数中

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