UC知道VB三个数的排序
来源：百度知道 编辑：UC知道 时间：2024/06/14 10:24:52
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
按从大到小排列,上面的错在哪了?晕
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
按从大到小排列,上面的错在哪了?晕
没有问题呀,是不是你没有给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
