《選擇結(jié)構(gòu)程序》-教科版選修1課件

第4選擇結(jié)構(gòu)設(shè)計(jì)

程序流程有三種最基本的控制結(jié)構(gòu)，即順序結(jié)構(gòu)、選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)。在一個(gè)過(guò)程中，程序通常是按照由上而下的順序來(lái)執(zhí)行各個(gè)語(yǔ)句的，直到整個(gè)過(guò)程結(jié)束。引入選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)，可以改變程序執(zhí)行的流程。2020年10月2日1

選擇程序結(jié)構(gòu)用于判斷給定的條件，根據(jù)判斷的結(jié)果來(lái)控制程序的流程

本章主要內(nèi)容條件表達(dá)式

關(guān)系表達(dá)式/邏輯表達(dá)式條件語(yǔ)句

If...Then/If...Then...Else條件語(yǔ)句的嵌套多分支語(yǔ)句selectcase

選擇性控件

單選按鈕/復(fù)選框列表框/組合框計(jì)時(shí)器控件程序舉例2020年10月2日2關(guān)系運(yùn)算符符號(hào)：

<小于>大于>=大于或等于<=小于或等于=等于<>不等于

適用的類(lèi)型和結(jié)果類(lèi)型：

關(guān)系運(yùn)算符適用于數(shù)值型、字符型、日期型和邏輯型數(shù)據(jù)，結(jié)果只能為邏輯型（真值True和假值False）

運(yùn)算符兩側(cè)必須是同類(lèi)型的量或表達(dá)式若不是，系統(tǒng)會(huì)自動(dòng)進(jìn)行強(qiáng)制類(lèi)型轉(zhuǎn)換“5”>40>(1>0)若判斷的結(jié)論是成立，則結(jié)果為邏輯真值(True)，否則為邏輯假值(False)True的值等于-1，F(xiàn)alse的值等于02020年10月2日3關(guān)系運(yùn)算符運(yùn)算符名稱(chēng)示例說(shuō)明<小于“3”<4值為：True，強(qiáng)制轉(zhuǎn)換為數(shù)值型<=小于或等于3<=4值為：True>大于0>(1>0)值為：True，強(qiáng)制轉(zhuǎn)換為數(shù)值型>=大于或等于“aa”>=“ab”值為：False=等于1=True值為：False，強(qiáng)制轉(zhuǎn)換為數(shù)值型<>不等于1<>1值為：False2020年10月2日4關(guān)系表達(dá)式運(yùn)算次序：先分別求出運(yùn)算符兩側(cè)表達(dá)式的值，然后再將二者進(jìn)行比較其中：數(shù)值型數(shù)據(jù)按照數(shù)值大小比較

2+3>63>=05<>2^3

字符型數(shù)據(jù)按照字符的ASCII碼值大小比較

“1”>“2”“a”<“b”“A”>“a”

日期型數(shù)據(jù)按照前后順序比較

#01/01/2003#>#12/31/2002#

關(guān)系表達(dá)式的格式：<表達(dá)式1><關(guān)系運(yùn)算符><表達(dá)式2>[<關(guān)系運(yùn)算符><表達(dá)式3>…]2020年10月2日5關(guān)系表達(dá)式練習(xí)數(shù)值型數(shù)據(jù)按照數(shù)值大小比較字符型數(shù)據(jù)按照字符的ASCII碼值大小比較日期型數(shù)據(jù)按照前后順序比較①？2/3>3/4②?“a”>“b”③?3<=5④?True=-1⑤?#01/12/91#<=#02/01/91#?“abc”<=“abb”?“ab”<=“我們”？“123”＞“99”？“你們”＞“我們”①False②False③True④True⑤True⑥False⑦True⑧False⑨False2020年10月2日6布爾運(yùn)算符符號(hào)：

NOT(邏輯非)

AND(邏輯與)即：并且，要同時(shí)成立

OR(邏輯或)即：或者，只要有一個(gè)成立適用的類(lèi)型和結(jié)果類(lèi)型：

只適用于邏輯型數(shù)據(jù)，運(yùn)算結(jié)果是邏輯值規(guī)則：非運(yùn)算的規(guī)則是：直接求反即可與運(yùn)算的規(guī)則是：只有二者全為真時(shí)結(jié)果為真，否則為假或運(yùn)算的規(guī)則是：只有二者全為假時(shí)結(jié)果為假，否則為真邏輯值A(chǔ)邏輯值BNOTAAANDBAORBTTFTTTFFFTFTTFTFFTFF2020年10月2日7布爾表達(dá)式練習(xí)？“a”>“b”AND1>2False？“a”>“b”O(jiān)R1<2

True?NOT2*5<>11

False?2^3>3AND5>10

False表示一個(gè)數(shù)是偶數(shù)

xMod2=0或int(x/2)=x/2表示一個(gè)數(shù)X能被3或5或7整除

xMod3=0ORxMod5=0ORxMod7=0表示身高不在1.65米以上或不是女生

身高＜1.65

OR

性別＜＞“女”

NOT（身高＞＝1.65

AND

性別＝“女”）2020年10月2日8布爾表達(dá)式練習(xí)？－3＜－2＜－1Falsea=3:b=4:c=5?a=b=c

False表示一個(gè)數(shù)x是能被3整除的奇數(shù)

xMod3=0andxMod2<>0xMod2=1andxMod2<>0表示一個(gè)數(shù)x∈[2,5]

x＞＝2andx＜＝5表示一個(gè)數(shù)x不在[2,5]區(qū)間內(nèi)

x＜2orx＞52020年10月2日9運(yùn)算符的優(yōu)先順序算術(shù)運(yùn)算符字符串運(yùn)算符：＆關(guān)系運(yùn)算符：＝、＜＞、＜、＞、＜＝、＞＝布爾運(yùn)算符：NotAndOr優(yōu)先級(jí)依次降低2020年10月2日10運(yùn)算符的優(yōu)先順序練習(xí)設(shè)變量x=4，y=-1，a=7.5，b=-6.2，求表達(dá)式

x+y>a+bAndNoty<b的值

Truey表示年號(hào)，用一個(gè)表達(dá)式表示該年是否是閏年

(yMod4=0ANDyMod100<>0)OR(yMod400=0ANDyMod100=0)(yMod4=0ANDyMod100<>0)ORyMod400=02020年10月2日11判斷閏年的科學(xué)依據(jù)地球公轉(zhuǎn)一周的時(shí)間為：365天5小時(shí)48分56秒每經(jīng)過(guò)4年，剩余的時(shí)間為：5小時(shí)48分56秒×4＝23小時(shí)15分44秒則每4年都要多加24小時(shí)－23小時(shí)15分44秒＝44分16秒每經(jīng)過(guò)100年，就會(huì)多加44分16秒×25＝18小時(shí)26分40秒比較接近一天，所以每到100年，就將這多加的近似一天的時(shí)間減去，即停止追加一天而實(shí)際上又少加了24小時(shí)－18小時(shí)26分40秒＝5小時(shí)33分20秒每經(jīng)過(guò)400年，就會(huì)少加4×5小時(shí)33分20秒≈24小時(shí)所以每過(guò)400年，就應(yīng)該再補(bǔ)加一天故：每4年閏年出現(xiàn)一次；每400年，閏年再出現(xiàn)一次其它的整100年，閏年停止出現(xiàn)一次2020年10月2日12選擇控制結(jié)構(gòu)選擇控制結(jié)構(gòu)又稱(chēng)分支結(jié)構(gòu)它體現(xiàn)了程序運(yùn)行過(guò)程中的自我判斷能力程序可以根據(jù)當(dāng)前執(zhí)行的某個(gè)條件，進(jìn)行比較、判斷，并依據(jù)判斷的結(jié)果（成立與否）來(lái)決定下一步做什么，不做什么（在兩條或多條程序路徑中選擇一條來(lái)執(zhí)行，即只執(zhí)行程序中的一部分語(yǔ)句）可見(jiàn)，在此結(jié)構(gòu)的程序運(yùn)行過(guò)程中，有些語(yǔ)句會(huì)執(zhí)行一次，有些語(yǔ)句在此次程序運(yùn)行過(guò)程中沒(méi)有機(jī)會(huì)執(zhí)行。即：“無(wú)論分支多寡，必選其一；縱然分支眾多，僅選其一”VB中的選擇語(yǔ)句有：雙分支語(yǔ)句多分支語(yǔ)句(SelectCase)單行(IF-THEN-ELSE)塊結(jié)構(gòu)(IF-THEN-ELSE-ENDIF)2020年10月2日13選擇結(jié)構(gòu)(IF-THEN)語(yǔ)句格式：IF<條件>THEN<語(yǔ)句序列>條件N語(yǔ)句序列下一語(yǔ)句Y執(zhí)行過(guò)程：判斷給定的條件如果成立(其值為T(mén)rue),執(zhí)行所給語(yǔ)句序列，然后執(zhí)行下一條語(yǔ)句否則(其值為False)，跳過(guò)所給語(yǔ)句序列，直接執(zhí)行下一條語(yǔ)句示例：輸入一個(gè)數(shù)，如果是正數(shù)，就輸出x=Val(Text1.text)Ifx>0ThenLabel1.Caption=x問(wèn)題：如果不是正數(shù)，應(yīng)該顯示“不是正數(shù)”2020年10月2日14語(yǔ)句格式：IF<條件>THEN[<語(yǔ)句序列1>][ELSE<語(yǔ)句序列2>]執(zhí)行過(guò)程：判斷給定的條件如果成立(其值為T(mén)rue),執(zhí)行所給語(yǔ)句序列1，然后執(zhí)行下一條語(yǔ)句否則(其值為False)，執(zhí)行所給語(yǔ)句序列2，然后執(zhí)行下一條語(yǔ)句選擇結(jié)構(gòu)(IF-THEN-ELSE)條件命令序列1命令序列2下一語(yǔ)句N(xiāo)Y2020年10月2日15(IF-THEN-ELSE)舉例例二：根據(jù)用戶(hù)輸入的一個(gè)成績(jī)，判斷是否及格DimxAsSingleX=Val(InputBox("請(qǐng)輸入一個(gè)成績(jī)：","輸入",0))IF

X>=60

THENLabel1.Caption=“及格”

ElseLabel1.Caption=“不及格”使用IIF函數(shù)，也可以實(shí)現(xiàn)相應(yīng)的判斷格式：IIF(條件，條件為真時(shí)的值，條件為假時(shí)的值)例一：輸入一個(gè)數(shù)，如果是正數(shù)，就輸出；否則顯示非正數(shù)DimxAsSinglex=Val(Text1.text)If

x>0

Then

Label1.Caption=x

Else

Label1.Caption=“非正數(shù)"2020年10月2日16IIF函數(shù)的使用DimxAsSinglex=Val(Text1.text)If

x>0

Then

Label1.Caption=x

Else

Label1.Caption=“非正數(shù)”Label1.Caption=IIf(x>0,x,“非正數(shù)”)DimxAsSingleX=Val(InputBox("請(qǐng)輸入一個(gè)成績(jī)：","輸入",0))IF

X>=60

THEN

Label1.Caption=“及格”

Else

Label1.Caption=“不及格”Label1.Caption=IIf(x>=60,“及格”,“不及格”)2020年10月2日17語(yǔ)句格式：IF<條件>THEN[<語(yǔ)句列1>][ELSE<語(yǔ)句列2>]ENDIF執(zhí)行過(guò)程：判斷給定的條件如果成立(其值為T(mén)rue),執(zhí)行所給y語(yǔ)句序列1，然后執(zhí)行下一條語(yǔ)句否則(其值為False)，執(zhí)行所給語(yǔ)句序列2，然后執(zhí)行下一條語(yǔ)句塊結(jié)構(gòu)(IF-THEN-ELSE-ENDIF)條件命令序列1命令序列2下一語(yǔ)句N(xiāo)Y2020年10月2日18(IF-THEN-ELSE-ENDIF)舉例示例：根據(jù)用戶(hù)輸入的一個(gè)成績(jī)，判斷是否及格DimxAsSinglex=Val(InputBox("請(qǐng)輸入一個(gè)成績(jī):","輸入",0))Ifx>=60ThenLabel1.Caption="及格"ElseLabel1.Caption="不及格"EndIf2020年10月2日19(IF-THEN-ELSE-ENDIF)舉例示例：輸入ABC的值，判斷能否構(gòu)成三角形，如果能，計(jì)算三角形的面積DimaAsSingle,bAsSingle,cAsSinglea=Val(Text1.Text):b=Val(Text2.Text):c=Val(Text3.Text)s=(a+b+c)/2Ifa+b>cAndc>0Anda+c>bAndb>0Andb+c>aAnda>0Thenarea=Sqr(s*(s-a)*(s-b)*(s-c))Label1.Caption="能構(gòu)成三角形,"&"三角形面積為："&Str(area)ElseLabel1.Caption="不能構(gòu)成三角形"EndIf2020年10月2日20語(yǔ)句格式：IF<條件1>THEN[<語(yǔ)句列1>]ELSE

IF<條件2>THEN[<語(yǔ)句列2>]ELSE[<語(yǔ)句列3>]ENDIFENDIF說(shuō)明：如果在If語(yǔ)句的語(yǔ)句列1或語(yǔ)句列2中又有一個(gè)完整的If語(yǔ)句，則稱(chēng)為If語(yǔ)句的嵌套IF語(yǔ)句的嵌套條件1語(yǔ)句列1語(yǔ)句列2下一語(yǔ)句N(xiāo)Y條件2YN語(yǔ)句列32020年10月2日21嵌套IF舉例用戶(hù)輸入一個(gè)數(shù)，如果是正數(shù)，打印是個(gè)正數(shù)；如果是0，打印是個(gè)零；如果是負(fù)數(shù)，打印是負(fù)數(shù)X>0是個(gè)正數(shù)是零下一語(yǔ)句X＝0YN是個(gè)負(fù)數(shù)YNDimxAsSinglex=Val(Text1.Text)Ifx>0ThenLabel1.Caption="正數(shù)"Else

If

x=0

ThenLabel1.Caption=“零”ElseLabel1.Caption="負(fù)數(shù)"

EndIfEndIf2020年10月2日22嵌套IF舉例用戶(hù)輸入一元二次方程的系數(shù)，用戶(hù)判斷解的情況△>0有兩個(gè)不相同的實(shí)根有兩個(gè)相同的實(shí)根下一語(yǔ)句△＝0YN沒(méi)有實(shí)數(shù)解YNa=Val(Text1.Text):b=Val(Text2.Text):c=Val(Text3.Text)d=b^2-4*a*cIf

d>0

ThenLabel1.Caption=“不同實(shí)根"Else

If

d=0

Then

Label1.Caption=“相同實(shí)根"Else

Label1.Caption="沒(méi)有實(shí)數(shù)解"

EndIfEndIf2020年10月2日23嵌套IF舉例用戶(hù)輸入一個(gè)成績(jī)，若在90到100之間，打印優(yōu)秀；若在80到89之間，打印良好；若在70到79之間，打印一般；若在60到69之間，打印及格；若在60以下，打印不及格；其它情況，打印輸入有誤DimxAsSinglex=Val(Text1.Text)Ifx>100ThenLabel1.Caption="輸入有誤！"ElseIfx>=90ThenLabel1.Caption="優(yōu)秀！"ElseIfx>=80ThenLabel1.Caption="良好！"ElseIfx>=70ThenLabel1.Caption="一般！"ElseIfx>=60ThenLabel1.Caption="及格！"ElseIfx>=0ThenLabel1.Caption="不及格！"ElseLabel1.Caption="輸入有誤！"EndIfEndIfEndIfEndIfEndIfEndIf2020年10月2日24語(yǔ)句格式：IF<條件1>THEN[<語(yǔ)句列1>]ELSEIF<條件2>THEN<語(yǔ)句列2>]……[ELSE[其他語(yǔ)句列]]ENDIF說(shuō)明：IF語(yǔ)句的嵌套格式ELSEIF條件1條件n語(yǔ)句列1語(yǔ)句列n其他語(yǔ)句列下一語(yǔ)句…YYNN2020年10月2日25嵌套ELSEIF舉例用戶(hù)輸入一個(gè)數(shù)，如果是正數(shù)，打印是個(gè)正數(shù)；如果是0，打印是個(gè)零；如果是負(fù)數(shù)，打印是負(fù)數(shù)DimxAsSinglex=Val(Text1.Text)Ifx>0ThenLabel1.Caption="正數(shù)"ElseIf

x=0ThenLabel1.Caption="零"ElseLabel1.Caption="負(fù)數(shù)"EndIfDimxAsSinglex=Val(Text1.Text)Ifx>0ThenLabel1.Caption="正數(shù)"ElseIf

x=0ThenLabel1.Caption="零"ElseLabel1.Caption="負(fù)數(shù)"EndIfEndIf2020年10月2日26嵌套ELSEIF舉例DimxAsSinglex=Val(Text1.Text)Ifx>100ThenLabel1.Caption="輸入有誤！"ElseIfx>=90ThenLabel1.Caption="優(yōu)秀！"

ElseIfx>=80ThenLabel1.Caption="良好！"ElseIf

x>=70ThenLabel1.Caption="一般！"ElseIf

x>=60ThenLabel1.Caption="及格！"ElseIf

x>=0ThenLabel1.Caption="不及格！"

ElseLabel1.Caption="輸入有誤！"EndIf用戶(hù)輸入一個(gè)成績(jī)，若在90到100之間，打印優(yōu)秀；若在80到89之間，打印良好；若在70到79之間，打印一般；若在60到69之間，打印及格；若在60以下，打印不及格；其它情況，打印輸入有誤2020年10月2日27多分支語(yǔ)句當(dāng)判斷條件較多時(shí)，如果采用IF語(yǔ)句來(lái)設(shè)計(jì)程序，會(huì)出現(xiàn)各方面的麻煩；而多分支語(yǔ)句可以利用格式中的多個(gè)條件來(lái)判斷與執(zhí)行，效率較高語(yǔ)句格式：SELECTCASE<測(cè)試條件>[CASE<表達(dá)式1>[<語(yǔ)句列1>]][CASE<表達(dá)式2>[<語(yǔ)句列2>]]…[CASEElSE[<其他語(yǔ)句列>]]ENDSELECT說(shuō)明：

P83條件1條件n語(yǔ)句列1語(yǔ)句列n其他語(yǔ)句列下一語(yǔ)句…YYNN2020年10月2日28多分支語(yǔ)句舉例用戶(hù)輸入一個(gè)數(shù)，如果是正數(shù)，打印是個(gè)正數(shù)；如果是0，打印是個(gè)零；如果是負(fù)數(shù)，打印是負(fù)數(shù)DimxAsSinglex=Val(Text1.Text)Ifx>0ThenLabel1.Caption="正數(shù)"ElseIf

x=0ThenLabel1.Caption="零"ElseLabel1.Caption="負(fù)數(shù)"EndIfEndIfDimxAsSinglex=Val(Text1.Text)SelectCasexCaseIs>0Label1.Caption="正數(shù)"CaseIs=0’Case0Label1.Caption="零"CaseIs<0Label1.Caption="負(fù)數(shù)"EndSelect2020年10月2日29多分支語(yǔ)句舉例用戶(hù)輸入一個(gè)成績(jī)，若在90到100之間，打印優(yōu)秀；若在80到89之間，打印良好；若在70到79之間，打印一般；若在60到69之間，打印及格；若在60以下，打印不及格；其它情況，打印輸入有誤SelectCasex

CaseIs<0Label1.Caption="輸入有誤"

CaseIs>100Label1.Caption="輸入有誤"CaseIs>=90Label1.Caption="優(yōu)秀"

CaseIs>=80Label1.Caption="良好"

CaseIs>=70Label1.Caption="一般"CaseIs>=60Label1.Caption="及格"

CaseElseLabel1.Caption="不及格"EndSelect2020年10月2日30多分支語(yǔ)句舉例用戶(hù)輸入一個(gè)年份和月份，由程序輸入該年該月有多少天!DimdAsIntegery=Val(Text1.Text):m=Val(Text2.Text)SelectCasemCase1,3,5,7,8,10,12d=31Case4,6,9,11d=30Case2IfyMod4=0AndyMod100<>0OryMod400=0Thend=29

Elsed=28

EndIfEndSelectP=Str(y)&"年"&Str(m)&"月有"&Str(d)&"天!"Label1.Caption=p2020年10月2日31滾動(dòng)條有些控件不能自動(dòng)支持滾動(dòng)的功能，VB提供的滾動(dòng)條有水平滾動(dòng)條(HScrollBar)和垂直滾動(dòng)條(VScrollBar)兩種常用屬性有(均為整型數(shù))：Value滾動(dòng)條的當(dāng)前值，即滑塊的位置LargeChange

單擊滾動(dòng)條的前后部位時(shí)，Value的改變量SmallChange

單擊滾動(dòng)條的兩端箭頭時(shí)，Value的改變量MaxValue的最大值MinValue的最小值常用事件：Scroll當(dāng)拖動(dòng)滾動(dòng)條滑塊時(shí)觸發(fā)的事件Change當(dāng)滾動(dòng)條滑塊位置改變時(shí)觸發(fā)的事件2020年10月2日32滾動(dòng)條程序示例PrivateSubHScroll1_Scroll()Text1.FontSize=HScroll1.ValueEndSub若改為滾動(dòng)條的Change事件，效果會(huì)有什么變化？2020年10月2日33使用計(jì)時(shí)器控件計(jì)時(shí)器(Timer)控件可以在程序運(yùn)行中以規(guī)定的時(shí)間間隔產(chǎn)生一個(gè)事件。這對(duì)不需要與用戶(hù)交互的代碼的執(zhí)行非常有用。計(jì)時(shí)器在設(shè)計(jì)時(shí)顯示為一個(gè)小時(shí)鐘圖標(biāo)，而在運(yùn)行時(shí)則看不到，常用來(lái)做一些后臺(tái)處理。如果需要顯示時(shí)間，則應(yīng)當(dāng)使用標(biāo)簽或文本框2020年10月2日34計(jì)時(shí)器控件的常用屬性Interval屬性是決定Timer控件的計(jì)時(shí)事件調(diào)用間隔的毫秒數(shù)格式：[對(duì)象.]Interval[=毫秒數(shù)]說(shuō)明：當(dāng)毫秒數(shù)為0（缺?。r(shí)，Timer控件無(wú)效。Enabled屬性（True/False）決定Interval的設(shè)置是否有效只要Timer控件的Enabled屬性被設(shè)置為T(mén)rue，而且Interval屬性>0，則以Interval屬性指定的時(shí)間間隔發(fā)生一次Timer事件2020年10月2日35設(shè)計(jì)一個(gè)閃爍字幕PrivateSubForm_Load()FontName="幼圓"FontBold=TrueFontSize=100EndSubPrivateSubTimer1_Timer()Form1.ForeColor=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))Form1.CurrentX=Form1.Width/10’輸出的水平坐標(biāo)Form1.CurrentY=Form1.Height/16’輸出的垂直坐標(biāo)Print"閃爍字幕"EndSub每隔0.5秒閃爍一次，程序運(yùn)行前，Timer的Enabled和Interval屬性的值應(yīng)為多少？2020年10月2日36設(shè)計(jì)一個(gè)計(jì)時(shí)器每隔一秒鐘，文本框中的數(shù)字增一，單擊“暫?！卑粹o就停止PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubTimer1_Timer()Text1.Text=Text1.Text+1EndSub程序運(yùn)行前，Timer的Enabled和Interval屬性的值應(yīng)為多少？2020年10月2日37框架控件Frame框架控件是一個(gè)左上方有標(biāo)題文字的方框。它是一個(gè)容器控件?？梢詫?duì)窗體上的控件進(jìn)行視覺(jué)上的分組。在框架內(nèi)可以直接繪制控件，也可以將已有控件粘貼到框架內(nèi)框架可以提供總體的激活和屏蔽常用屬性有：Name