代码如下:
Option Explicit
Dim aa() As String, bb() As Double
Sub BubbleSort(List() As Double) '冒泡排序算法
Dim First As Double, Last As Double '开始,结束
Dim i As Integer, j As Integer
Dim Temp As Double ' 交换位置的临时变量
First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i) > List(j) Then '如果这个数大于下一个数
Temp = List(j) '交换位置
List(j) = List(i)
List(i) = Temp
End If
Next j
Next i
End Sub
Private Sub Command1_Click()
Dim i As Long
aa = Split(Text1.Text, ",") '取得操作数
ReDim bb(UBound(aa))
For i = 0 To UBound(aa)
bb(i) = CDbl(aa(i)) '转换为数字类型
Next
BubbleSort bb '调用排序算法函数
Text2.Text = ""
For i = 0 To UBound(bb) '显示结果
Text2.Text = Text2.Text & " <" & bb(i)
Next
End Sub
Private Sub Form_Load()
Text1.Text = "1,2,5,4,8,7,1.2,3.6,78"
End Sub
摘自:网络整理
相关文章参考:
※VB数组快速排序算法
※加密算法-MD5算法
评论