主观

以下是一个竞赛评分程序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【 】Then Max=x

If【 】Then Min=x

s=s+x

Next i

s=【 】

p=s/6

MsgBox"最后得分:"& p

End Sub

参考答案
您可能感兴趣的试题
¥

订单号:

遇到问题请联系在线客服

订单号:

遇到问题请联系在线客服