【正文】 m ? Excel VBA1 m = 1 Do m = m + 1 Loop Until m Mod 3 = 2 And m Mod 5 = 3 _ And m Mod 7 = 2 MsgBox 不定方程的一個(gè)解為 amp。 ? 難點(diǎn) ? 循環(huán)語(yǔ)句； ? 算法設(shè)計(jì)。 S ? 1 I ? 1 While S ? 10000 I ? I + 2 S ? S*I Wend MsgBox I ? Excel VBA2 S ? 1 I ? 1 Do I ? I + 2 S ? S*I Loop Until S10000 MsgBox I ? 循環(huán)語(yǔ)句 —— While 第 3節(jié) 基本算法語(yǔ)句 ? 偽代碼 例 8（ P2例 4） 拋硬幣試驗(yàn)。 a ? Excel VBA1 a ? InputBox(輸入第一個(gè)自然數(shù) ) b ? InputBox(輸入第二個(gè)自然數(shù) ) While a Mod b 0 r ? a Mod b a ? b b ? r Wend MsgBox 最大公約數(shù)為 amp。 第 1節(jié) 算法的含義 算法 3？ ? 四種圖框類型 第 2節(jié) 流程圖 輸入、輸出框 處理框 判斷框 起止框 ● NS結(jié)構(gòu)化流程圖 （ 1973年由美國(guó)學(xué)者 I． Nassi和B． Shneiderman提出 ， N和 S是這兩位學(xué)者英文姓名的第一個(gè)字母 ） ? 三種基本算法結(jié)構(gòu) i) 順序結(jié)構(gòu) ii) 選擇結(jié)構(gòu) A B p Y N A B 第 2節(jié) 流程圖 ? 三種基本算法結(jié)構(gòu) iii) 循環(huán)結(jié)構(gòu) 第 2節(jié) 流程圖 A p Y N A Y N p （直到型） （當(dāng)型） ? 循環(huán)結(jié)構(gòu)示例 第 2節(jié) 流程圖 N 開(kāi)始 結(jié)束 輸出該城市 投票 有一城市 得票超過(guò)總 票數(shù)一半 淘汰得票最少的城市 Y 引例 ? 循環(huán)結(jié)構(gòu) 第 2節(jié) 流程圖 例 4 （ P12）求 1 2 3 4 5。 Read x If x 0 Then y ← 1 Else If x ? 0 Then y ← 0 Else y ← 1 End If Print y x ? InputBox(輸入一個(gè)數(shù) ) If x 0 Then y ? 1 ElseIf x ? 0 Then y ? 0 Else y ? 1 End If MsgBox y 第 3節(jié) 基本算法語(yǔ)句 ? 循環(huán)語(yǔ)句 —— For ? 偽代碼 ? Excel VBA 例 6（ P21） 計(jì)算 1 ? 3 ? 5 ? 7 ? ? ? 99。 x0 ? Excel VBA1 a ? Val(InputBox(輸入?yún)^(qū)間左端點(diǎn)值 )) b ? Val(InputBox(輸入?yún)^(qū)間右端點(diǎn)值 )) c ? Val(InputBox(輸入誤差限制 )) Do