A-A+
以下程序的功能是：从键盘上输入若干个数字 当输入负数时结束输入 统计出若干数字的平均值 输出
问题详情
以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。 Private Sub Form_click() Dim x, y As Single Dim z As Integer x=InputBox("Enter a score") Do while【 】 y=y+x z=z+1 x=InputBox("Enter a score") Loop If z=0 Then z=1 End If y=【 】 Print y End Sub
请帮忙给出正确答案和分析，谢谢！
参考答案
正确答案：x＞=0y/z
根据表达式的值有条件地执行一组语句。语法IfconditionThen[statements][Elseelsestatements]或者，可以使用块形式的语法：IfconditionThen[statements][ElseIfcondition-nThen[elseifsmtements]...[Else[elsestatements]]EndIf当条件为True时，或直到条件变为True时，重复执行一个语句块中的命令。语法Do[{While|Until}condition][statements][ExitDo][statements]Loop或者可以使用下面这种语法：Do[statements][ExitDo][statements]Loop[{While|Until}condition]本题的循环首先判断输入是否大于0，如果是则处理这个输入，否则结束循环。循环体内的第二个判断语句判断的是当前输入是否比当前的最小值小，如果是则改写当前最小值为输入值，否则结束判断语句。
