更多"以下程序的功能是：从键盘上输入若干个学生的成绩，计算出乎均成绩，并输出"的相关试题:
[填空题]以下程序的功能是：从键盘上输入若干个学生的成绩，计算出乎均成绩，并输出低于平均分的学生成绩，用输入负数结束输入。
Dim x(10)，sum，ave，a，n，i
n=0
sum=0#
a=InputBox("Enter mark:")
Do While a＞=0 And n＜10
sum= 【12】
x(n)= 【13】
n=n+1
a=InputBox("Enter mark：")
Loop
ave= 【14】
Print "Output:"
Print "ave="；ave
For i=0 To n-1
If 【15】 Then
Print x(i)
End If
[填空题]以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干
数字的平均值，显示结果。请填空。
Private Sub Form_click（ ）
Dim x，y As Single
Dim z As Integer
x=InputBox("Enter a score")
Do while 【13】
y=y+x
z=z+1
x=InputBox("Enter a score")
Loop
If z=0 Then
z=1
End If
y=y/z
msgbox y
End Sub
[填空题]以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，显示结果。请填空。
Private Sub Form click（ ）
Dim x，y As Single
Dim z As Integer
x=Input Box (”Enter a score")
Do while 【13】
y=y + x
2=2+1
x=Input Box (”Enter a score")
Loop
if =0 Then
2=1
End lf
y=y/z
msgbox y
End Sub
[填空题]以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。
Private Sub Form_click（ ）
Dim x，y As Single
Dim z As Integer
x=Input Box("Enter a score")
Do while 【8】
y=y+x
z=z+1
x=InputBox("Enter a score")
Loop
If z=0 Then
z=1
End If
y= 【9】
Print y
End Sub
