VB用冒泡法对偶数排序
时间: 2023-06-17 21:02:59 浏览: 52
以下是VB使用冒泡排序算法对偶数进行排序的示例代码:
```
Dim arr() As Integer '定义整型数组
Dim temp As Integer '定义一个中间变量
'初始化数组
arr = {2, 8, 4, 6, 10, 12}
'冒泡排序
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
temp = arr(i)
arr(i) = arr(j)
arr(j) = temp
End If
Next j
Next i
'输出排序后的结果
For i = 0 To UBound(arr)
Debug.Print arr(i)
Next i
```
在代码中,我们首先定义了一个整型数组 `arr`,并初始化了其中的元素。然后使用双重循环实现冒泡排序,如果相邻的两个数中前面的数为奇数,则交换它们的位置。最后输出排序后的结果。注意,在本代码中,我们只进行了偶数的排序,奇数的位置不受影响,仍然保持原来的位置。
相关问题
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
在这个示例中,我们使用了一个双重循环来比较和交换数组中的元素。外部循环控制比较的轮数,内部循环控制每一轮比较的次数。如果相邻的元素顺序不正确,就交换它们的位置。最终,数组中的元素将按升序排列。