某单位开运动会，共有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         ......       ....

以下是此题的【VB源代码】
Option Base 1 '要想数组下标不是从O开始，而是从1开始，就要加上这句

Private Sub Form_Click()

Dim m, x
m = Array(207, 156, 453, 96, 339, 77, 231, 176, 122, 302)
x = Array(14.5, 14.2, 15.1, 15.7, 14.7, 15.1, 14.7, 13.9, 13.7, 14.5)
Print
Print "名次", "运动员号", "成绩"
Print
For i = 1 To 9
For j = i + 1 To 10
If x(i) > x(j) Then
t = x(i)
x(i) = x(j)
x(j) = t
t = m(i)
m(i) = m(j)
m(j) = t
End If
Next j
Print i, m(i), x(i)
Next i
Print , 10, m(10), x(10)

End Sub

运行此VB源码后，点击窗体，结果情况如下图所示：


课后答案吴何雨洁飘

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_8.9.html