填空题
下面是一个体操评分程序,20位评委,除去一个最高分和一个最低分,计算平均分(设满分为10分)。请在空白处填入适当的代码。
Max=0
Min=10
For i=1 To 20
n=Val(InputBox("请输入分数"))
If______Then Max=n
If______Then Min=n
s=s+n
Next i
s=______
p=s/18
Print"最高分:"; Max,"最低分:"; Min
Print"最后得分:"; p
【参考答案】
n>Max;n<Min;S-Max-Min
点击查看答案
<上一题
目录
下一题>
热门
试题
填空题
下面程序用来计算: 请在空白处填入适当的代码。 Private Sub Command1_Click() A=Val(Text1, Text) B=Val(Text2.Text) Select Case A Case______ N=A+B Case______ N=B A Case______ N=0 End Select Text3.Text=N End Sub
点击查看答案
填空题
简述下列程序的功能:______。 Sub Form_Load() Dim d As Date d=Now Weekx=Weekday(d) Weeky=WeekdayName(Weekx) If Weekx=1 Or Weekx=7Then Debug.Print 今天是: ; Weeky Debug.Print 今天是休息日! Else Debug.Print 今天是: ; Weeky Debug.Print 今天是工作日! End If End Sub
点击查看答案
相关试题
以下程序的功能是:生成20个200到30...
定义动态数组需要分两步进行,首先在模块级...
下列程序的输出结果为______。 Sub...
以下程序的功能是:从键盘上输入若干个学生...
下列程序用IIf函数改写为______。 x...