Private Sub Form_Load()
Dim x As Integer, y As Integer, z As Integer
Dim diyige As Integer
Dim dierge As String, disange As String, disige As String
diyige = InputBox("请输入第一个数据:", "数据输入窗口")
dierge = InputBox("请输入第二个数据", "数据输入窗口")
disange = InputBox("请输入第三个数据", "数据输入窗口")
x = Val(diyige)
y = Val(dierge)
z = Val(disange)
If x > y And y > z Then
Print z, y, x
ElseIf y > z And z > x Then
Print x, z, y
ElseIf z > x And x > y Then
Print y, x, z
End If
Print "你输入的数据按从小到大的顺序是:"
End Sub
温馨提示:答案为网友推荐,仅供参考