是VB高手请进

建Command1, 代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Option Explicit
Dim x As Single, y As Single, z As Single, t As Single

Private Sub Command1_Click()
If x < y Then t = y: y = x: x = t
If x < z Then t = z: z = x: x = t
If y < z Then t = z: z = y: y = t
Print "从大到小："; x, y, z
End Sub

Private Sub Form_Load()
x = Val(InputBox("x=?"))
y = Val(InputBox("y=?"))
z = Val(InputBox("z=?"))
End Sub

简单啊,还高手请进

'主窗口中应该有四个编辑框，分别是text1,text2,text3,text4,其中三个用来供用户输入数字，一个用来显示结果，还有一个按钮command1，单击响应事件
Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer
Dim z As Integer
Dim i As Integer
x = Val(Text1.Text)
y = Val(Text2.Text)
z = Val(Text3.Text)
If x > y Then
i = x
x = y
y = i
End If
If x > z Then
i = x