将x,y,z三个数按从小到大的顺序排列。 Private Sub Form_Click() Dim x As Integer, y As Integer, z As Integer x = InputBox(" 请输入 x 的值 ") ' 输入 x 的初值 y = InputBox(" 请输入 y 的值 ") z = InputBox(" 请输入 z 的值 ") If x > y Then w = x: x = y: y = w ' 将 x,y 中的小数存放于 x 中 If x > z Then w = x: x = z: z = w 'x 中存放 x,z 中小数 ,x 为最小数 If y > z Then w = y: y = z: z = w 'y 中存放 y,z 中的小数 Print x, y, z ' 在窗体上按从小到大的顺序输出 x,y,z 的值 End Sub 注意:将两个变量中的数进行交换时,必须借助于第三个变量才能实现。