




版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
從零開始編寫程序授課人:XXX程序的順序結(jié)構(gòu)回顧舊知常量定義說明語句格式Const常量名As類型=表達(dá)式Eg:ConstPIAsSingle=3.14變量定義說明語句格式Dim變量名As類型Eg:DimrAsSingle,sAsSingle賦值語句變量=表達(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我可是十分樂于助人的,讓我仔細(xì)瞅瞅!用編程解決實(shí)際問題我遇到兩個(gè)用編程解決實(shí)際問題的難題,解決不出來,你們能幫幫我嗎?問題一:長方體全面積和體積問題描述:已知長方體的長、寬、高,編寫一個(gè)程序,求長方體的表面積和體積?用編程解決實(shí)際問題具體問題分析問題設(shè)計(jì)算法編寫程序調(diào)試程序得到答案用計(jì)算機(jī)解決問題的過程問題一:長方體全面積和體積問題描述:已知長方體的長、寬、高,編寫一個(gè)程序,求長方體的表面積和體積?問題一:長方體全面積和體積分析問題問題描述:已知長方體的長、寬、高,編寫一個(gè)程序,求長方體的表面積和體積?設(shè)長方體的長、寬、高分別為A,B,C,長方體的表面積為:S=2*(A*B+A*C+B*C)體積為:V=A*B*C變量為:A、B、C、S、VACBSV用編程解決實(shí)際問題具體問題分析問題設(shè)計(jì)算法編寫程序調(diào)試程序得到答案用計(jì)算機(jī)解決問題的過程問題一:長方體全面積和體積設(shè)計(jì)算法①輸入A,B,C的值;開始輸入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;問題一:長方體全面積和體積編寫程序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分析問題問題二:反向輸出設(shè)X為輸入的三位整數(shù),Y為X的反向輸出。問題描述:從鍵盤上輸入一個(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問題二:反向輸出設(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的值。流程圖開始輸入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問題二:反向輸出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編寫程序哈哈哈,我明白了,非常感謝你們!!!用編程解決實(shí)際問題不客氣,我也學(xué)會(huì)了新的知識(shí)!!!順序結(jié)構(gòu)開始語句1。。。語句N結(jié)束執(zhí)行時(shí)按語句出現(xiàn)的順序執(zhí)行。即當(dāng)執(zhí)行第一條語句后,必然從第二條語句繼續(xù),順序執(zhí)行所有的語句,直到執(zhí)行完最后一條語句為止。程序的順序結(jié)構(gòu)一條大路走到底課堂小結(jié)具體問題分析問題設(shè)計(jì)算法編寫程序調(diào)試程序
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 2025年信息技術(shù)教學(xué)考試試卷及答案
- 2025年國際貿(mào)易實(shí)務(wù)職業(yè)考題及答案
- 2025年可持續(xù)發(fā)展與環(huán)境教育考試試題及答案
- 萬達(dá)安全考試題庫及答案
- 一級(jí)語文通知試題及答案
- 裝修拆墻施工合同協(xié)議書
- 廣東省東莞市翰林實(shí)驗(yàn)學(xué)校2024-2025學(xué)年高一下學(xué)期期中考試數(shù)學(xué)試題(解析)
- 傳染病預(yù)防與健康管理宣講
- 患者的護(hù)理管理
- 城市應(yīng)急供電系統(tǒng)升級(jí)補(bǔ)充協(xié)議
- 2025年4月自考00242民法學(xué)試題及答案含評(píng)分標(biāo)準(zhǔn)
- 2025年氫化丁晴橡膠發(fā)展現(xiàn)狀及市場(chǎng)前景趨勢(shì)分析
- DB65-T 4623-2022 分散式風(fēng)電接入電力系統(tǒng)管理規(guī)范
- 退休終止勞動(dòng)合同協(xié)議書
- 2024譯林版七年級(jí)英語下冊(cè)期中復(fù)習(xí):Unit1-Unit4詞組講義
- 護(hù)士助教面試題及答案
- 第18課《井岡翠竹》課件-2024-2025學(xué)年統(tǒng)編版語文七年級(jí)下冊(cè)
- 第16課《有為有不為》公開課一等獎(jiǎng)創(chuàng)新教學(xué)設(shè)計(jì)
- 【MOOC】《思想道德與法治》(東南大學(xué))章節(jié)中國大學(xué)慕課答案
- 【MOOC】以案說法-中南財(cái)經(jīng)政法大學(xué) 中國大學(xué)慕課MOOC答案
- 卜算子-送鮑浩然之浙東課件
評(píng)論
0/150
提交評(píng)論