简单的VB选择法排序题，急求答案！

你可以用这样的算法：把十个数编进一个数组，然后判断数组内相邻两元素之间的大小，若前一个数大于后一个数，则不做改变;若反之，则交换两个元素的值。具体代码我就不写了吧，手机上不好打代码。反正我遇到这种东西习惯用For...next语句。

dim a(9) as integer '定义可以存10个元素的数组
dim m as integer '用来储存中间变量
a(0)=4
a(1)=45
a(2)=30
a(3)=21
a(4)=100
a(5)=30
a(6)=20
a(7)=1
a(8)=3
a(0)=6

'选择排序方法
for i=0 to 8
for j=i+1 to 9
if a(i)>a(j) then
m=a(i)
a(i)=a(j)
a(j)=m
endif
next j
next i

'在textbox控件中显示出来
for k=0 to 9
text1.text=text1.text & a(k) & " "
next k

(Selection Soft) 选择排序法

Dim a(10)
a(1) = 4 : a(2) = 45 : a(3) = 30: a(4) =21 : a(5) = 100 :
a(6) = 30: a(7) = 20 : a(8) = 1 : a(9) = 3 : a(10) = 6

For i = 1 To 9
For j = i + 1 To 10
If a(i) > a(j) Then
Temp = a(i)
a(i) = a(j)
a(j) = Temp