第7章-程序VB選擇結(jié)構(gòu)程序設(shè)計(jì)課件

第7章選擇結(jié)構(gòu)程序設(shè)計(jì)

第7章選擇結(jié)構(gòu)程序設(shè)計(jì)1學(xué)習(xí)重點(diǎn)

If語(yǔ)句、IIf函數(shù)、Switch函數(shù)、SelectCase語(yǔ)句的格式與使用。If語(yǔ)句的嵌套使用。掌握常用的選擇結(jié)構(gòu)算法。學(xué)習(xí)重點(diǎn)If語(yǔ)句、IIf函數(shù)、Switch函數(shù)、Selec2本章內(nèi)容7.1If語(yǔ)句7.2SelectCase語(yǔ)句7.3基本算法及應(yīng)用7.4其他應(yīng)用舉例本章小結(jié)

本章內(nèi)容7.1If語(yǔ)句3引言分支結(jié)構(gòu)

True

False

P

A

B

引言分支結(jié)構(gòu)TrueFalsePAB47.1If語(yǔ)句7.1.1If…Then…結(jié)構(gòu)

7.1.2If…Then…Else…結(jié)構(gòu)

7.1.3If…Then…ElseIf…結(jié)構(gòu)

7.1.4If語(yǔ)句的嵌套

7.1.5與If語(yǔ)句有關(guān)的函數(shù)

7.1If語(yǔ)句7.1.1If…Then…結(jié)構(gòu)5注1：條件表達(dá)式的值為True或False，一般是邏輯或關(guān)系表達(dá)式，也可以是算術(shù)表達(dá)式（轉(zhuǎn)換為邏輯值）7.1.1If…Then…結(jié)構(gòu)兩種格式：格式1：

塊形式

If<條件表達(dá)式>Then 語(yǔ)句體EndIf

格式2：?jiǎn)涡行问?/p>

If<條件表達(dá)式>Then語(yǔ)句體條件表達(dá)式語(yǔ)句體TrueFalse注2：當(dāng)條件為True時(shí)執(zhí)行語(yǔ)句體，否則執(zhí)行If語(yǔ)句的下一條語(yǔ)句注3：語(yǔ)句體中可以是多條語(yǔ)句，當(dāng)采用格式2時(shí)，所有的語(yǔ)句必須寫在一行，用冒號(hào)隔開語(yǔ)句體中的語(yǔ)句注1：條件表達(dá)式的值為True或False，一般是邏輯或關(guān)系67.1.1If…Then…結(jié)構(gòu)例：已知有兩數(shù)x、y，編程使x中存放較大的數(shù)分析：如果x>=y，則不需要做處理

如果x<y，則做交換處理實(shí)現(xiàn)：

Ifx<yThen

temp=x

x=y

y=temp

EndIf用格式2描述：

Ifx<yThentemp=x:x=y:y=temp特別注意：塊結(jié)構(gòu)時(shí)If和EndIf成對(duì)出現(xiàn)7.1.1If…Then…結(jié)構(gòu)例：已知有兩數(shù)x、y，編程77.1.1If…Then…結(jié)構(gòu)例7-1電子鬧鐘設(shè)計(jì)，主要利用文本框、按鈕、計(jì)時(shí)器控件實(shí)現(xiàn)鬧鐘功能。

7.1.1If…Then…結(jié)構(gòu)例7-1電子鬧鐘設(shè)計(jì)，8例7-1程序代碼如下：PrivateSubCommand1_Click()Timer1.Enabled=NotTimer1.Enabled '用Not運(yùn)算進(jìn)行開關(guān)控制EndSubPrivateSubTimer1_Timer()DimdAsDated=Text1.Text

IfHour(Time)=Hour(d)AndMinute(Time)=Minute(d)ThenBeep'到達(dá)時(shí)間后發(fā)聲EndSub功能：連續(xù)1分鐘響鈴，60次等價(jià)于：IfHour(Time)=Hour(d)AndMinute(Time)=Minute(d)ThenBeepEndIf例7-1程序代碼如下：功能：連續(xù)1分鐘響鈴，60次等價(jià)于：97.1.2If…Then…Else…結(jié)構(gòu)兩種格式：格式1：If<條件表達(dá)式>Then 語(yǔ)句體1Else

語(yǔ)句體2EndIf格式2：If<條件表達(dá)式>Then語(yǔ)句體1Else語(yǔ)句體2注：當(dāng)條件為True時(shí)執(zhí)行語(yǔ)句體1，否則執(zhí)行語(yǔ)句體2T條件表達(dá)式語(yǔ)句體1F語(yǔ)句體27.1.2If…Then…Else…結(jié)構(gòu)兩種格式：格式110例7-2

已知x，求程序代碼如下：PrivateSubCmdCul_Click()DimxAsSingle,yAsSinglex=Val(txtX.Text) '第1個(gè)文本框的名稱是txtXIfx<0ThenMsgBox"x不能小于0"Elsey=Sqr(x)txtY.Text=Str(y) '第2個(gè)文本框的名稱是txtYEndIfEndSub等價(jià)于：Ifx<0ThenMsgBox"x不能小于0"Elsey=Sqr(x):txtY.Text=Str(y)

例7-2已知x，求程序代碼如下：等價(jià)于：117.1.3If…Then…ElseIf…結(jié)構(gòu)

If<表達(dá)式1>Then

語(yǔ)句體1

ElseIf<表達(dá)式2>Then

語(yǔ)句體2

……

[Else

語(yǔ)句體n+1]

EndIf表達(dá)式1＝True執(zhí)行語(yǔ)句體1False表達(dá)式2＝True執(zhí)行語(yǔ)句體2False表達(dá)式3＝……Else和If間無(wú)空格格式：7.1.3If…Then…ElseIf…結(jié)構(gòu)

If127.1.3If…Then…ElseIf…結(jié)構(gòu)FT表達(dá)式1語(yǔ)句體1表達(dá)式2語(yǔ)句體2TF……表達(dá)式n語(yǔ)句體n……F語(yǔ)句體n+1……T判斷的順序?yàn)楸磉_(dá)式1、表達(dá)式2……只有當(dāng)表達(dá)式1為False時(shí)才判斷表達(dá)式2，當(dāng)表達(dá)式1和表達(dá)式2都為False時(shí)，才判斷表達(dá)式3，程序執(zhí)行語(yǔ)句體n+1的條件為前n個(gè)表達(dá)式均為False。7.1.3If…Then…ElseIf…結(jié)構(gòu)FT表達(dá)式1137.1.3If…Then…ElseIf…結(jié)構(gòu)例：已知變量ch中存放了一個(gè)字符，判斷該字符是字母字符、數(shù)字字符、空格還是其它字符。分析：

字母字符：

ch>=“a”Andch<=“z”O(jiān)rch>=“A”Andch<=“Z”

數(shù)字字符：ch>=“0”Andch<=“9”

空格字符：ch=“”實(shí)現(xiàn)：

Ifch>=“a”Andch<=“z”O(jiān)rch>=“A”Andch<=“Z”Then

Print“字母字符”

ElseIfch>=“0”Andch<=“9”Then

Print“數(shù)字字符”

ElseIfch=“”Then

Print“空格”

Else

Print“其他字符”

EndIf7.1.3If…Then…ElseIf…結(jié)構(gòu)例：已知變量147.1.3If…Then…ElseIf…結(jié)構(gòu)例7-3旅客乘車旅行，可免費(fèi)攜帶30公斤行李，超過30公斤的部分每公斤需支付托運(yùn)費(fèi)10元，超過50公斤部分則每公斤需支付20元托運(yùn)費(fèi)。請(qǐng)編程根據(jù)每位旅客行李的重量計(jì)算其應(yīng)付的行李托運(yùn)費(fèi)。7.1.3If…Then…ElseIf…結(jié)構(gòu)例7-315例7-3此分段函數(shù)用程序代碼表示如下:PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)Ifx<30Then 'x<30y=0ElseIfx<=50Then '30<=x<=50y=(x-30)*10Else 'x>50y=(x-50)*20+20*10EndIfText2.Text=yEndSubx>=30Andx<=50能否寫成？可以，但Else已經(jīng)包含了x>=30的信息例7-3此分段函數(shù)用程序代碼表示如下:x>=30And167.1.4If語(yǔ)句的嵌套If語(yǔ)句中又包含If語(yǔ)句在Then子句或Else子句的語(yǔ)句體中包含完整的一條If語(yǔ)句如：Ifx>yThen

Printx&“>”&y

Else

Ifx<yThen

Printx&“<”&y

Else

Printx&“=”&y EndIf

EndIf一條If語(yǔ)句一條If語(yǔ)句7.1.4If語(yǔ)句的嵌套If語(yǔ)句中又包含If語(yǔ)句一條If177.1.4If語(yǔ)句的嵌套注1：If語(yǔ)句的完整性，即內(nèi)層If語(yǔ)句必須完整地出現(xiàn)在外層If語(yǔ)句的Then子句或Else子句中。外層If內(nèi)層If內(nèi)層If內(nèi)外層不能有交叉！7.1.4If語(yǔ)句的嵌套注1：If語(yǔ)句的完整性，即內(nèi)層187.1.4If語(yǔ)句的嵌套注2：Else－If的匹配原則Else始終與上面距離其最近的未被匹配過的If匹配注3：If－EndIf的匹配If塊必須以一個(gè)EndIf語(yǔ)句結(jié)束If…Then

If…Then

……

Else

……

EndIf

Else

If…Then……

If……Then

……

Else

……

EndIf

EndIf7.1.4If語(yǔ)句的嵌套注2：Else－If的匹配原則I197.1.4If語(yǔ)句的嵌套 為使程序結(jié)構(gòu)更為清晰，

要養(yǎng)成良好的書寫習(xí)慣。If…Then

If…Then

……

Else

……

EndIf

Else

If…Then……

If……Then

……

Else

……

EndIf

EndIf為體現(xiàn)層次，可以使用Tab健排放不同層次的語(yǔ)句①④②③7.1.4If語(yǔ)句的嵌套 為使程序結(jié)構(gòu)更為清晰，

要養(yǎng)成207.1.4If語(yǔ)句的嵌套例7-4根據(jù)用戶輸入年齡和性別，輸出不同的歡迎信息。其中小于14歲的男性為boy，大于14歲的男性為guy，其中小于14歲的女性為girl，大于14歲的女性為miss。7.1.4If語(yǔ)句的嵌套例7-4根據(jù)用戶輸入年齡和性21例7-4程序代碼如下：PrivateSubCommand1_Click()IfOp_male.Value=TrueThenIfVal(Txt_age.Text)<14Then '小于14歲的男性MsgBox"Hello,boy!"Else '大于或等于14歲的男性MsgBox"Hello,guy!"EndIfElseIfVal(Txt_age.Text)<14Then '小于14歲的女性MsgBox"Hello,girl!"Else '大于或等于14歲的女性MsgBox"Hello,miss!"EndIfEndIfEndSub①②③例7-4程序代碼如下：①②③227.1.5與If語(yǔ)句有關(guān)的函數(shù)1.IIf函數(shù)*2.Switch函數(shù)7.1.5與If語(yǔ)句有關(guān)的函數(shù)1.IIf函數(shù)231.IIf函數(shù)格式：IIf(條件表達(dá)式，條件為True時(shí)的表達(dá)式，條件為False時(shí)的表達(dá)式)功能：

根據(jù)條件表達(dá)式的值，確定函數(shù)返回后面兩個(gè)表達(dá)式的其中一個(gè)的值。

Ifa>bThen

max=a

Else

max=b

EndIfmax=IIf(a>b,a,b)1.IIf函數(shù)格式：Ifa>bThen

max=a

241.IIf函數(shù)IIf函數(shù)實(shí)際上是If…Then…Else結(jié)構(gòu)的一個(gè)簡(jiǎn)寫IIf函數(shù)中后兩個(gè)表達(dá)式可以是各種類型的表達(dá)式，也可以是一個(gè)IIf函數(shù)的調(diào)用①Printx&IIf(x>0,“大于0”,“小于或小于0”)②s=IIf(x>0,1,IIf(x=0,0,-1))

’判斷x的符號(hào)

1.IIf函數(shù)IIf函數(shù)實(shí)際上是If…Then…Else結(jié)251.IIf函數(shù)將If語(yǔ)句改寫成使用IIf函數(shù)：Ifx<30Theny=0ElseIfx<=50Theny=(x-30)*10Elsey=(x-50)*20+20*10EndIf等價(jià)于：y=IIf(x<30,0,IIf(x<=50,(x-30)*10,(x-50)*20+20*10))1.IIf函數(shù)將If語(yǔ)句改寫成使用IIf函數(shù)：If262.Switch函數(shù)格式

Switch(表達(dá)式1,值1[,表達(dá)式2,值2…[,表達(dá)式n,值n]])

功能

計(jì)算一組條件表達(dá)式列表的值，然后返回與條件表達(dá)式列表中最先為True的表達(dá)式所對(duì)應(yīng)的Variant型數(shù)值或表達(dá)式。如：

lblstatus.Caption=_

Switch(grade>=90,"A",grade>=80,"B",grade<80,"C")用于多分支情況

條件表達(dá)式和值必須成對(duì)出現(xiàn)!2.Switch函數(shù)格式

Switch(表達(dá)式1,值1[,272.Switch函數(shù)將If語(yǔ)句改寫成使用Switch函數(shù)：Ifx<30Theny=0ElseIfx<=50Theny=(x-30)*10Elsey=(x-50)*20+20*10EndIf等價(jià)于：y=Switch(x<30,0,x<=50,(x-30)*10,x>50,(x-50)*20+20*10)條件條件條件值值值2.Switch函數(shù)將If語(yǔ)句改寫成使用Switch函數(shù)：287.2SelectCase語(yǔ)句(多分支語(yǔ)句)格式：

SelectCase<測(cè)試表達(dá)式>

Case表達(dá)式列表1

<語(yǔ)句塊1>

Case表達(dá)式列表2

<語(yǔ)句塊2>

……

[CaseElse

<語(yǔ)句塊n+1>]

EndSelect7.2SelectCase語(yǔ)句(多分支語(yǔ)句)297.2SelectCase語(yǔ)句T表達(dá)式1語(yǔ)句體1表達(dá)式2語(yǔ)句體2T……表達(dá)式n語(yǔ)句體n……語(yǔ)句體n+1……T執(zhí)行過程:①計(jì)算測(cè)試表達(dá)式的值；②依次比較各個(gè)表達(dá)式，符合條件則進(jìn)入相應(yīng)的語(yǔ)句體執(zhí)行；③執(zhí)行SelectCase語(yǔ)句的下一條語(yǔ)句。計(jì)算測(cè)試表達(dá)式的值7.2SelectCase語(yǔ)句T表達(dá)式1語(yǔ)句體1表達(dá)式307.2SelectCase語(yǔ)句注1：測(cè)試表達(dá)式可以是數(shù)值或字符串表達(dá)式；注2：各表達(dá)式列表

合法的格式：①一個(gè)常量或常量表達(dá)式②多個(gè)常量或常量表達(dá)式，用逗號(hào)隔開，逗號(hào)相當(dāng)于“或”，如：Case1，3，5，7③表達(dá)式1to表達(dá)式2，表示從表達(dá)式1到表達(dá)式2中所有的值，其中表達(dá)式1的值必須小于表達(dá)式2的值。如：Case1to5④Is關(guān)系運(yùn)算表達(dá)式，可以使用的關(guān)系運(yùn)算符為：>、>=、<、<=、<>、=，不可以使用邏輯運(yùn)算符表示多個(gè)范圍。⑤前面四種情況的組合，如CaseIs>10,2,4,6,Is<0

注3：若有多個(gè)Case表達(dá)式符合條件，則只執(zhí)行第一個(gè)符合的Case下的語(yǔ)句體。

7.2SelectCase語(yǔ)句注1：測(cè)試表達(dá)式可以是數(shù)317.2SelectCase語(yǔ)句例：已知變量ch中存放了一個(gè)字符，判斷該字符是字母字符、數(shù)字字符、空格還是其它字符。(用SelectCase語(yǔ)句改寫)分析：

將各種字符的判斷條件改寫成符合要求的Case條件字母字符：ch>=“a”Andch<=“z”O(jiān)rch>=“A”Andch<=“Z”

“a”To“z”,“A”to“Z”數(shù)字字符：ch>=“0”Andch<=“9”

“0”To“9”空格字符：ch=“”

“”

Is=“”實(shí)現(xiàn)：SelectCasech

Case“a”To“z”,“A”to“Z”

Print“字母字符”

Case“0”To“9”

Print“數(shù)字字符”

Case“”

Print“空格”

CaseElse

Print“其他字符”

EndSelect7.2SelectCase語(yǔ)句例：已知變量ch中存放了327.2SelectCase語(yǔ)句例7-5簡(jiǎn)單運(yùn)算器分析：

運(yùn)算符的判斷：共四種取值，事先已在ComboBox中SelectCaseCmbop.Text

Case"＋"

txtresult=Val(txtX)+Val(txtY)Case"－" txtresult=Val(txtX)-Val(txtY)Case"×" txtresult=Val(txtX)*Val(txtY)Case"÷" txtresult=Val(txtX)/Val(txtY)EndSelect

除數(shù)為0？IfVal(txtY)<>0Thentxtresult=Val(txtX)/Val(txtY)ElseMsgBox"被0除"txtY="":txtY.SetFocusEndIf7.2SelectCase語(yǔ)句例7-5簡(jiǎn)單運(yùn)算器Sel337.2SelectCase語(yǔ)句所有SelectCase語(yǔ)句可以替換為If…Then…ElseIf…語(yǔ)句。只有在If語(yǔ)句和每一個(gè)ElseIf語(yǔ)句計(jì)算相同條件表達(dá)式時(shí)，才能用SelectCase結(jié)構(gòu)替換If…Then…ElseIf…結(jié)構(gòu)。Ifx<30Theny=0ElseIfx<=50Theny=(x-30)*10Elsey=(x-50)*20+20*10EndIfSelectCasexCaseIs<30y=0Case30To50y=(x-30)*10CaseIs>50y=(x-50)*20+20*10EndSelect7.2SelectCase語(yǔ)句所有SelectCa347.3基本算法及應(yīng)用7.3.1求兩個(gè)數(shù)的最大（?。┲?.3.2用戶輸入時(shí)按鍵的判斷7.3.3信息的有效性驗(yàn)證7.3.4單選鈕和復(fù)選框的應(yīng)用

7.3基本算法及應(yīng)用7.3.1求兩個(gè)數(shù)的最大（?。┲?57.3.1求兩個(gè)數(shù)的最大（?。┲捣治觯簝蓚€(gè)數(shù)的關(guān)系無(wú)非有3種情形，即：

A>B，A=B，A<B。實(shí)現(xiàn)：(最大值)IfA>=BThenMax=AElseMax=B

IfA>BThenMax=AElseMax=B

7.3.1求兩個(gè)數(shù)的最大（?。┲捣治觯?67.3.2用戶輸入時(shí)按鍵的判斷兩種方法：一是在輸入時(shí)判斷，使用文本框的Key事件；常用：KeyPress事件（KeyAscii參數(shù)）二是在全部輸入完成后再對(duì)每個(gè)字符進(jìn)行判斷，使用循環(huán)結(jié)構(gòu)依次獲取字符串中的字符。

例7-7在文本框中輸入一個(gè)字符串，要求只能出現(xiàn)字母。PrivateSubText1_KeyPress(KeyAsciiAsInteger)

If(KeyAscii<Asc("a")OrKeyAscii>Asc("z"))And_(KeyAscii<Asc("A")OrKeyAscii>Asc("Z"))ThenKeyAscii=0EndSub7.3.2用戶輸入時(shí)按鍵的判斷兩種方法：例7-7在文本框377.3.3信息的有效性驗(yàn)證例7-8登錄界面設(shè)計(jì)“確定”按鈕的Click事件過程如下：PrivateSubcmdok_Click()If txtuser.Text=""Ortxtpwd.Text=""ThenMsgBox"請(qǐng)輸入完整信息！"ElseIftxtpwd.Text<>"20082008"ThenMsgBox "密碼錯(cuò)誤，不能登錄！"txtpwd.Text=""txtpwd.SetFocusElseMsgBox txtuser.Text&"，歡迎您！"EndIfEndIfEndSub有效信息：①帳號(hào)和密碼都不能空②密碼符合要求這樣的密碼設(shè)置方法，安全性差7.3.3信息的有效性驗(yàn)證例7-8登錄界面設(shè)計(jì)“確定”按387.3.4單選鈕和復(fù)選框的應(yīng)用單選鈕——多選一在同一組單選鈕中只有一個(gè)按鈕的Value屬性值為1，通常使用If…Then…ElseIf…的語(yǔ)句格式進(jìn)行判斷。復(fù)選框——多選多同一組復(fù)選框中可以同時(shí)有多個(gè)被選中，也可以只選中一個(gè)，也可以一個(gè)都不選中，通常我們對(duì)各個(gè)復(fù)選框進(jìn)行獨(dú)立判斷。

7.3.4單選鈕和復(fù)選框的應(yīng)用單選鈕——多選一397.3.4單選鈕和復(fù)選框的應(yīng)用例7-9根據(jù)用戶選擇，求若干門課程的總分或平均分參考代碼如下：PrivateSubcmdCal_Click()DimsumAsInteger,nAsIntegerIfchkChinese.Value=1Thensum=sum+Val(txtChinese.Text):n=n+1IfchkMath.Value=1Thensum=sum+Val(txtMath.Text):n=n+1IfchkEnglish.Value=1Thensum=sum+Val(txtEnglish.Text):n=n+1IfoptTotal.ValueThentxtResult.Text=n&"門課總分:"&vbCrLf&sumElseIfn<>0ThentxtResult.Text=n&"門課平均分:"&vbCrLf&sum/nEndIfEndSub問：變量n的作用是什么？7.3.4單選鈕和復(fù)選框的應(yīng)用例7-9根據(jù)用戶選擇，求407.4其他應(yīng)用舉例例7-10例7-11例7-12例7-137.4其他應(yīng)用舉例例7-1041例7-10例7-10調(diào)整3個(gè)文本框中的數(shù)值，使其中的數(shù)值按小到大的順序排放

Ifa>bThentemp=a:a=b:b=temp'如果a大于b，交換a和b的值Ifa>cThentemp=a:a=c:c=temp'如果a大于c，交換a和c的值Ifb>cThentemp=b:b=c:c=temp'如果b大于c，交換b和c的值例7-10例7-10調(diào)整3個(gè)文本框中的數(shù)值，使其中42例7-11例7-11求一元二次方程ax2+bx+c=0的根根據(jù)數(shù)學(xué)中一元二次方程的求根公式，令：當(dāng)Δ>0時(shí)，方程有兩個(gè)不相等的實(shí)根；當(dāng)Δ=0時(shí)，方程有兩個(gè)相等的實(shí)根；當(dāng)Δ<0時(shí)，方程有兩個(gè)不相等的虛根。

例7-11例7-11求一元二次方程ax2+bx+c=0的43例7-11Ifa<>0Thendelta=b*b-4*a*cIfdelta>0Thenx1=(-b+Sqr(delta))/(2*a) '第1個(gè)根x2=(-b-Sqr(delta))/(2*a) '第2個(gè)根txtroot="X1="&x1&Chr(13)&Chr(10)&"X2="&x2ElseIfdelta=0Thenx1=-b/(2*a)txtroot="Twoequalroot,X1=X2="&x1Elsex1=-b/(2*a) '根的實(shí)部x2=Sqr(-delta)/(2*a) '根的虛部txtroot="X1="&x1&"+"&x2&"i"&Chr(13)&Chr(10)&"X2="&x1&"-"&x2&"i"EndIfEndIf例7-11Ifa<>0Then44例7-12例7-12編程實(shí)現(xiàn)輸入一個(gè)整數(shù)，判斷其能否被3、5、7整除，并輸出以下信息之一：（1）能被3、5、7整除。（2）能被其中兩個(gè)數(shù)（要指出哪兩個(gè)）整除。（3）能被其中一個(gè)數(shù)（要指出哪一個(gè)）整除。（4）不能被3、5、7任一個(gè)整除。例7-12例7-12編程實(shí)現(xiàn)輸入一個(gè)整數(shù)，判斷其能否被345代碼1IfxMod3=0AndxMod5=0AndxMod7=0ThenMsgBox"能被3，5，7整除"IfxMod3=0AndxMod5=0AndxMod7<>0ThenMsgBox"能被3，5整除"IfxMod3=0AndxMod7=0AndxMod5<>0ThenMsgBox"能被3，7整除"IfxMod5=0AndxMod7=0AndxMod3<>0ThenMsgBox"能被5，7整除"IfxMod3=0ThenMsgBox"能被3整除"IfxMod5=0ThenMsgBox"能被5整除"IfxMod7=0ThenMsgBox"能被7整除"代碼1IfxMod3=0AndxMod546代碼2IfxMod3=0AndxMod5=0AndxMod7=0ThenMsgBox"能被3，5，7整除"ElseIfxMod3=0AndxMod5=0AndxMod7<>0ThenMsgBox"能被3，5整除"ElseIfxMod3=0AndxMod7=0AndxMod5<>0ThenMsgBox"能被3，7整除"ElseIfxMod5=0AndxMod7=0AndxMod3<>0ThenMsgBox"能被5，7整除"ElseIfxMod3=0ThenMsgBox"能被3整除"ElseIfxMod5=0ThenMsgBox"能被5整除"ElseIfxMod7=0ThenMsgBox"能被7整除"ElseMsgBox"不能被3、5、7任一數(shù)整除"EndIf代碼2IfxMod3=0AndxMod547代碼3IfxMod3=0Thenn=n+1s=s&"3"EndIfIfxMod5=0Thenn=n+1s=s&"5"EndIfIfxMod7=0Thenn=n+1s=s&"7"EndIfIfn<>0ThenMsgBox"能被"&s&"這"&n&"個(gè)數(shù)整除"ElseMsgBox"不能被任一數(shù)整除"EndIf代碼3IfxMod3=0Then48代碼4n=0IfxMod3=0Thenn=n+1EndIfIfxMod5=0Thenn=n+2EndIfIfxMod7=0Thenn=n+4EndIf

SelectCasenCase0:MsgBox"不能被任一數(shù)整除"Case1:MsgBox"能被3整除"Case2:MsgBox"能被5整除"Case3:MsgBox"能被3,5整除"Case4:MsgBox"能被7整除"Case5:MsgBox"能