VB三个数的排序

没有问题呀,是不是你没有给x,y,z赋值呀!

Private Sub Command1_Click()

x = InputBox("xxx")

y = InputBox("yyy")

z = InputBox("zzz")

If x < y Then

t = y

y = x

x = t

End If

If x < z Then

t = z

z = x

x = t

End If

If y < z Then

t = z

z = y

y = t

End If

Print "排序后"; x; y; z

End Sub

If x < y Then
t = y
y = x
x = t
ElseIf x < z Then
t = z
z = x
x = t
ElseIf y < z Then
t = z
z = y
y = t
End If

比较顺序有问题，应该这样

If y < z Then
t = z
z = y
y = t
End If
If x < y Then
t = y
y = x
x = t
End If
If y < z Then
t = z
z = y
y = t
End If
Print "排序后"; x; y; z

If x > y Then
t = y
y = x
x = t
End If
If x > z Then
t = z
z = x
x = t
End If
If y > z Then
t = z
z = y
y = t
End If
Print "排序后"; x; y; z
上面的是从小到大排序，下面的是从大到小排序。
If x < y Then
t = y
y = x
x = t
End If
If x < z Then
t = z
z = x
x = t
End If
If y < z Then
t = z
z = y
y = t
End If
Print "排序后"; x; y; z