用vb6写一个冒泡排序
时间: 2023-02-18 22:22:22 浏览: 98
算法
首先,声明一个数组,用来存放要排序的数据,然后使用一个for循环,从第一个元素开始,把它与其他元素进行比较,如果大于另一个元素,则交换它们的位置,直到最后一个元素,然后重复这个过程,直到所有元素都按照从小到大的顺序排列好。
相关问题
用vb6写一个冒泡排序的代码
以下是 VB6 冒泡排序的代码:
Private Sub BubbleSort(arr() As Integer)
Dim i As Integer, j As Integer, temp As Integer
For i = 0 To UBound(arr) - 1
For j = i + 1 To UBound(arr)
If arr(i) > arr(j) Then
temp = arr(j)
arr(j) = arr(i)
arr(i) = temp
End If
Next j
Next i
End Sub
调用方式:
Dim arr(5) As Integer
arr(0) = 5
arr(1) = 3
arr(2) = 8
arr(3) = 1
arr(4) = 2
BubbleSort arr
MsgBox Join(arr, ", ") ' 输出:1, 2, 3, 5, 8
用vb语言写一个冒泡排序
Sub BubbleSort(arr As Variant)
Dim i As Long
Dim j As Long
Dim temp As Long
For i = LBound(arr) To UBound(arr) - 1
For j = i + 1 To UBound(arr)
If arr(i) > arr(j) Then
temp = arr(i)
arr(i) = arr(j)
arr(j) = temp
End If
Next j
Next i
End Sub
'使用示例:
Private Sub Command1_Click()
Dim arr(1 To 5) As Long
arr(1) = 5
arr(2) = 2
arr(3) = 8
arr(4) = 1
arr(5) = 7
BubbleSort arr
For i = LBound(arr) To UBound(arr)
Debug.Print arr(i)
Next i
End Sub