VB冒泡程序

首先a(j+1)是指a(j)的后一个数，而不是本身加1 （这里a是数组，a(x)中x是从0开始算的，a(x)表示a数组的第x+1个数，x为0时，是第1个数）

i 是从1到9（9次），即 j 是从0到8（9次），然后0到7（8次），0到6（7次）。。。。

j 的每一次都是前一个与后一个比较，把大的放前面

这段程序是疑似用以排序的，但又不算是，觉得怪怪的，好像有点重复了 *** 作

1、从内容上看，a是数组名，那么第三行应该为：Dim a（5） As Integer

2、x = a(i) ，x = InputBox("请输入") 两行你似乎想给a数组个元素赋值？但方向搞错了。应该是 a(i) = cint（InputBox("请输入")）

3、For j = 1 To i - 1 ，x = a(i) ，x = InputBox("请输入") ，For j = 1 To i - 1 前一个j的循环没有结束，里面有出现一个！这里难改

4、建议你以后法代码，每行要写明这一行你想干啥

我的代码如下：

Dim i As Integer

Dim j As Integer

Dim a(5) As Integer

Private Sub Command1_Click()

For i = 1 To 5

a(i) = CInt(InputBox("请输入"))

Next i

For i = 1 To 4

For j = i + 1 To 5

If a(i) <a(j) Then

temp = a(i)

a(i) = a(j)

a(j) = temp

End If

Next j

Next i

For i = 1 To 5

Print a(i)

Next i

End Sub

dim

A(10)

as

integer

dim

I,J

as

integer

dim

temp

as

integer

'临时交换用

'初始化随机函数

randmize

'取10个随机数（范围100以内）并存放到数组中

for

I=0

to

9

A(I)=Int(Rnd*100)

next

I

'开始冒泡排序

for

I=0

to

8

for

J=I+1

to

9

'冒泡原理（大的数下沉，小的数上浮）即（如果前面的大于后面的数，两者交换）

if

A(I)>A(J)

then

temp=A(I):A(I)=A(J):A(J)=temp

next

J

next

I

---