一起答
主观

以下是一个竞赛评分程序。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

试题出自试卷《国家二级(ACCESS)笔试模拟试卷4》
参考答案
查看试卷详情