從零開始編寫程序授課人：XXX程序的順序結構回顧舊知常量定義說明語句格式Const常量名As類型=表達式Eg:ConstPIAsSingle=3.14變量定義說明語句格式Dim變量名As類型Eg:DimrAsSingle,sAsSingle賦值語句變量=表達式Eg:A=A+10輸入數據的函數InputBox(提示信息，標題，默認值，位置）Eg:A=InputBox(“A”,“輸入”,12,100,20）輸出數據的方法Print輸出內容Eg:Print“A=’’;A指對數據的提示，顯示在對話框中，不能省略指運行此函數后彈出的對話框的標題位置：指運行此函數后彈出的對話框的左上角在屏幕上的位置默認值：指默認的輸入數據值輸出內容可以是一個，也可以是多個：Eg:Print“A=’’;A或者Print“A=”;A,“B=”;B我可是十分樂于助人的，讓我仔細瞅瞅！用編程解決實際問題我遇到兩個用編程解決實際問題的難題，解決不出來，你們能幫幫我嗎?問題一：長方體全面積和體積問題描述：已知長方體的長、寬、高，編寫一個程序，求長方體的表面積和體積？用編程解決實際問題具體問題分析問題設計算法編寫程序調試程序得到答案用計算機解決問題的過程問題一：長方體全面積和體積問題描述：已知長方體的長、寬、高，編寫一個程序，求長方體的表面積和體積？問題一：長方體全面積和體積分析問題問題描述：已知長方體的長、寬、高，編寫一個程序，求長方體的表面積和體積？設長方體的長、寬、高分別為A，B，C，長方體的表面積為：S=2*(A*B+A*C+B*C)體積為：V=A*B*C變量為：A、B、C、S、VACBSV用編程解決實際問題具體問題分析問題設計算法編寫程序調試程序得到答案用計算機解決問題的過程問題一：長方體全面積和體積設計算法①輸入A，B，C的值；開始輸入A、B、C的值結束輸出S、V的值計算S=2*(A*B+A*C+B*C）計算V=A*B*C流程圖④輸出S，V的值。②計算S=2*(A*B+A*C+B*C）；③計算V=A*B*C；問題一：長方體全面積和體積編寫程序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分析問題問題二：反向輸出設X為輸入的三位整數，Y為X的反向輸出。問題描述：從鍵盤上輸入一個三位整數，然后將它反向輸出。

例如輸入456，輸出應為654。X的百位、十位、個位分別為：X1=X\100X2=（X-X1*100）\10X3=X-X1*100-X2*10所以Y=X3*100+X2*10+X1問題二：反向輸出設計算法①輸入X的值；②計算：X1=X\100③計算：X2=（X-X1*100）\10；④計算：X3=X-X1*100-X2*10；⑤計算：Y=X3*100+X2*10+X1；⑥輸出Y的值。流程圖開始輸入X的值結束輸出Y的值計算X1=X\100計算X2=（X-X1*100）\10計算X3=X-X1*100-X2*10計算Y=X3*100+X2*10+X1問題二：反向輸出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編寫程序哈哈哈，我明白了，非常感謝你們！！！用編程解決實際問題不客氣，我也學會了新的知識！！！順序結構開始語句1。。。語句N結束執行時按語句出現的順序執行。即當執行第一條語句后，必然從第二條語句繼續，順序執行所有的語句，直到執行完最后一條語句為止。程序的順序結構一條大路走到底課堂小結具體問題分析問題設計算法編寫程序調試程序