2. 计算机
  3. 以下是一个竞赛评分程序。8位评委，去掉一个最高分和一个最低分，计算平均分(设满分为10分)。请填空补充完整。 Private Sub Form_Click() Dim Max As Integer,Min As Integer Dim i As I

以下是一个竞赛评分程序。8位评委，去掉一个最高分和一个最低分，计算平均分(设满分为10分)。请填空补充完整。 Private Sub Form_Click() Dim Max As Integer,Min As Integer Dim i As I

admin2009-02-10  79
问题 以下是一个竞赛评分程序。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
选项
答案x＞Max x＜Min s-Min-Max
解析 本题中先给最大值变量赋值为0，最小值变量赋值为10。然后把输入的分数x与最大值和最小值比较，如果x比最大值大，则把x赋值给Max，故第一空填x＞Max：如果x比最小值小，则把x赋值给Min，故第二空填 x＜Min。因为算平均分之前要把最高分和最低分去掉，故第三空应该填s-M9x-Min。
转载请注明原文地址:https://www.kaotiyun.com/show/0V5p777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)