分支結構實踐_第1頁
分支結構實踐_第2頁
分支結構實踐_第3頁
分支結構實踐_第4頁
分支結構實踐_第5頁
已閱讀5頁，還剩2頁未讀， 繼續(xù)免費閱讀

下載本文檔

版權說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權，請進行舉報或認領

文檔簡介

SelectCase分支結構實踐

目的要求：對selectcase語句的應用實踐

重點：選擇結構的具體問題的實現(xiàn)。難點：解決問題的算法實現(xiàn)1、閱讀以下的程序，分別寫出當F=1，=2，3，4時程序運行的結果，說明程序的功能，并上機驗證。(文件名為P47.frm)Case3C=A*BD=”×”Case4C=A/bD=”÷”CaseElseendEndSelectPrintA;D;B;”=”;CEndsub

PrivateSubCommand1_Click()

DimaAsinteger,basinteger

dimcasinteger,dAsstring

F=inputbox(“請輸入F的值：”)

A=2

B=3

SelectCaseF

Case1

C=A+B

D=”+”

Case2C=A-BD=”-“2、編寫一個程序，對某次測驗的分數(shù)進行統(tǒng)計分析，統(tǒng)計59分以下，60――69分，70――79分、80――89分、90――99分和100分的同學各有多少人。(文件名為P48b.frm)

PrivateSubCommand1_Click()

Dimag(100)AsSingle,xasinteger

DimaAsInteger,bAsInteger,cAsInteger

DimdAsInteger,eAsInteger,fAsInteger

a=0

b=0

c=0

d=0

e=0

f=0

x=InputBox(“請輸入實考人數(shù)：”)

Fori=1Tox

ag(i)=InputBox("請輸入此次測驗的分數(shù)：")SelectCaseag(i)Case100a=a+1Case90To99b=b+1Case80To89c=c+1Case70To79d=d+1Case60To69e=e+1CaseElsef=f+1EndSelectNextiPrinta,b,c,d,e,fEndSub

3、我們把字符作如下的分類：大寫字母：A……Z；小寫字母：a……z；數(shù)字：0……9；其他字符。編寫一個程序，根據(jù)上述分類的方法，輸入一個字符，報告該字符所屬的類型。(文件名為P49c.frm)

PrivateSubForm_Click()DimstrAsStringstr=inputbox(“請輸入一個字符：”)SelectCasestrCase"A"To"Z"printstr;"是大寫字母。"Case"a"To"z"printstr;"是小寫字母。"Case"0"To"9"printstr;"是數(shù)字。"CaseElseprintstr;"是其他字符。"EndSelectEndSub

作業(yè)：我們把人作職下分類：

老人：60歲以上;中年：35歲到59歲;青年：23歲到34歲;青少年：1

溫馨提示

  • 1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預覽，若沒有圖紙預覽就沒有圖紙。
  • 4. 未經(jīng)權益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負責。
  • 6. 下載文件中如有侵權或不適當內(nèi)容，請與我們聯(lián)系，我們立即糾正。
  • 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論