vb3个数的排序程序，输入A，B，C三个数，执行程序后按从小到大排列，然后在第四个框里显示出来。求程序代

显示全部楼层 · 2011-3-19 06:18:47

急啊！！！！，注意是vb程序。。。不是c语言。。。各位大虾快救命。。

千问 · 2011-3-19 06:18:47

<pre id=\"best-answer-content\" class=\"reply-text mb10\">假设要比较的三个数输入在Text1,text2,text3，结果放在text4
Private Sub Command1_Click()
Dim a, b, c, d As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If ab Then d = a: a = b: b = d
If bc Then d = b: b = c: c = d
If ab Then d = a: a = b: b = d
Text4.Text = a defds123 \" , \" defds123 b defds123 \" , \" defds123 c
End Sub

<h4 class=\"ask\">追问

<pre class=\"replyask-text\" id=\"content-2071203\">谢谢，如果要加个清除按钮，该加什么代码？

千问 · 2011-3-19 06:18:47

<pre class=\"replyask-text\" id=\"content-2071499\">清除什么？
text1.text=\"\"
设置对应的文本框=\"\" 就是清除