请帮我写一个vb的冒泡排序
时间: 2023-05-28 08:01:50 浏览: 56
以下是一个简单的VB语言冒泡排序程序:
```
Sub BubbleSort(arr() as Integer)
Dim i As Integer, j As Integer
Dim 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
For i = 0 To UBound(arr)
Debug.Print arr(i)
Next i
End Sub
```
在这个程序中,我们使用了双重循环,外层循环控制排序次数,内层循环则在当前未排序的数列中遍历,找出最大(或最小)的数字并将其移到数列的末尾。在每次内层循环结束后,我们都将数组中的内容打印出来以查看其排序情况。
相关问题
帮我写一个VB.NET的冒泡排序
当然可以,以下是VB.NET的冒泡排序代码:
```
Public Sub BubbleSort(arr As Integer())
Dim n As Integer = arr.Length
Dim i As Integer, j As Integer
For i = 0 To n - 1
For j = 0 To n - i - 2
If arr(j) > arr(j + 1) Then
' Swap arr(j) and arr(j+1)
Dim temp As Integer = arr(j)
arr(j) = arr(j + 1)
arr(j + 1) = temp
End If
Next
Next
End Sub
```
以上代码中,我们定义了一个名为BubbleSort的子程序,它接受一个整数数组arr作为参数。然后,我们使用两个嵌套的循环来遍历数组中的所有元素,并比较相邻的两个元素。如果左边的元素大于右边的元素,则交换它们的位置。在排序完成后,原始数组将被修改以显示排序后的结果。
希望这可以帮到你!
用vb6写一个冒泡排序
算法
首先,声明一个数组,用来存放要排序的数据,然后使用一个for循环,从第一个元素开始,把它与其他元素进行比较,如果大于另一个元素,则交换它们的位置,直到最后一个元素,然后重复这个过程,直到所有元素都按照从小到大的顺序排列好。
相关推荐
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)