Question

一个vb的问题

把输入的数据输出再按从小到大排列，请问下面的程序哪里编错了？
Dim s(1 To 10) As Integer
Private Sub Command1_Click()
For i = 1 To 10
s(i) = InputBox("输入数据")
Print s(i);
Next i

End Sub

Private Sub Form_Click()
Dim j As Integer, temp As Integer, i As Integer
Print
For i = 1 To 10
For j = 1 To 9
If s(i) < s(j + 1) Then
temp = s(i)
s(i) = s(j + 1)
s(j + 1) = temp
End If
Next j
Print s(i);
Next i
End Sub

Answer 1

原因:
你的排序有问题.你这题用的是冒泡排序法,其基本思想是:相邻之间的两个数进行比较,大的上浮(当然也可以小的上浮). 这种算法有两重循环,外层用来控制排序数组的元素的个数,内层用来每个数进行比较的次数.
解决:
这个最简单的改法是将
for j=1 to 9改为 for j=i+1 to 9
这样改的原因是,每一次外循环都会使一个数一个数排到要求的位置.这样的话,每次外循环都会减少一次进行比较的次数,因此内循环的循环次数就要减少
说的比较乱,希望能给你点帮助.有什么不明白的,可以HI我

追问

为什么事改成 for j=i+1 to 9 而不是j=i to 9 呢？

追答

嘿嘿,不好意思.
没有注意你下面的循环是与 j+1 比较的 这样的话,那就是我改错了,应该是j=i to 9 不好意思啊

Answer 2

排序的过程改为：
for i=1 to 9 do
for j=i+1 to 10 do
if s(i)>s(j) then
temp=s(i)
s(i)=s(j)
s(j)=temp
end if
next j
print s(i)
next i

Answer 3

For i = 1 To 10
For j = 1 To 9

把这一部分改成：
for i=1 to 10
for j=i+1 to 10
if s(i)>s(j) then
temp=s(i)
s(i)=s(j)
s(j)=temp
end if
next j
print s(i);
next i
你的排序写错了，其他都对的。 一楼的也有小错误。

Answer 4

Private Sub Form_Click()
Dim j As Integer, temp As Integer, i As Integer
Print

For i = 1 To 10
For j = i + 1 To 10
If s(i) >= s(j) Then
temp = s(i)
s(i) = s(j)
s(j) = temp
End If
Next j
Print s(i);
Next i
End Sub