Print "排序後" & x&; " " & y&; " " & z&; ""中是Long類型(類型聲明字符為和號 (&))
修改為:
Private Sub Command1_Click()
Dim x!, y!, z!
x = InputBox("input x")
y = InputBox("input y")
z = InputBox("input z")
Print " x y 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
End If
Print "排序後" & x!; " " & y!; " " & z!; ""
End Sub