vb树组编程题

来源：百度知道 编辑：UC知道 时间：2024/05/27 01:26:27
某单位开运动会,共有10人参加男子100米短跑,运动员成绩如下:
207号 14.5秒 077号 15.1秒
156号 14.2 秒 231号 14.7 秒
453号 15.2 秒 276号 13.9秒
096号 15.7 秒 122号 13.7 秒
339号 14.9秒 302号 13.7 秒
编写程序,按成绩排出名次,并按如下格式输出:
名次 运动员号 成绩
1 …………… ……………
2 …………… ……………
3 …………… ……………
…… …………… ……………
10 …………… ……………

Private Sub Command1_Click()
Dim a(1 To 10, 1 To 2)
a(1, 1) = "207#": a(1, 2) = "14.5秒"
a(2, 1) = "156#": a(2, 2) = "14.2秒"
'……自己加，累
a(10, 1) = "302#": a(10, 2) = "13.7秒"

'排序
For i = 1 To 10
For j = 1 To 9
If a(j, 2) > a(j + 1, 2) Then
b = a(j, 1): c = a(j, 2)
a(j, 1) = a(j + 1, 1): a(j, 2) = a(j + 1, 2)
a(j + 1, 1) = b: a(j + 1, 2) = c
End If
Next
Next

'输出成绩
For i = 1 To 10
Print "第" & i & "名：" & a(i, 1) & "，成绩：" & a(i, 2)
Next

End Sub