这叫啥事

Private Sub Command2_Click()
    C1s
    Font.size = 30
    Dim n As Integer
    Dim size As Integer
     size = Int(Va1(Me.Text1.Text))
    size = Int(Va1(Me.Text1.Text))
    Dim sierdun() As Inreger
    ReDim sierdun(size)
   
    n = LBound(sierdun)
    While n <= UBound(sierdun)
        sierdun(n) = Int(Rnd * 1000)
        n = n + 1
    Wend
   
Dim swap As Inreger
m = 1
While m < 14
n = 1
While n <= 15 - 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 = 1
While n <= 15
Print sierdun(n)
n = n + 1
Wend

End Sub