填空题

下面是一个体操评分程序。20位评委，除去一个最高分和一个最低分，计算平均分(设满分为10分)。
Private Sub Command1_Click()
　Max=0
　Min=10
For I=1 To 20
　N=Val(InputBox("请输入分数"))
If (12) Then Max=N
If N＜Min Then Min=N
S=S+N
Next I
S= (13)
P=S/18
Print"最高分"；Max"最低分"；Min
Print"最后得分："；P
End Sub

【参考答案】

N＞Max
<上一题 目录 下一题>
热门 试题

填空题
在窗体上画一个名称为Command1的命令按钮，编写如下事件过程 Private Sub Command1_Click() Dim a As String a=______ For i=1 To 5 Print Space(6-i);Mid$(a,6-i,2*i-1) Next i End Sub 程序运行后，单击命令按钮，要求窗体上显示的输出结果如下，请填空。 5 456 34567 2345678 123456789
填空题
在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)，此时如果在文本框中输入字符，则命令按钮Command1变为可用。请填空。 Pfivate Sub Form_Load() Command1.Enabled=False End Sub Private Sub Text1______ Command1.Enabled=True End Sub
相关试题