填空题
以下是一个竞赛评分程序8位评委,去掉一个最高分和一个最低分,计算平均分(设满分为10分),请填空补充完整。
Private Sub Form_Click()
Dim Max as Integer,Min as Integer
Dim i aS Integer, X as Integer,S as Integer
Dim p aS Single
Max=0
Min=10
For i=1 TO 8
x=Va1(1nputBox("请输入分数:"))
If{{U}} 【13】 {{/U}}Then Max=x
If{{U}} 【14】 {{/U}}Then Min=x
s=s+x
Next i
s={{U}} 【15】 {{/U}}
p=s/6
MsgBox"最后得分:"& p
End Sub