编写程序，输入4个整数，按由小到大的顺序输出，用VB编程

2025-02-19 06:43:06

推荐回答（1个）

回答1：

Private Sub Command1_Click()
    Dim m(4) As integer
    For i = 0 To 3
        m(i) = Val(InputBox("请输入第 " & i + 1 & " 个数字"))
    Next
    For i = 0 To 3
        For j = i + 1 To 3
            If m(i) > m(j) Then
                a# = m(i)
                m(i) = m(j)
                m(j) = a
            End If
        Next
    Next
    
    Print m(0), m(1), m(2), m(3)
End Sub