[填空題] 以下程序的功能是：從鍵盤上輸入若干個(gè)數(shù)字，當(dāng)輸入負(fù)數(shù)時(shí)結(jié)束輸入，統(tǒng)計(jì)出若干數(shù)字的平均值，輸出結(jié)果。請?zhí)羁铡? Private Sub Form_cl
[填空題] 以下程序的功能是：從鍵盤上輸入若干個(gè)數(shù)字，當(dāng)輸入負(fù)數(shù)時(shí)結(jié)束輸入，統(tǒng)計(jì)出若干數(shù)字的平均值，輸出結(jié)果。請?zhí)羁铡?/p>
Private Sub Form_click()
Dim x，y As Single
Dim z As Integer
x=InputBox("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
正確答案：[8]x＞=0[9]y/z
參考解析：[評析] 根據(jù)表達(dá)式的值有條件地執(zhí)行一組語句。 語法 If condition Then[statements][Else elsestatements] 或者；可以使用塊形式的語法； If condition Then [statements] [ElseIf condition-n Then [elseIfstatements]… [Else [elsestatements]] End If 當(dāng)條件為True時(shí)，或直到條件變?yōu)門rue時(shí)，重復(fù)執(zhí)行一個(gè)語句塊中的命令。 語法 Do[{While|Until}condition] [statemems] [Exit Do] [statements] Loop 或者可以使用下面這種語法： Do [statements] [Exit Do] [statements] Loop[{While[Until
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。