看以下代码是否合用[ 先要建立一个TextBox 和 一个Command ]:Private Sub Command1_Click()
Dim 运动员成绩(1 To 30, 1 To 10) As Double'30人,10个成绩评分.
Dim 运动员平均成绩(1 To 30) As Double, 中介数组(1 To 10) As Double
Dim 最低分 As Double, 最高分 As Double, 合计分数 As Double
'各运动员随机给分.
Text1.Text = "各运动员成绩:" & vbCrLf
Dim 随机值, 上限, 下限
上限 = 1 |
