Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a < b Then
t = a: a = b: b = t
End If
If a < c Then
t = a: a = c: c = t
End If
If b < c Then
t = b: b = c: c = t
End If
Text4.Text = a & "," & b & "," & c
End Sub
本程序中If a < b Then
t = a: a = b: b = t实现了什么
怎么解释,请指教一下 谢谢

让b=a,a=b交换了一下。



以上

正解

这个程序就是排序,按大小排列

Private Sub Command1_Click()
'a代表最大值,b较大值,c最小值
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a < b Then '当a大于b时，a还是原来的值；当a小于b时，a就和b互换
t = a: a = b: b = t
End If
If a < c Then '当a大于c时，a还是原来的值；当a小于c时，a就和c互换
t = a: a = c: c = t
End If
If b < c Then '当b大于c时，b还是原来的值；当b小于c时，b就和c互换
t = b: b = c: c = t
End If
Text4.Text = a & "," & b & "," & c
End Sub