填空题

以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干
数字的平均值，显示结果。请填空。
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

【参考答案】

x＞=0
<上一题 目录 下一题>
热门 试题

填空题
在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() a=0 For i=1 to 2 For j=1 To 4 If j Mod 2＜＞0 Then a=a+1 End If a=a+1 Next j Next i MsgBox a End Sub程序执行后，单击命令按钮，消息框显示的是 【15】 。
填空题
用户定义的数据类型可以用（）关键字间说明。
相关试题