神马品牌网最新一期世界足球排名:vb编程求助 急 急 急 ！！！！！！
来源：百度文库 编辑：神马品牌网 时间：2024/05/08 12:26:37
问题 ：利用三个文本框输入三个数 用if或select语句 按由大到小的顺序排列
Dim a!, b!, c!
Private Sub Command1_Click()
a = Text1
b = Text2
c = Text3 排列显示框为text4
单击command1 显示排序 接下来怎么作啊 急
Dim a!, b!, c!
Private Sub Command1_Click()
a = Text1
b = Text2
c = Text3 排列显示框为text4
单击command1 显示排序 接下来怎么作啊 急
由于数据少，使用3次If判断就可以了
Private Sub Command1_Click()
Dim a!, b!, c!
Dim d As Double
a = Text1
b = Text2
c = Text3
If a < b Then d = a: a = b: b = d
If b < c Then d = b: b = c: c = d
If a < b Then d = a: a = b: b = d
Text4 = a & "," & b & "," & c
End Sub
是用if 吗 好象应该用循环控制来排啊