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

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

admin2009-05-20  34
问题 以下是一个竞赛评分程序。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
lf【  】Then Min=x
s=s +x
Next i
s=【  】
p=s/6
MsgBox"最后得分："& p
End Sub
选项
答案X＞Max 或 x＞=Max 或 Max＜x 或 Max＜=x X＜Min 或 x＜=Min 或 Min＞x 或 Min＞=Xs-Max-Min 或 s-Min-Max
解析 本题考查考生设计简单算法的能力。根据题意，首先要找出最大值与最小值，所给程序用循环读入数据并找出最大值与最小值，并对读入的数据进行求和操作。此时用总和减去最大值和最小值再求出平均分，就可完成题目要求。位置语句的作用是记录最高分，因此，在当前输入的分数x大于(也可以是大于或等于)以前的最高分数Max时，就应该使Max取当前的x值。因此，该位置应该填x＞Max、或 x＞=Max、或Max＜x、或Max＜=x。位置语句的作用是记录最低分，因此，在当前输入的分数x小于(也可以是小于或等于)以前的最低分数Min时，就应该使Min取当前的 x值。因此，该位置应该填x＜Min、或x＜=Min、或Min＞x、或Min＞=x。本题中For循环结束后，变量s的值为所有8个分数值的总和，而题目要求计算平均分的前提是去掉一个最高分和一个最低分，因为最高分储存在变量Max中，最低分储存在变量Min中，应该在总分s中将 Max和Min减掉。
转载请注明原文地址:https://kaotiyun.com/show/cf5p777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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