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

---