VB 从键盘上输入10个整数,用冒泡排序法对这10个数从小到大排序

Question

如题所述

Answer 1

Private Sub Command1_Click()
    Dim a(10) As Integer
    For i = 1 To 10
        a(i) = InputBox("请输入" & i & "的数字")
        Print a(i);
    Next i
    Print
    For i = 1 To 10
            For j = 1 To 10 - i
                If a(j) > a(j + 1) Then
                    temp = a(j + 1)
                    a(j + 1) = a(j)
                    a(j) = temp
                End If
            Next j
        Next i

    For i = 1 To 10
        Print a(i);
    Next i
End Sub