vb编程问题，求解答

Const N = 10
Private Type Ydy
    bh As String
    cj As Single
End Type

Private Sub Form_Click()
    Dim a(1 To N) As Ydy
    Dim t As Ydy
    '输入信息和成绩
    For i = 1 To N
        a(i).bh = InputBox("请输入第" & i & "位运动员编号", "输入运动员编号和成绩")
        a(i).cj = Val(InputBox("请输入第" & i & "位运动员成绩（秒）", "输入运动员编号和成绩"))
    Next i
    '按成绩排序
    For i = 1 To N - 1: For j = i + 1 To N
        If a(i).cj > a(j).cj Then
            t = a(i): a(i) = a(j): a(j) = t
        End If
    Next j, i
    '输出排序后的信息
    Print "名次", "运动员号", "成绩"
    For i = 1 To N
        Print i, a(i).bh & "号", a(i).cj & "秒"
    Next i

End Sub