[填空題] 以下程序的功能是：從鍵盤上輸入若干個(gè)數(shù)字，當(dāng)輸入負(fù)數(shù)時(shí)結(jié)束輸入，統(tǒng)計(jì)出若干數(shù)字的平均值，輸出結(jié)果。請(qǐng)?zhí)羁铡?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[評(píng)析] 根據(jù)表達(dá)式的值有條件地執(zhí)行一組語(yǔ)句。 語(yǔ)法 If condition Then[statements][Else elsestatements] 或者，可以使用塊形式的語(yǔ)法： If condition Then [statemems] [Elself condition-n Then [elseifstatemems]… [Else [elsestatements]] End If 當(dāng)條件為True時(shí)，或直到條件變?yōu)門rue時(shí)，重復(fù)執(zhí)行一個(gè)語(yǔ)句塊中的命令。 語(yǔ)法 Do[{While|Until}condition] [statements] [Exit Do] [Statements] Loop 或者可以使用下面這種語(yǔ)法： Do [statements] [Exit Do] [statements] Loop[{While|Until}condition] 本題的循環(huán)首先判斷輸入是否大于0，如果是則處理這個(gè)輸入，否則結(jié)束循環(huán)。循環(huán)體內(nèi)的第二個(gè)判斷語(yǔ)句判斷的是當(dāng)前輸入是否比當(dāng)前的最小值小，如果是則改寫當(dāng)前最小值為輸入值，否則結(jié)束判斷語(yǔ)句。