[填空题] 以下程序的功能是:从键盘上输入若干个数字,当输入负数时结束输入,统计出若干数字的平均值,输出结果。请填空。 Private Sub Form_click() Dim x,y As Single Dim z As Integer x=InputBox("Enter a score") Do while 【8】 y=y+xz=z+1x=InputBox("Enter a score") Loop If z=0 Thenz=1 End If y= 【9】 Print y End Sub
[填空题] 以下程序的功能是:从键盘上输入若干个数字,当输入负数时结束输入,统计出若干数字的平均值,输出结果。请填空。 Private Sub Form_click() Dim x,y As Single Dim z As Integer x=InputBox("Enter a score") Do while 【8】 y=y+xz=z+1x=InputBox("Enter a score") Loop If z=0 Thenz=1 End If y= 【9】 Print y End Sub
【8】x>=0
【9】y/z[评析] 根据表达式的值有条件地执行一组语句。语法If condition Then [statements] [Else else statements]或者,可以使用块形式的语法;If condition Then[statements][EIseIfcondition-n Then[elseifstatements]…[Else[elsestatements]]End If当条件为True时,或直到条件变为True时,重复执行一个语句块中的命令。语法Do[{While | Until }condition][statements][Exit Do][statements]Loop或者可以使用下面这种语法:Do[statements][Exit Do][statements]Loop[{While | Until}condition]本题的循环首先判断输入是否大于0,如果是则处理这个输入,否则结束循环。循环体内的第二个判断语句判断的是当前输入是否比当前的最小值小,如果是则改写当前最小值为输入值,否则结束判断语句。
VIP截止日期:2024-12-31 04:04:48
←请使用支付宝扫码支付VIP截止日期:2024-12-31 04:04:48
←请使用微信扫码支付