程序的順序結(jié)構(gòu) 課件粵教版高中信息技術(shù)選修1

從零開(kāi)始編寫(xiě)程序授課人：XXX程序的順序結(jié)構(gòu)回顧舊知常量定義說(shuō)明語(yǔ)句格式Const常量名As類型=表達(dá)式Eg:ConstPIAsSingle=3.14變量定義說(shuō)明語(yǔ)句格式Dim變量名As類型Eg:DimrAsSingle,sAsSingle賦值語(yǔ)句變量=表達(dá)式Eg:A=A+10輸入數(shù)據(jù)的函數(shù)InputBox(提示信息，標(biāo)題，默認(rèn)值，位置）Eg:A=InputBox(“A”,“輸入”,12,100,20）輸出數(shù)據(jù)的方法Print輸出內(nèi)容Eg:Print“A=’’;A指對(duì)數(shù)據(jù)的提示，顯示在對(duì)話框中，不能省略指運(yùn)行此函數(shù)后彈出的對(duì)話框的標(biāo)題位置：指運(yùn)行此函數(shù)后彈出的對(duì)話框的左上角在屏幕上的位置默認(rèn)值：指默認(rèn)的輸入數(shù)據(jù)值輸出內(nèi)容可以是一個(gè)，也可以是多個(gè)：Eg:Print“A=’’;A或者Print“A=”;A,“B=”;B我可是十分樂(lè)于助人的，讓我仔細(xì)瞅瞅！用編程解決實(shí)際問(wèn)題我遇到兩個(gè)用編程解決實(shí)際問(wèn)題的難題，解決不出來(lái)，你們能幫幫我嗎?問(wèn)題一：長(zhǎng)方體全面積和體積問(wèn)題描述：已知長(zhǎng)方體的長(zhǎng)、寬、高，編寫(xiě)一個(gè)程序，求長(zhǎng)方體的表面積和體積？用編程解決實(shí)際問(wèn)題具體問(wèn)題分析問(wèn)題設(shè)計(jì)算法編寫(xiě)程序調(diào)試程序得到答案用計(jì)算機(jī)解決問(wèn)題的過(guò)程問(wèn)題一：長(zhǎng)方體全面積和體積問(wèn)題描述：已知長(zhǎng)方體的長(zhǎng)、寬、高，編寫(xiě)一個(gè)程序，求長(zhǎng)方體的表面積和體積？問(wèn)題一：長(zhǎng)方體全面積和體積分析問(wèn)題問(wèn)題描述：已知長(zhǎng)方體的長(zhǎng)、寬、高，編寫(xiě)一個(gè)程序，求長(zhǎng)方體的表面積和體積？設(shè)長(zhǎng)方體的長(zhǎng)、寬、高分別為A，B，C，長(zhǎng)方體的表面積為：S=2*(A*B+A*C+B*C)體積為：V=A*B*C變量為：A、B、C、S、VACBSV用編程解決實(shí)際問(wèn)題具體問(wèn)題分析問(wèn)題設(shè)計(jì)算法編寫(xiě)程序調(diào)試程序得到答案用計(jì)算機(jī)解決問(wèn)題的過(guò)程問(wèn)題一：長(zhǎng)方體全面積和體積設(shè)計(jì)算法①輸入A，B，C的值；開(kāi)始輸入A、B、C的值結(jié)束輸出S、V的值計(jì)算S=2*(A*B+A*C+B*C）計(jì)算V=A*B*C流程圖④輸出S，V的值。②計(jì)算S=2*(A*B+A*C+B*C）；③計(jì)算V=A*B*C；問(wèn)題一：長(zhǎng)方體全面積和體積編寫(xiě)程序PrivateSubCommand1_Click()DimAAsSingle,BAsSingle,CAsSingle,SAsSingle,VAsSingleA=InputBox("A=","輸入")B=InputBox("B=","輸入")C=InputBox("C=","輸入")S=2*(A*B+A*C+B*C)V=A*B*CPrint“表面積S=";S,"體積V=";VEndSub分析問(wèn)題問(wèn)題二：反向輸出設(shè)X為輸入的三位整數(shù)，Y為X的反向輸出。問(wèn)題描述：從鍵盤(pán)上輸入一個(gè)三位整數(shù)，然后將它反向輸出。

例如輸入456，輸出應(yīng)為654。X的百位、十位、個(gè)位分別為：X1=X\100X2=（X-X1*100）\10X3=X-X1*100-X2*10所以Y=X3*100+X2*10+X1問(wèn)題二：反向輸出設(shè)計(jì)算法①輸入X的值；②計(jì)算：X1=X\100③計(jì)算：X2=（X-X1*100）\10；④計(jì)算：X3=X-X1*100-X2*10；⑤計(jì)算：Y=X3*100+X2*10+X1；⑥輸出Y的值。流程圖開(kāi)始輸入X的值結(jié)束輸出Y的值計(jì)算X1=X\100計(jì)算X2=（X-X1*100）\10計(jì)算X3=X-X1*100-X2*10計(jì)算Y=X3*100+X2*10+X1問(wèn)題二：反向輸出PrivateSubCommand1_Click()DimXAsInteger,X1AsInteger,X2AsIntegerDimX3AsInteger,YAsIntegerX=InputBox（"X=","輸入"）X1=X\100X2=(X-X1*100)\10X3=X-X1*100-X2*10Y=X3*100+X2*10+X1Print"Y="；YEndSub編寫(xiě)程序哈哈哈，我明白了，非常感謝你們！?。∮镁幊探鉀Q實(shí)際問(wèn)題不客氣，我也學(xué)會(huì)了新的知識(shí)?。。№樞蚪Y(jié)構(gòu)開(kāi)始語(yǔ)句1。。。語(yǔ)句N結(jié)束執(zhí)行時(shí)按語(yǔ)句出現(xiàn)的順序執(zhí)行。即當(dāng)執(zhí)行第一條語(yǔ)句后，必然從第二條語(yǔ)句繼續(xù)，順序執(zhí)行所有的語(yǔ)句，直到執(zhí)行完最后一條語(yǔ)句為止。程序的順序結(jié)構(gòu)一條大路走到底課堂小結(jié)具體問(wèn)題分析問(wèn)題設(shè)計(jì)算法編寫(xiě)程序調(diào)試程序