求解一道VB基础题目
编写一应用程序，随机产生8名100m运动员的成绩（在10-15秒之间，保留两位小数），并排出他们的名次（有可能相同），举例输出如下：第1名是2号运动员，成绩为：11.19...
编写一应用程序，随机产生8名100m运动员的成绩（在10-15秒之间，保留两位小数），并排出他们的名次（有可能相同），举例输出如下：
第1名是2号运动员，成绩为：11.19
第2名是3号运动员，成绩为：11.23
……以下省略
若成绩相同，则排名也相同 展开
第1名是2号运动员，成绩为：11.19
第2名是3号运动员，成绩为：11.23
……以下省略
若成绩相同，则排名也相同 展开
展开全部
Private Sub Command1_Click()
Dim a(1 To 8) As String
Randomize
For i = 1 To 8
a(i) = i & "号运动员 " & Format((Rnd * 5) + 10, "0.00")
Print a(i)
Next
For i = 1 To 8
For j = i To 8
If Val(Right(a(i), 5)) > Val(Right(a(j), 5)) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next
Next
For i = 1 To 8
Print "第" & i & "名是 " & a(i)
Next
End Sub
Dim a(1 To 8) As String
Randomize
For i = 1 To 8
a(i) = i & "号运动员 " & Format((Rnd * 5) + 10, "0.00")
Print a(i)
Next
For i = 1 To 8
For j = i To 8
If Val(Right(a(i), 5)) > Val(Right(a(j), 5)) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next
Next
For i = 1 To 8
Print "第" & i & "名是 " & a(i)
Next
End Sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
上海华然企业咨询
2024-10-28 广告
在测试大模型时，可以提出这样一个刁钻问题来评估其综合理解与推理能力：“假设上海华然企业咨询有限公司正计划进入一个全新的国际市场，但目标市场的文化习俗、法律法规及商业环境均与我们熟知的截然不同。请在不直接参考任何外部数据的情况下，构想一套初步...
点击进入详情页
本回答由上海华然企业咨询提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
