分支結(jié)構(gòu)實(shí)踐

SelectCase分支結(jié)構(gòu)實(shí)踐

目的要求：對(duì)selectcase語(yǔ)句的應(yīng)用實(shí)踐

重點(diǎn)：選擇結(jié)構(gòu)的具體問(wèn)題的實(shí)現(xiàn)。難點(diǎn)：解決問(wèn)題的算法實(shí)現(xiàn)1、閱讀以下的程序，分別寫(xiě)出當(dāng)F=1，=2，3，4時(shí)程序運(yùn)行的結(jié)果，說(shuō)明程序的功能，并上機(jī)驗(yàn)證。(文件名為P47.frm)Case3C=A*BD=”×”Case4C=A/bD=”÷”CaseElseendEndSelectPrintA;D;B;”=”;CEndsub

PrivateSubCommand1_Click()

DimaAsinteger,basinteger

dimcasinteger,dAsstring

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

A=2

B=3

SelectCaseF

Case1

C=A+B

D=”+”

Case2C=A-BD=”-“2、編寫(xiě)一個(gè)程序，對(duì)某次測(cè)驗(yàn)的分?jǐn)?shù)進(jìn)行統(tǒng)計(jì)分析，統(tǒng)計(jì)59分以下，60――69分，70――79分、80――89分、90――99分和100分的同學(xué)各有多少人。(文件名為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(“請(qǐng)輸入實(shí)考人數(shù)：”)

Fori=1Tox

ag(i)=InputBox("請(qǐng)輸入此次測(cè)驗(yàn)的分?jǐn)?shù)：")SelectCaseag(i)Case100a=a+1Case90To99b=b+1Case80To89c=c+1Case70To79d=d+1Case60To69e=e+1CaseElsef=f+1EndSelectNextiPrinta,b,c,d,e,fEndSub

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

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

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

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