源程序如下：
1. 利用InputBoxb函数输入3个数，存放到数值型变量中，然后对其进行比较。
2. 对三个数进行排序，只能通过两两对比，一般可用三条单分支IF语句来实现。
3 .要显示多个数据，可以用“；”逐一显示，也可利用“&”字符串连接将多个变量连接显示。
解题：
先在窗体上画一个按钮，代码如下：
Private Sub Command1_Click()
Dim x!, y!, z!
x = InputBox("input x")
y = InputBox("input y")
z = InputBox("input z")
Print " 排序前："; x; " "; y; " "; z
If x < y Then t = x: x = y: y = t
If x < z Then t = x: x = z: z = t
If y < z Then t = y: y = z: z = t
Print " 排序后："; x; " "; y; " "; z
End Sub
运行程序效果图如下：
扩展资料：
其他实现方法：
Private Sub Command1_Click()
Dim tmp, i, j As Integer '定变量
Dim a(2) As Integer '定数组
a(0) = x
a(1) = y
a(2) = z 'xyz三个数赋值给数组，实际调试中用实际数字代替
For i = 0 To 1
For j = 1 To 2
If a(i) > a(j) Then
tmp = a(i)
a(i) = a(j)
a(j) = tmp
End If
Next j
Next i '循环由小到大排序，估计这是考点
Print a(0)
Print a(1)
已赞过
已踩过<
如果这是一道考试题目的话，考察的知识点还是很多的。
出题人的本意估计是要考数组循环排序，单纯xyz 3个数字比较的话其实还有很多更简单的写法。
Private Sub Command1_Click()
Dim tmp, i, j As Integer '定变量
Dim a(2) As Integer '定数组
a(0) = x
a(1) = y
a(2) = z 'xyz三个数赋值给数组，实际调试中用实际数字代替
For i = 0 To 1
For j = 1 To 2
If a(i) > a(j) Then
tmp = a(i)
a(i) = a(j)
a(j) = tmp
End If
Next j
Next i '循环由小到大排序，估计这是考点
Print a(0)
Print a(1)
Print a(2) ，由小到大逐一打印
