




版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
1、第二冊(cè)第二章分支結(jié)構(gòu)程序例題一Private Sub Form_Click()guess = InputBox(請(qǐng)輸入一個(gè)整數(shù)密碼:, 密碼)password = 123456If guess = password ThenPrint yes!your are winEnd IfIf guess password ThenPrint again please!End IfEnd Sub 分支結(jié)構(gòu)程序例題二Dim x As Integerx = InputBox(“請(qǐng)你輸入一個(gè)正整數(shù), 輸入一個(gè)正整數(shù))If x 0 ThenPrint 你真聰明!ElsePrint “ 你動(dòng)動(dòng)腦筋啦,連什么是正整
2、數(shù)都不懂!End If條件語(yǔ)句的格式If 條件 thenElseEnd if說明:如果條件成立說明:如果條件成立(true)(true),則執(zhí)行語(yǔ)句塊;,則執(zhí)行語(yǔ)句塊;否則,執(zhí)行語(yǔ)句塊;否則,執(zhí)行語(yǔ)句塊;條件的設(shè)置必須根據(jù)具體的問題而立。條件的設(shè)置必須根據(jù)具體的問題而立。條件成立條件成立語(yǔ)句塊語(yǔ)句塊語(yǔ)句塊語(yǔ)句塊條件語(yǔ)句的下一語(yǔ)句條件語(yǔ)句的下一語(yǔ)句否否是是練習(xí)寫出程序的運(yùn)行結(jié)果:X=1Y=2If xy then Print x,yElsePrint y,xEnd iffalse語(yǔ)句塊語(yǔ)句塊語(yǔ)句塊語(yǔ)句塊結(jié)果結(jié)果: X=2Y=2If x2 thenY=X*XEndifPrint x,y2 4分析程序
3、:true學(xué)生體驗(yàn)密碼程序(任務(wù)一)Private Sub Form_Click()guess = InputBox(請(qǐng)輸入一個(gè)整數(shù)密碼:, 密碼)password = 123456If guess = password ThenPrint yes!your are winEnd IfIf guess password ThenPrint again please!End IfEnd Sub學(xué)生(任務(wù)二)x=inputbox(“請(qǐng)輸入一個(gè)數(shù)”,”輸入一個(gè)數(shù)”)If x=0 ThenPrint “你動(dòng)動(dòng)腦筋!正數(shù)的絕對(duì)值是它本身Print”y=”;xElsePrint 正確,你真聰明!負(fù)數(shù)的絕對(duì)值是它的相反數(shù)Print “y=”;-xEnd If修改程序(任務(wù)三)修改程序,當(dāng)r2500和R200 thenPrint “超出范圍”ElseCircle(2500,2500),rEnd if學(xué)生任務(wù)(四)上機(jī)練習(xí)(p46,2,3)作業(yè)下列程序?qū)崿F(xiàn)什么功能?寫出程序的結(jié)果:x=5 y=2 if xy then x=x+yprint x,y else y=x+yprint y,x end if 小結(jié)If 條件 thenE
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫(kù)網(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ì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 單位健康教育講座課件
- 廣西高中會(huì)考數(shù)學(xué)試卷
- 河北省單招六類數(shù)學(xué)試卷
- 調(diào)光玻璃項(xiàng)目園區(qū)審批申請(qǐng)報(bào)告
- 中國(guó)電網(wǎng)儲(chǔ)能市場(chǎng)全景評(píng)估及發(fā)展趨勢(shì)研究預(yù)測(cè)報(bào)告
- 中國(guó)陰極電泳漆部件行業(yè)市場(chǎng)全景評(píng)估及投資戰(zhàn)略研究報(bào)告
- 監(jiān)控系統(tǒng)節(jié)能評(píng)估報(bào)告
- 中國(guó)相變存儲(chǔ)器市場(chǎng)運(yùn)營(yíng)態(tài)勢(shì)及發(fā)展前景預(yù)測(cè)報(bào)告
- 萍鄉(xiāng)市流動(dòng)攤販管理辦法
- 健康活動(dòng)安全標(biāo)示課件
- GB/T 45403-2025數(shù)字化供應(yīng)鏈成熟度模型
- QGDW11337-2023輸變電工程工程量清單計(jì)價(jià)規(guī)范
- 生活垃圾焚燒發(fā)電廠自動(dòng)監(jiān)測(cè)設(shè)備運(yùn)行維護(hù)技術(shù)規(guī)范
- 病區(qū)安全管理工作
- 血管加壓藥物在急診休克中的應(yīng)用專家共識(shí)2021解讀課件
- 《超高強(qiáng)度鋼》課件
- 《個(gè)人信息保護(hù)法》知識(shí)考試題庫(kù)150題(含答案)
- 供應(yīng)室職業(yè)暴露與防護(hù)知識(shí)
- 高一化學(xué)達(dá)標(biāo)訓(xùn)練:第一單元化石燃料與有機(jī)化合物
- 反食品浪費(fèi)法培訓(xùn)
- 2025版國(guó)家開放大學(xué)法學(xué)本科《知識(shí)產(chǎn)權(quán)法》期末紙質(zhì)考試總題庫(kù)
評(píng)論
0/150
提交評(píng)論