输入4个整数,要求按由小到大顺序输出.

这个简单啊 Dim i As Integer, j As Integer, a(4) As Integer, tmp As Integer For i = 1 To 4 a(i) = Val(InputBox("请输入第" & i & "个数:")) Next For i = 1 To 4 For j = i + 1 To 4 If a(i) > a(j) Then tmp = a(i) a(i)