问题 填空题

以下是一个竞赛评分程序。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=10For i=1 To 8 x=Val(InputBox("请输入分数:")) If 【13】 Then Max=x lf 【14】 Then Min=x s=s +x Next i s= 【15】 p=s/6 MsgBox"最后得分:"& pEnd 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减掉。 位置应该填s-Max-Min或s-Min-Max。

选择题
单项选择题