Private Sub Command1_Click()
Dim a(2), b, i, j As Double
For i = 0 To 2
a(i) = InputBox("请输入第" & i + 1 & "个整数：")
Next i
For i = 0 To 1
For j = i + 1 To 2
If a(i) > a(j) Then
b = a(i)
a(i) = a(j)
a(j) = b
End If
Next j
Next i
Print "从小到大："; a(0); "<"; a(1); "<"; a(2)
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024