以下是一个竞赛评分程序。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 = Val(InputBox("请输入分数：")) If _________Then Max = x If_________Then Min = x s = s + x Next i s = _________ p = s / 6 MsgBox "最后得分：" & p End Sub

题库:计算机等级考试 类型:填空题 时间:2017-07-03 17:32:06 免费下载:《填空》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 = Val(InputBox("请输入分数：")) If _________Then Max = x If_________Then Min = x s = s + x Next i s = _________ p = s / 6 MsgBox "最后得分：" & p End Sub

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