Dim ay(20)
Private Sub Command1_Click()
Text1 = ""
For i = 0 To 19
ay(i) = Int(Rnd * 100)
Text1 = Text1 & " " & ay(i)
Next i
End Sub
Private Sub Command2_Click()
'随机数不一定都相邻,只先出四个最大的数
Text2 = ""
Text3 = ""
'用冒泡排序法排序
For i = 19 To 1 Step -1
For j = 0 To i - 1
If ay(j) > ay(j + 1) Then
my = ay(j + 1)
ay(j + 1) = ay(j)
ay(j) = my
End If
Next j
Next i
Text2 = ay(19)
For x = 16 To 19
Text3 = Text3 & ay(x) & " "
Next x
End Sub
Private Sub Command3_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Label1 = ""
End Sub
Private Sub Command4_Click()
End
End Sub