vb某学校举行英语演讲比赛,评分规则是8个评委的打分中去掉一个最高分和一个最
答案:3 悬赏:50 手机版
解决时间 2021-11-20 05:03
- 提问者网友：轻浮
- 2021-11-20 01:59
vb某学校举行英语演讲比赛,评分规则是8个评委的打分中去掉一个最高分和一个最
最佳答案
- 五星知识达人网友：忘川信使
- 2021-11-20 02:27
Private Sub Command1_Click()
Dim i As Integer
Dim min As Double
Dim max As Double
Dim s As Double
Dim sum As Double
min = 100
For i = 1 To 8
s = Val(InputBox("请输入成绩"))
If max < s Then
max = s
End If
If min > s Then
min = s
End If
sum = sum + s
Next
Print "去掉一个最高分" & max & "，去掉一个最低分" & min
Print "总分为" & sum - max - min & "，平均分为" & (sum - max - min) / 6
End Sub
Dim i As Integer
Dim min As Double
Dim max As Double
Dim s As Double
Dim sum As Double
min = 100
For i = 1 To 8
s = Val(InputBox("请输入成绩"))
If max < s Then
max = s
End If
If min > s Then
min = s
End If
sum = sum + s
Next
Print "去掉一个最高分" & max & "，去掉一个最低分" & min
Print "总分为" & sum - max - min & "，平均分为" & (sum - max - min) / 6
End Sub
全部回答
- 1楼网友：神的生死簿
- 2021-11-20 04:40
先排序
- 2楼网友：动情书生
- 2021-11-20 03:02
回去电脑腔给你代码追答
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯