以下是一个竞赛评分程序。其功能是去掉8位评委中的一个最高分和一个最低分,计算平均分。 Dim max As Integer,min As Integer Dim I As Integer.x As Integer,S As Integer max=0:mi

admin2021-04-07  21

问题 以下是一个竞赛评分程序。其功能是去掉8位评委中的一个最高分和一个最低分,计算平均分。
Dim max As Integer,min As Integer
Dim I As Integer.x As Integer,S As Integer
max=0:min=10
For i=1 To 8
x=Val(InputBox(“请输入得分(0~10):”))
【    】
If x<min Tben ,min=x
s=s+x
Next i
【    】
MsgBox”最后得分:”&s
有如下语句:
max=x
②If x>max Then max=x
③If max>x Then max=x
④s=(s-max-min)/6
⑤s=(max-min)/6
⑥s=s/6
程序中有两个【    】,将程序补充完整的正确语句是(    )。

选项 A、①⑤
B、②④
C、③⑥
D、②⑥

答案B

解析 根据题意,代码功能是输入8个数,去掉一个最小值和一个最大值,求出剩余6个数的平均值。可以用For循环语句实现输入8个数,并将当前最小值赋给min,当前所有数的和赋给s,因此第一个【】中的代码应该实现将当前最大值赋给max,即如果当前x大于max,则max=x,其中②If x>max Then max=x实现了此功能。For循环结束后,输出s的值,故第二个【】中的代码应该实现为s赋予剩余6个数的平均值。当前s的值为8个数的和,求剩余6个数的平均值应该先减去min和max在除以6,即④s=(s-max-min)/6。故选择B选项。
转载请注明原文地址:https://jikaoti.com/ti/lDC0FFFM
0

相关试题推荐
最新回复(0)