【正文】 。 average End Sub 信息系 外院 11 習(xí)題 1. 依次在輸入 1,輸出結(jié)果是？ Private Sub Command_Click（） X=0 Do Until x = 1 a=Val(InputBox（“請(qǐng)輸入 A的值”） ) b=Val(InputBox（“請(qǐng)輸入 B的值”） ) x=Val(InputBox（“請(qǐng)輸入 X的值”） ) a=a+b+x print a Loop End Sub 輸出兩個(gè)結(jié)果，分別是 12和 2 信息系 外院 12 習(xí)題 2. 依次在輸入 1，輸出結(jié)果為 _______ Private Sub Command_Click（） X=0 Do Until x=1 a=Val(InputBox（“請(qǐng)輸入 A的值”） ) b=Val(InputBox（“請(qǐng)輸入 B的值”） ) x=Val(InputBox（“請(qǐng)輸入 X的值”） ) a=a+b+x Loop print a End Sub 輸出結(jié)果 只有一個(gè) ， 2 信息系 外院 13 3. 運(yùn)行下列程序，單擊窗體，則執(zhí)行結(jié)果是（） Private Sub Form_Click（） s=0 Do s=(s+1)*(s+2) Number= Number+1 Loop Until s = 30 Print Number ； s End Sub A) 0 1 B) 30 30 C) 4 30 D) 3 182 習(xí)題 信息系 外院 14 4. 運(yùn)行下列程序，單擊窗體，則執(zhí)行結(jié)果是（） Private Sub Form_Click（） b=1 a=2 Do While b 10 b=2*a+b Loop Print b End Sub A) 13 B) 17 C) 21 D) 33 習(xí)題 信息系 外院 15 習(xí)題 5. 運(yùn)行下列程序，單擊窗體，則執(zhí)行結(jié)果是 Private Sub Form_Click（） a = 100 Do s = s + a a = a + 1 Loop While a 111 Print a End Sub 結(jié)果 :a=101 信息系 外院 16 ，單擊窗體，則執(zhí)行結(jié)果是 _____ Private Sub Form_Click（） s = 0 i = 1 Do While i =100 If (i \ 5) * 5 = i Then s = s + 1 i = i + 1 End If Loop Print s End Sub 結(jié)果 :死循環(huán) 習(xí)題 信息系 外院 17 7. 運(yùn)行下列程序，單擊窗體，則執(zhí)行結(jié)果是 ____ Private Sub Form_Click（） s = 0 i = 1 Do While i =100 If (i \ 5) * 5 = i Then s = s + 1 End If i = i + 1 Loop Print s End Sub 結(jié)果 :s=20 習(xí)題 信息系 外院 18 While循環(huán) 語(yǔ)法格式： While 循環(huán)條件 循環(huán)體 Wend 這種結(jié)構(gòu)使用完全類似于 DoLoop的當(dāng)型循環(huán) (格式 1)，表示當(dāng)循環(huán)條件為 True時(shí)，反復(fù)執(zhí)行循環(huán)體，直到循環(huán)條件為False為止。定義計(jì)數(shù)器變量 i來(lái)記錄目前已輸出的行數(shù) i = 0 Do While i 6 39。 后測(cè)型循環(huán) 結(jié)構(gòu) 語(yǔ)法格式： 格式 1 (當(dāng)型 ) Do 循環(huán)體 Loop While 循環(huán)條件 格式 2 (直到型 ) Do 循環(huán)體 Loop Until 循環(huán)條件 循環(huán)條件 循環(huán)體 True False 循環(huán)條件 循環(huán)體 False True 前測(cè)型循環(huán)是 先判斷循環(huán)條件 ，循環(huán)體執(zhí)行次數(shù) ≥0； 后測(cè)型循環(huán)是 先執(zhí)行循環(huán)體 ，循環(huán)體執(zhí)行次數(shù) ≥1 。 Num+1 amp。步長(zhǎng)為 1，可省略 Step 1 Print **************** Next I 39。 = amp。 i * j amp。累加器等變量設(shè)置初始值 Do Until Abs(t) 10 ^ (6) 39。 是素?cái)?shù) End If End Sub 信息系 外院 44 窮舉法 編寫(xiě) “ 百元買(mǎi)百雞 ” 的程序：雞翁一值錢(qián)五；雞母一值錢(qián)三；雞雛三值錢(qián)一。 x End Sub 信息系 外院 39 求最大值或最小值問(wèn)題 求班級(jí)學(xué)生某一門(mén)課成績(jī)的最高分 ?這就是一個(gè)求最大值的問(wèn)題。 Next j