VB用冒泡法对偶数排序
时间: 2023-06-17 19:02:55 浏览: 54
以下是VB语言中使用冒泡排序法对偶数进行排序的示例代码:
```
Sub BubbleSortEvenNumbers(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) Mod 2 = 0 And arr(j) Mod 2 = 0 Then
If arr(i) > arr(j) Then
temp = arr(i)
arr(i) = arr(j)
arr(j) = temp
End If
End If
Next j
Next i
End Sub
```
该代码使用了两个嵌套的循环来遍历数组并比较相邻的元素。如果相邻的两个元素都是偶数,则比较它们的大小并进行交换以实现排序。请注意,代码使用了 UBound 函数来获取数组的上界,以确保循环不会超出数组的范围。
相关问题
VB用冒泡法对产生的随机数的偶数排序
以下是使用冒泡排序算法对随机数数组中的偶数进行排序的 VB 代码示例:
```
Dim randomNumbers(10) As Integer
Dim i, j, temp As Integer
' 生成随机数数组
For i = 0 To 9
randomNumbers(i) = Int(Rnd() * 100) + 1
Next
' 输出原始随机数数组
For i = 0 To 9
Debug.Print randomNumbers(i)
Next
' 冒泡排序算法对偶数进行排序
For i = 0 To 8
For j = 0 To 8 - i
If randomNumbers(j) Mod 2 = 0 And randomNumbers(j + 1) Mod 2 = 0 Then
If randomNumbers(j) > randomNumbers(j + 1) Then
temp = randomNumbers(j)
randomNumbers(j) = randomNumbers(j + 1)
randomNumbers(j + 1) = temp
End If
End If
Next
Next
' 输出排序后的偶数数组
For i = 0 To 9
If randomNumbers(i) Mod 2 = 0 Then
Debug.Print randomNumbers(i)
End If
Next
```
上述代码中,首先生成了一个长度为 10 的随机数数组 `randomNumbers`,然后使用两层循环的冒泡排序算法对其中的偶数进行排序,最后输出排序后的偶数数组。
用VB.net 写冒泡排序
冒泡排序是一种简单的排序算法,它通过比较相邻的元素并交换它们来排序。以下是使用 VB.net 编写冒泡排序的示例代码:
Private Sub BubbleSort(ByVal arr() As Integer)
Dim i As Integer, j As Integer
Dim temp As Integer
For i = To arr.Length - 2
For j = To arr.Length - i - 2
If arr(j) > arr(j + 1) Then
temp = arr(j + 1)
arr(j + 1) = arr(j)
arr(j) = temp
End If
Next j
Next i
End Sub
在这个示例中,我们使用了一个双重循环来比较和交换数组中的元素。外部循环控制比较的轮数,内部循环控制每一轮比较的次数。如果相邻的元素顺序不正确,就交换它们的位置。最终,数组中的元素将按升序排列。
相关推荐
![](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)