一道简单的VB题,我咋看不懂呀!

来源:百度知道 编辑:UC知道 时间:2024/06/20 09:39:13
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
Print "排序后" & x & "" & y & "" & z

End Sub

"排序前"; x; ""; y; ""; z;
"排序后" & x & "" & y & "" & z
打印的程序看不懂,请求详细解释

Private Sub Command1_Click()
Dim x%, y%, z% ----定义xyz3个变量为Integer
x = InputBox("input x") ---输入x值
y = InputBox("input y") ---输入y值
z = InputBox("input z") ---输入z值
Print "x,y,z" ----屏幕打印"x,y,z"
Print "排序前"; x; ""; y; ""; z;
----屏幕打印变量x,y,z的值
If x < y Then t = x: x = y: y = t
如果x小于y,x和y的值交换
If x < z Then t = x: x = z: z = t
如果x小于z,x和z的值交换
If y < z Then t = y: y = z: z = t
如果y小于z,y和z的值交换
Print "排序后" & x & "" & y & "" & z
----屏幕打印排序后变量x,y,z的值
End Sub

这是输入三个数,然后进行排序啊.

输入X Y Z 三个数字然后排序用的
第一个print 是你输入的X Y Z
然后进行比较运算,如果X<Y则吧X Y的值对调
下面两个也一样,之后再输出排序后的X Y Z值
两次可以有一个对比
其实很简单,高一有数学有学的