一道VB程序题目请问错误在哪里？

是一道要求用冒泡排序方法在两位数的数字中随机抽选10位数字排序，但排序后我的顺序还是错的，检查不出错误。。。

还望指教

For i = 1 To 9
For j = 9 To i Step -1 ' 往前冒
If a(j) > a(j + 1) Then
t = a(j)
a(j) = a(j + 1)
a(j + 1) = t
End If
Next j, i

for i=1 to 9

for j =i+1 to 10

if a(i)<a(j) then

t=a(i)

a(i)=a(j)

a(j)=t

end if

next j

next i