以下是一个竞赛评分程序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 【13】 Then Max=x
If 【14】 Then Min=x
s=s+x
Next i
s= 【15】
p=s/6
MsgBox"最后得分："& p
End Sub

题库:计算机等级考试 类型:填空题 时间:2017-07-03 15:01:47 免费下载:《填空》Word试卷

以下是一个竞赛评分程序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 【13】 Then Max=x
If 【14】 Then Min=x
s=s+x
Next i
s= 【15】
p=s/6
MsgBox"最后得分："& p
End Sub

本题关键词:Apgar1分钟评分,评分权数和,UPDRS评分,Karnofsky评分,Apeor评分,OAAS评分,APACHEⅡ评分,评分法,口述分级评分法,Manning评分法;