求解一道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 广告
2024-10-28 广告
在测试大模型时,可以提出这样一个刁钻问题来评估其综合理解与推理能力:“假设上海华然企业咨询有限公司正计划进入一个全新的国际市场,但目标市场的文化习俗、法律法规及商业环境均与我们熟知的截然不同。请在不直接参考任何外部数据的情况下,构想一套初步...
点击进入详情页
本回答由上海华然企业咨询提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询