VB编程简单问题

程序是输入8个短跑成绩，然后依次输出每一个成绩的名次，然而编程后有死循环， If a(i) > a(b) Then
j(i) = j(i) + 1
Else
j(i) = j(i)
End If处划黄线
下面是全部程序，请帮我找一下问题

Private Sub Command1_Click()
Dim t As Integer
Dim i As Integer
Dim b As Single
Dim a(1 To 10000) As Single
Dim j(1 To 10000) As Single

i = 1

Do
a(i) = InputBox("输入成绩(单位秒)")
i = i + 1
Loop Until i = 8

Do

i = 1
j(i) = 1
b = 1
Do
If a(i) > a(b) Then
j(i) = j(i) + 1
End If
b = b + 1
Loop Until b = 8
i = i + 1
Loop Until i = 8

i = 1
Do
Print j(i)
i = i + 1
Loop Until i = 8

End Sub

VB简单编程问题 VB编程简单问题 VB简单的编程问题！！！！！！！！！ VB编程很简单的小问题 一个简单的VB编程问题 VB编程的简单问题请教大家 VB最简单的编程问题！！！ vb编程的一个简单问题 急问一个简单的VB简单编程问题 VB 编程 贼简单