VB冒泡排序用法

1、在VB中打开一个窗体。

2、添加一个按钮控件,

3、打开代码窗口 输入代码:

Dim n As Variant

n = Array(17, 8, 66, 99, 11)

4、输入代码

for i = 1 to4

next i

5、最关键的一部：实现元素之间动交换如图：

If n(J) > n(J + 1) Then

Dim T As Integer
T = n(J)
n(J) = n(J + 1)

n(J + 1) = T

6、然后在窗体上输出排序后的数组！以上就是最简单动冒泡排序，主要需要理解每一次和没一趟是什么意思，并且懂得交换！