一道VB试题

[Jamesczh]

请在（1）和（2）处填上适当的语句，以使输出结果是经过从小到大排序的


Private Sub Form_Load()

Dim a(1 To 5)

a(1) = 2
a(2) = 4
a(3) = 1
a(4) = 5
a(5) = 3

For i = 1 To 4

x = i

For j = *****(1)******
If a(x) > a(j) Then *****(2)******
Next j

t = a(x)
a(i) = a(x)
a(i) = t

Next i

For i = 1 To 5
MsgBox a(i)
Next i

End Sub

[fling_boy]

(1) x+1 to 5
(2) x=j

[Jamesczh]

这个答案好像有点问题，你运行一下就知道了，输出结果依次是：1，1，1，3，3。

[fling_boy]

没仔细看,你的程序本身就有问题:
t = a(x)
a(i) = a(x)
a(i) = t

这个过程是交换a(x)和a(i)吗?
应该是这样吧:
t = a(x)
a(x) = a(i)
a(i) = t

[oldforest]

t=a(x)
a(i)=a(x)
a(x)=t

[oldforest]

t = a(x)
a(x) = a(i)
a(i) = t