[填空题]下面是一个体操评分程序。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

更多"下面是一个体操评分程序。20位评委，除去一个最高分和一个最低分，计算平"的相关试题:

查看答案

[填空题]

下面是一个体操评分程序。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

查看答案

[填空题]下面是一个体操评分程序，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

查看答案

[填空题]下列是一个体操评分程序。设满分为10分，20位评委，除去一个最高分和一个最低分，计算平均分。 Private Sub Command1_Click（　） Max=0 Min=10 For i=1 To 20 n=Val(InputBox("请输入分数")) If n＞Max Then Max=n If n＜Min Then Min=n s=s+n ______ s=s-Min-Max p=s/18 Print "最高分"; Max; "最低分"; Min Print "最后得分: "; p End Sub

查看答案

[填空题]下列是一个体操评分程序。设满分为10分，20位评委，除去一个最高分和一个最低分，计算平均分。
Private Sub Command1_Click（　）
Max=0
Min=10
For i=1 To 20
n=Val(InputBox("请输入分数"))
If n＞Max Then Max=n
If n＜Min Then Min=n
s=s+n
______
s=s-Min-Max
p=s/18
Print "最高分"; Max; "最低分"; Min
Print "最后得分: "; p
End Sub

查看答案

[填空题]下列是一个体操评分程序。设满分为10分，20位评委，除去一个最高分和一个最低分，计算平均分。 Private Sub Commandl_Click（　） Max=0 Min=10 For i=1 To 20 n=Val(InputBox("请输入分数")) If n＞Max Then Max=n If n＜Min Then Min=n s=s+n _______ s=s-Min-Max p=s/18 Print "最高分"；Max；"最低分"；Min Print "最后得分："；p End Sub

查看答案

[填空题]以下是一个竞赛评分程序。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

查看答案

[填空题]以下是一个竞赛评分程序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=Va1(1nputBox("请输入分数："))
If 【13】 Then Max=x
If 【14】 Then Min=x
s=s+x
Next i
s= 【15】
p=s/6
MsgBox"最后得分："& p
End Sub

查看答案

[填空题]以下是一个竞赛评分程序。8位评委，去掉一个最高分和一个最低分，计算平均分(设满分为10分)。请填空补充完整。
PrivateSubForm_Click（　）
Dim Max as Integer,Min as Integer
Dim i as Integer,x as Integer,s as Integer
Dimp p as Single
Max=0
Min=10
Fori=1 To 8
x=Vid(1nputBox("请输入分数:"))
If______Ihen Max=x
If______ThhcnMin=x
s=s+x
Nexti
S=______
p=s/6
MsgBox"最后得分:"&p
EndSub

查看答案

[填空题]以下是一个竞赛评分程序。8位评委，去掉一个最高分和一个最低分，计算下均分(设满分为10分)，请填空补充完整。 Private Sub Form_Click（　） Dim Max as Integer,Min as Integer Dial 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 【13】 Then Max=x If 【14】 Then Min=x s=s+x Next i s= 【15】 p=s/6 MsgBox"最后得分："&P End Sub

查看答案

我来回答:

提交