vb冒泡排序

Question

我现在需要做一个安大倒小排列的5组数：现在有5个textbox输入框，需要把这五个textbox输入框中的东西 用冒泡排序发 排序，然后把排列的数字分别显示到 5个 Label 里面。 从大到小排列！！！
急需代码！！那位大虾帮帮小虫！！
谢谢！！在下感激不尽啊！！！
还有两个Button 按钮
分别是从大到小、从小到大

Answer 1

看上面那一大段，我晕了(╯﹏╰)b
下面的是从小到大排序的，从大到小只需改一个“>”号，看下面的注释，整个过程不变的。

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

Option Explicit
Option Base 1
Dim xx

Private Sub Command1_Click()
'选择排序法
Dim i As Integer, j As Integer, t As Integer
Debug.Print: Debug.Print "选择排序法 从小到大排列"
For i = 1 To 9
For j = i + 1 To 10
'"<"从大到小排列，xx(1)最大，">"从小到大排列，xx(1)最小
If xx(i) > xx(j) Then t = xx(i): xx(i) = xx(j): xx(j) = t
Next j
Next i
For i = 1 To 10
Debug.Print xx(i); Space(1);
Next i
End Sub

Private Sub Command2_Click()
'冒泡排序法
Dim i As Integer, j As Integer, t As Integer
Debug.Print: Debug.Print "冒泡排序法从大到小排列"
For i = 1 To 9
For j = 1 To 10 - i
'"<"从大到小排列，xx(1)最大，">"从小到大排列，xx(1)最小
If xx(j) < xx(j + 1) Then t = xx(j): xx(j) = xx(j + 1): xx(j + 1) = t
Next j
Next i
For i = 1 To 10
Debug.Print xx(i); Space(1);
Next i
End Sub

Private Sub Command3_Click()
'交换排序法
Dim i As Integer, j As Integer, p As Integer, t As Integer
Debug.Print: Debug.Print "交换排序法从小到大排列"
For i = 1 To 9
p = i
For j = i + 1 To 10
'"<"从大到小排列，xx(1)最大，">"从小到大排列，xx(1)最小
If xx(p) > xx(j) Then p = j
Next j
If p <> i Then t = xx(p): xx(p) = xx(i): xx(i) = t
Next i
For i = 1 To 10
Debug.Print xx(i); Space(1);
Next i
End Sub

Private Sub Command4_Click()
'找最大值
Dim i As Integer
For i = 2 To 10
If xx(1) < xx(i) Then xx(1) = xx(i)
Next i
Debug.Print: Debug.Print "最大值是:"; xx(1)
Form_Load
End Sub

Private Sub Command5_Click()
'找最小值
Dim i As Integer
For i = 2 To 10
If xx(1) > xx(i) Then xx(1) = xx(i)
Next i
Debug.Print: Debug.Print "最小值是:"; xx(1)
Form_Load
End Sub

Private Sub Form_Load()
xx = Array(10, -10, 20, 60, -50, 40, -12, 11, 36, 33)
End Sub

更多的代码请查看参考资料

参考资料：http://hi.baidu.com/icecept

Answer 3

0分题目 AGAIN

Answer 4

分都没有要代码？