VB中求10个人的总分，最高分，最低分。
答案:2 悬赏:70
解决时间 2021-01-24 06:21
- 提问者网友：王者佥
- 2021-01-23 12:11
VB中求10个人的总分，最高分，最低分。
最佳答案
- 二级知识专家网友：封刀令
- 2021-01-23 12:34
Private Sub Command1_Click()
Dim a(10) As Integer
For i = 1 To 10
a(i) = Val(InputBox("输入第" & i & "个人的分数"))
If i = 1 Then
Max = a(1)
Min = a(1)
Else
If Max < a(i) Then Max = a(i)
If Min > a(i) Then Min = a(i)
End If
Sum = Sum + a(i)
Next
Print "总分:"; Sum
Print "最高分:"; Max
Print "最低分:"; Min
End Sub
Dim a(10) As Integer
For i = 1 To 10
a(i) = Val(InputBox("输入第" & i & "个人的分数"))
If i = 1 Then
Max = a(1)
Min = a(1)
Else
If Max < a(i) Then Max = a(i)
If Min > a(i) Then Min = a(i)
End If
Sum = Sum + a(i)
Next
Print "总分:"; Sum
Print "最高分:"; Max
Print "最低分:"; Min
End Sub
全部回答
- 1楼网友：荒野風
- 2021-01-23 13:32
很简单的，可以联系我
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯