vb编程：虾米求教～～～

来源：百度知道 编辑：UC知道 时间：2024/05/11 16:23:37
某单位开运动会，共有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号 14.5秒
编写程序，按成绩排出名次，并按如下格式输出：
名次 运动员 成绩
1 ...... ....
2 ...... ....
3 ...... ....
.. ...... ....
10 ...... ....

Private Sub Command1_Click()
Dim a(1 To 10) As Double
Dim b(1 To 10) As Double
For i = 1 To 10
b(i) = InputBox("输入运动员号")
a(i) = InputBox("输入成绩")
Next i
For i = 1 To 9
For J = 10 To i + 1 Step -1
If a(J) < a(J - 1) Then T = a(J - 1): a(J - 1) = a(J): a(J) = T: T = b(J - 1): b(J - 1) = b(J): b(J) = T
Next J
Next i
Print "名次"; "运动员"; "成绩"
For i = 1 To 6
Print i; b(i); a(i)
Next i
End Sub

如果是指定数值，还可以
Private Sub Command1_Click()
Dim a(1 To 10) As Double
Dim b(1 To 10) As Double
b(1) = "207号"
a(1) = 14.5
b(2) = "156号"
a(2) = 14.2
b(3) = "453号"
a(3) = 15.2
b(4) = "096号"
a(4) = 15.7
b(5) = "339号"
a(5) = 14.9
b(6) = "077号"
a(6) = 15.1
b(7) = "231号"
a(7) = 14.7
b(8) = "276号&