算法與程序設(shè)計(jì) 課件

《算法與程序設(shè)計(jì)》

——循環(huán)結(jié)構(gòu)（第1課時(shí)）

參賽序號(hào)：14思考幾個(gè)問(wèn)題1、如果制作了一條歡迎標(biāo)語(yǔ)，那么我們需要打印出來(lái)10條甚至更多條這個(gè)標(biāo)語(yǔ)該怎么做呢？2、計(jì)算機(jī)是如何查找到某個(gè)盤符或文件夾內(nèi)用戶所需要的一個(gè)文件？3、如何讀取出數(shù)據(jù)庫(kù)中的一組數(shù)據(jù)，并按從小到大或從大到小的順序排列顯示出來(lái)？要完成這樣有規(guī)律的重復(fù)性工作，應(yīng)該使用哪種程序結(jié)構(gòu)來(lái)實(shí)現(xiàn)呢？循環(huán)結(jié)構(gòu)特點(diǎn)在程序中，用于重復(fù)一個(gè)或一組語(yǔ)句的那一部分稱為循環(huán)。在一個(gè)循環(huán)中重復(fù)的語(yǔ)句（或語(yǔ)句組）稱為循環(huán)語(yǔ)句塊。ForNext循環(huán)語(yǔ)句格式For循環(huán)控制變量=初值To終值[Step步長(zhǎng)]

循環(huán)語(yǔ)句塊Next[循環(huán)控制變量]-----打印出1-20的所有奇數(shù)-----Fork=1To20Step2

Printk;Nextk------------------------------DoLoop循環(huán)語(yǔ)句格式格式1：

DoWhile/Until條件

循環(huán)語(yǔ)句塊

Loop格式2：Do

循環(huán)語(yǔ)句塊

LoopWhile/Until條件

---------------打印出N條歡迎語(yǔ)---------------DoWhilei<Ni=i+1Print"第"&i&"次：歡迎您學(xué)習(xí)VB循環(huán)結(jié)構(gòu)！"Loop----------------------------------------------信用卡問(wèn)題算法描述程序設(shè)計(jì)定義變量：①信用卡欠款變量Money=4.28，統(tǒng)計(jì)月數(shù)的累加變量MonthsMoney=4.28，DimMonthsAsLong②判斷應(yīng)還款是否<10000DoWhile？③如果②條件成立則月數(shù)加1，欠款增加，繼續(xù)執(zhí)行②；否則執(zhí)行④

Money=？Months=Months+1④輸出顯示月數(shù)和欠款

PrintMonths，

Money⑤程序結(jié)束EndSub評(píng)委打分思考：（1）回顧第1章第2節(jié)，第19頁(yè)“求三個(gè)數(shù)中最大值問(wèn)題”的算法思路。如何找到最高分和最低分？（2）如何獲得評(píng)委的打分？（3）計(jì)算選手最終得分的數(shù)學(xué)算式是什么？算法描述程序設(shè)計(jì)①定義變量：MaxS（最高分）、MinS（最低分）、Score（評(píng)委打分）、Sum（打分總計(jì)）、i（循環(huán)變量）DimMaxS#,MinS#,Score#,Sum#DimiAsInteger②循環(huán)開始：遍歷5位評(píng)委打分？③當(dāng)?shù)?個(gè)評(píng)委打分，MaxS、MinS、Sum賦初值Ifi=1ThenMaxS=？；

MinS=？；

Sum=？④如果不是第1個(gè)評(píng)委打分，則給MaxS、MinS、Sum的賦值，如果i<=5執(zhí)行②，否則執(zhí)行⑤IfMaxS<Val(Score)Then

MaxS=？ElseIfVal(Score)<MinSThenMinS=？EndIfSum=Sum+Val(Score)⑤輸出相應(yīng)信息PrintMaxS,MinS,？

⑧程序結(jié)束EndSub思考以下問(wèn)題并編寫程序： （1）查看圖形排列規(guī)律，填寫表格中“*”個(gè)數(shù)與所在行對(duì)應(yīng)關(guān)系，思考其之間關(guān)系的通項(xiàng)公式是什么。（2）VB中在窗體中默認(rèn)的打印位置怎樣？（3）如何調(diào)整“*”開