vb(选择法排序)

Private Sub Command1_Click()
Me.Font.Size = 50
Cls
Dim a(1 To 10) As Integer
Dim i As Byte
Dim j As Byte
Dim t As Long

For i = 1 To 10
    a(i) = 10 + Rnd() * 100
Next i
For i = 1 To 10
    Print a(i);
Next i
Print
For i = 1 To 9
    For j = i + 1 To 10
        If a(i) < a(j) Then
            t = a(i): a(i) = a(j): a(j) = t
        End If
    Next j
Next i
For i = 1 To 10
    Print a(i);
Next i

    
End Sub