比大小

通用

Option Base 1

command1

Private Sub Command1_Click()  

   Cls
   Font.size = 30
   Dim n As Integer
   Dim size As Integer
           size = Int(Val(Me.Text1.Text))
   Dim sierdun() As Integer
   ReDim sierdun(size) As Integer
           n = LBound(sierdun)
   While n <= UBound(sierdun)
   sierdun(n) = Int(Rnd * 1000)
           n = n + 1
   Wend
   Dim swap As Integer
           m = LBound(sierdun)
   While m <= UBound(sierdun) - 1
           n = LBound(sierdun)
       While n <= UBound(sierdun) - m
       If sierdun(n) < sierdun(n + 1) Then
             swap = sierdun(n)
             sierdun(n) = sierdun(n + 1)
             sierdun(n + 1) = swap
       End If
           n = n + 1
Wend
           m = m + 1
Wend
           n = LBound(sierdun)
While n <= UBound(sierdun)
Print sierdun(n)
           n = n + 1
Wend

End Sub

 

VB不能出现一点错误，好严谨，好高大上，好费眼……