vb程序设计 输入三个数 ，通过比较 交换变量的值 ，最终能将三个数按照由大到小的顺序输出

Question

求详细的编程步骤

Answer 1

就是传说中的冒泡排序
Private Sub Command1_Click()
Dim x(1 To 5) As Double, i%, j%, t
x(1) = Val(Text1)
x(2) = Val(Text2)
x(3) = Val(Text3)
x(4) = Val(Text4)
x(5) = Val(Text5)
For i = 1 To 5 - 1 '有5个数要排序，需要进行5-1=4次两两比较
For j = 5 To i + 1 Step -1 '从末尾一个元素到第i个元素进行两两比较
If x(j) < x(j - 1) Then '从小到大排序，若需要从大到小排序，将“<”改为“>”
'若次序不对，则马上交换位置
t = x(j)
x(j) = x(j - 1)
x(j - 1) = t
End If
Next j '除了内循环，一轮排序结束，最小（或最大）数已经冒到数组第一位
Next i
Label1.Caption = x(1)
Label2.Caption = x(2)
Label3.Caption = x(3)
Label4.Caption = x(4)
Label5.Caption = x(5)
End Sub

Answer 2

a=inputbox ("a=")
b=inputbox ("b=")
c=inputbox ("c=")
if a<b then
i=a
a=b
b=i
end if
if a<c then
i=a
a=c
c=i
if b<c then
i=b
b=c
b=i

endif
end if本回答被提问者采纳