以下是一个竞赛评分程序。8位评委,去掉一个最高分和一个最低分,计算下均分(设满分为10分), 请填空

14 查阅

以下是一个竞赛评分程序。8位评委，去掉一个最高分和一个最低分，计算下均分(设满分为10分)，

请填空补充完整。

Private Sub Form_Click()

Dim Max as Integer,Min as Integer

Dial i as Integer,x as Integer,s as Integer

Dim p as Single

Max=0

Min=10

For i=1 To 8

x=Val (InputBox("请输入分数："))

If 【】 Then Max=x

If 【】 Then Min=x

s=s+x

Next i

s= 【】

p=s/6

MsgBox"最后得分："&P

End Sub

参考答案:

x＞Max或x＞-MaxxMill或x=Mins-Max-Minx＞Max或x＞-Max,xMill或x=Min,s-Max-Min 解析：根据题意，首先要找出最大值与最小值，所给程序用循环读入数据并找出最大值与最小值，并对读入的数据进行求和操作。此时用总和减去最大值和最小值再求出平均分，就可完成题目要求。位置语句的作用是记录最高分，因此，在当前输入的分数x大于(也可以是大于或等于)以前的最高分数Max时，就应该使Max取当前的x值。因此，该位置应该填x＞Max、或x＞=Max、或Maxx、或Max=x。

计算机二级