Visual Basic程序設計（第三版）課件第4章

第四章

VisualBasic程序控制結(jié)構(gòu)本章主要內(nèi)容1順序結(jié)構(gòu)2選擇結(jié)構(gòu)3循環(huán)結(jié)構(gòu)4其他控制結(jié)構(gòu)目的和要求：熟練掌握賦值語句的使用,掌握設計順序結(jié)構(gòu)的方法；熟練掌握if語句和selectcase語句的使用,掌握設計選擇結(jié)構(gòu)的方法熟練掌握For語句、DO語句、While語句和循環(huán)嵌套的使用，掌握循環(huán)結(jié)構(gòu)的設計方法；了解其他控制語句的使用。VisualBasic基本控制結(jié)構(gòu)

VB具有三種基本的流程控制結(jié)構(gòu)：順序結(jié)構(gòu)、條件分支結(jié)構(gòu)和循環(huán)結(jié)構(gòu)4.1順序結(jié)構(gòu)在順序結(jié)構(gòu)中程序語句是嚴格按書寫順序依次執(zhí)行，是最簡單、最基本的控制結(jié)構(gòu)。語句1語句2語句n4.4.1賦值語句:

變量名＝表達式對象名.屬性名＝表達式說明:(1)賦值號兩側(cè)精度不統(tǒng)一時①以左側(cè)為準；A1%=6.845表達式右側(cè)的值經(jīng)四舍五入為７賦給整型變量A1。X!=6.2831528#

將表達式右側(cè)雙精度值(16位)降為單精度(7位)賦給單精度型變量Ｘ。②字符串→數(shù)值變量時，字符串轉(zhuǎn)換為數(shù)值；

a%=“31.456”

變量a的值為３１

a!=“31.456”

變量a的值為３１.456a%=“31xy34”

出現(xiàn)類型不匹配錯誤③邏輯值：“真”為-1，“假”為0；④任何非字符型數(shù)據(jù)賦值給字符型變量時將被轉(zhuǎn)換為字符型。(2)賦值號左側(cè)只能是“變量”。(3)一個賦值語句只能給一個變量賦值。

dimaaslong,baslong,caslonga=b=c=10不合法，其值為false

PrivateSubForm_click()DimaAsBoolean,bAsBoolean,cAsInteger,dAsIntegera=Trueb=Falsec=a:d=bPrinta,b,c,dEndSub4.1.2應用舉例例4-1輸入圓的半徑，計算圓的面積*。PrivateSubForm_click()Constpi=3.14159DimrAsDouble,areaAsDoubler=Val(Text1.Text)area=r*r*piText2.Text=Str(area)EndSub源程序代碼PrivateSubForm_click()DimaAsLong,bAsLong,cAsLonga=5000b=1000Print"a=";a,"b=";bc=aa=bb=cPrint"a=";a,"b=";bEndSub例p664-2：編寫交換兩個變量數(shù)據(jù)的程序*4.2選擇結(jié)構(gòu)

用于根椐某個給定條件進行判斷或比較的結(jié)果來決定執(zhí)行什么樣的操作,這就需要用到條件分支結(jié)構(gòu)來實現(xiàn)。4.2.1if語句單分支(簡單分支結(jié)構(gòu))If語句的三種形式：雙分支結(jié)構(gòu)

多分支結(jié)構(gòu)

1.單分支(簡單分支結(jié)構(gòu))

單行結(jié)構(gòu)

塊結(jié)構(gòu)(1)單行結(jié)構(gòu)語句格式：if

條件表達式

then

語句行塊結(jié)構(gòu)的語法格式：(2)塊結(jié)構(gòu)的語法格式：If

條件語句then

語句塊Endif*例:輸入a、b兩個數(shù)比較兩數(shù),如果a>b則在窗體上輸出“A>b”,如果a=b,則輸出“a=b”,否則將a、b兩數(shù)進行交換后輸出。PrivateSubForm_click()DimaAsInteger,bAsInteger,tAsIntegera=InputBox("請輸入a的值")b=InputBox("請輸入b的值")Ifa>bThenPrint"a>b"Ifa=bThenPrint"a=b"P67例4-3語句(塊)IF條件?.T..F.Ifa<bThen？t=aa=bb=tPrint"交換后的a、b的值";a,bEndIfEndSub***例4-3編寫驗證用戶名和密碼的應用程序,假定用戶名為“wang”，密碼為“123”，若輸入正確，彈出消息提示“輸入正確”，運行結(jié)果如下：PrivateSubCommand1_Click()IfText1.Text="wang"AndText2.Text="123"ThenMsgBox"輸入正確!"EndEndIfMsgBox"密碼不正確!請重新輸入."EndSubPrivateSubCommand2_Click()EndEndsub兩點注意：注意:(1)單行簡單分支結(jié)構(gòu)必須是一行,then后邊直接跟語句行不可換行,語句行可以是一條語句,也可以是多條語句，當為多條語句時各語句間須用”:”分隔，單行分支不能用endif

。

例：ifa>bthent=a:a=b:b=t(2)

塊結(jié)構(gòu)的簡單分支結(jié)構(gòu)是多行分支結(jié)構(gòu)，then后邊的語句必須換行書寫。語句塊可以是一條語句也可以是多條語句，但必須以endif結(jié)束。

例：

ifa>bthen

t=aa=bb=t

endif

2.雙分支if語句

當滿足某個條件執(zhí)行一段指定程序代碼操作,而不滿足執(zhí)行另一段程序代碼,此時可用選擇分支（雙分支）語句來完成。選擇語句語法格式：if

條件表達式then

語句塊1

else

語句塊2

endifEndIF條件?語句塊1語句塊2.T..F.例：p684-4略*例：p684-5***PrivateSubForm_click()DimxAsSingle,yAsSinglex=InputBox("請輸入X的值")Ifx<>0Theny=Sin(x)+Sqr(x^2+1)Elsey=Cos(x)-x^3+3*xEndIfPrint"x=";x,"y=";yEndSub{X≠0X=03.多分支結(jié)構(gòu)

（1）if…then…elseif語句語法格式：

if

條件表達式1then

語句塊1

elseif條件表達式2then

語句塊2

endif…[ELSE

語句塊n+1]endif注：如果省略了else語句塊，當所有條件不滿足時，本程序段不做任何操作。例（P70例4-6）：分等級統(tǒng)計學生成績

條件1條件2條件3條件n語句塊1語句塊2語句塊3語句塊n語句塊n+1TrueTrueTrueTrueFalseFalseFalseFalse多分支結(jié)構(gòu)流程圖PrivateSubForm_click()源程序代碼DimbGradeAsSingle,dGradeAsStringbGrade=InputBox("請輸入學生的成績","成績輸入")IfbGrade>=90ThendGrade="A"ElseIfbGrade>=80ThendGrade="B"ElseIfbGrade>=70ThendGrade="C"ElseIfbGrade>=60ThendGrade="D"Else？

dGrade="F"EndIfMsgBox"該生的等級制成績?yōu)椋?&

dGrade,,"成績等級"EndSub此項加在末尾顯示如何？例（P70例4-6）：分等級統(tǒng)計學生成績

4.If語句的嵌套例*：10噸以下1500元/噸，10噸以上15噸以下超出部分按1200元/噸，15噸以上1000/噸源程序代碼：PrivateSubForm_click()DimxAsSingle,yAsSinglex=InputBox("請輸入采購量（噸）","輸入重量")Ifx<=10Theny=1500*xElse

Ifx<=15Theny=1500*10+1200*(x-10)Elsey=1500*10+1200*5+1000*(x-15)EndIfEndifMsgBox"該顧客應付款額為："&Str(y)EndSubPrivateSubform_click()x=8:y=9:z=7Ifx<yThent=x:x=y:y=tEndIfIfy<zThent=x:x=y:y=tIfx<yThent=x:x=y:y=tEndIfEndIfIfy<zThent=x:x=y:y=tIfx<yThent=x:x=y:y=tEndIfEndIfPrint"x=";x,"y=";y,"z=";zEndSub例:p714-7比較x、y、z以大小，并按x>y>z順排列輸出。*4.2.2select…case語句4.2.2select…case語句一、語句格式：SelectCase變量或條件表達式

case表達式列表1

語句塊1case表達式列表2

語句塊2…[caseelse

語句塊n+1]endselect列表1語句塊1語句塊2語句塊n語句塊n+1列表2TrueTrueTrueFalseFalseFalse列表n二、Selectcase流程圖PrivateSubForm_click()DimbGradeAsSingle,dGradeAsStringscore=InputBox("請輸入學生的成績","成績輸入")SelectcasescoreCaseis>=90dGrade="A"Caseis>=80dGrade="B"三、例：p724-8

(用selectcase完成4-6功能）****Caseis>=70dGrade="C“Caseis>=60dGrade="D"CaseElsedGrade="F"EndselectMsgBox"該生的等級制成績?yōu)椋?&

dGrade,,"成績等級"EndSub例：p734-9例：p734-9**四、Selectcase語句的注意及說明：PrivateSubForm_click()DimstrAsStringstr=InputBox("請輸入一個字符")SelectCasestrCase"A"To"Z"MsgBoxstr&"是大寫字母"Case"a"To"z"MsgBoxstr&"是小寫字母"Case"0"To"9"MsgBoxstr&"是數(shù)字字符"CaseElseMsgBoxstr&"是其他字符"EndSelectEndSub①語法格式中的“變量或條件表達式”，變量只能是一個變量，其類型既可以是數(shù)值型，也可以是字符串型。②語法格式中的“表達式列表”必須與“條件表達式”的類型相同，可以是以下三種形式：表達式：這種表達式通常用來表達一些具體的取值，如case2,4,6,8等。表達式to表達式：常用于表示一個數(shù)據(jù)范圍，如case20to50Is比較運算符表達式：Is與比較運算符連用，指定變量或條件表達式的條件。例：

SelectCasexsum

CaseIs>=5000ysum=0.8*xsum③使用“表達式表列”時③使用“表達式表列”時應注意：

①用關(guān)鍵字“To”指定范圍時，必須把較小的值寫在前面，較大的值寫在后面，字符串常量的范圍必須按字母順序?qū)懗?。②如使用關(guān)鍵字Is，則只能用關(guān)系運算符，不能用邏輯運算符將兩個或多個簡單條件組合在一起。③在一個SelectCase語句中，三種形式在數(shù)據(jù)類型匹配的情況下可以混用，如：Case5,6,8to10,12,Is>50條件分支常見錯誤：五、條件分支常見錯誤：1．在選擇結(jié)構(gòu)中缺少配對的結(jié)束語句對多行式的If塊語句中，應有配對的EndIf語句結(jié)束。2.多條件選擇ElseIf的書寫和條件表達式的表示要注意ElseIf不要寫成ElseIf；3.SelectCase語句的使用

SelectCase后不能出現(xiàn)多個變量；Case子句后不能出現(xiàn)變量否則計算結(jié)果錯。4.注意多條件分支的比較的順序易出現(xiàn)以下類似錯誤：例：

Ifmark>=60ThenPrint"及格"ElseIfmark>=70ThenPrint"中"ElseIfmark>=80ThenPrint"良"ElseIfmark>=90ThenPrint"優(yōu)"ElsePrint"不及格"EndIf4.2.4應用舉例例：p744-10判輸入的年份是否為閏年***PrivateSubCommand1_Click()DimyAsIntegery=Val(Text1.Text)IfyMod400=0Or(yMod4=0AndyMod100<>0)ThenLabel1.Caption=y&"是閏年！"ElseLabel1.Caption=y&"不是閏年！"EndIfEndSub例：p744-11)

PrivateSubForm_click()DimxsumAsSingle,ysumAsSinglexsum=InputBox("請輸入購物金額","輸入")SelectCasexsumCaseIs>=5000ysum=0.8*xsumCaseIs>=1000ysum=0.85*xsum

CaseIs>=500ysum=0.9*xsumCaseIs>=100EndSubX

(x<100).95(100≤x<500)0.9(500≤x<1000).85(1000≤x<5000)0.8(x≥5000){Y=ysum=0.95*xsumCaseElseysum=xsumEndSelectMsgBox"該顧客實際應付金額為："&Str(ysum)4.If語句的嵌套4.2.3條件函數(shù)的iif()和choose()函數(shù)的使用

choose()函數(shù)可以代替

selectcase

語句。一、iif()函數(shù)語法格式：變量=iif(條件表達式,True部分，F(xiàn)alse部分)

說明：當條件表達式的值為True時，返回True部分，否則返回False部分。“True”和“False“可以是表達式、變量或者其它函數(shù)。IIf函數(shù)中的三個參數(shù)均不能省略，且數(shù)據(jù)類型相同。

iif()函數(shù)可以代替if…then…else…語句2個例子：例1：max=iif(x>y,x,y)

例2:根據(jù)x的取值范圍計算y的值。X≥0X<0Ifx>0theny=1+xElsey=1-2*xEndify=iif(x>=0,1+x,1-2*x)二、choose()函數(shù)二、choose()函數(shù)語法格式：choose(整數(shù)表達式，選項列表)說明：根據(jù)整數(shù)表達式的值確定選中項列表中相對應的項若整數(shù)表達式的值＜1或大于選項數(shù)目，函數(shù)返回“Null”。choose()函數(shù)可以代替

selectcase

語句。例：設day1的值為1～7

根據(jù)day1的值，將其轉(zhuǎn)換為：“SUN”、“MON”、“TUE”、“WED”、“THU”、“FRI”、“SAT”其中的一個該語句為：choose(day1,”SUN”,”MON”,”TUE”,”WED”,”THU”,”FRI”,”SAT”)源代碼為：PrivateSubForm_click()day1=6a=Choose(day1,"SUN","MON","TUE","WED","THU","FRI","SAT")PrintaEndSub2.7.3循環(huán)控制結(jié)構(gòu)4.3循環(huán)控制結(jié)構(gòu)功能：用于經(jīng)常需要進行多次重復計算和多次反復同一操作等方面。VisualBasic的循環(huán)控制結(jié)構(gòu)包括：

計數(shù)循環(huán)（for循環(huán)）和條件循環(huán)（當循環(huán)、do循環(huán)）4.3.1.For-Next循環(huán)(1)語句的格式：for

循環(huán)變量=初值to

終值[step步長][語句塊1][exitfor][語句塊2]next

循環(huán)變量(2)說明：循環(huán)變量初值循環(huán)變量大于終值語句塊1Exitfor語句塊2步長增值

(2)說明：

①循環(huán)變量、初值和終值都是必要參數(shù)，不可省略并且都必須是數(shù)值型。②步長可以是正值或負值，為正值時，初值必須小于或等于終值，為負值時，初值必須大于或等于終值。步長為1時，可省略不寫。③語句塊可以是一條語句，也可以是多條語句，通常稱為循環(huán)體，在循環(huán)過程中被反復執(zhí)行。④for...next循環(huán)是計數(shù)循環(huán)，通常用于循環(huán)次數(shù)確定的場合。其循環(huán)次數(shù)計算公式為：

int((循環(huán)終值-循環(huán)初值）/步長+1）例：fori=1to50step1fori=1to50step3

語句塊（循環(huán)體）語句塊（循環(huán)體)

nextinextiint((50-1)/1+1)=50int((50-1)/3+1)=17⑤exitfor子句是可選項，原則上可以放置在循環(huán)體語句中的任何位置，可以起到提前強行終止當前循環(huán)的作用。例１(P682-11):例:(P774-12):計算并顯示1+2+3+…+100的和PrivateSubForm_click()DimsumAsIntegerDimiAsIntegersum=0Fori=1To100Step1sum=sum+iNextI注意退出循環(huán)時的i值Print"sum=";sumEndSub例２(P774-13):編寫程序顯示10—100以內(nèi)所有能被7整除的自然數(shù)。源程序代碼：PrivateSubForm_CLICK()Fori=10To100IfiMod7=0ThenPrinti;"可以被7整除！"EndIfNextiEndSub

２.do…loop循環(huán)

4.3.2.do…loop循環(huán)

Do循環(huán)可以按限定的次數(shù)執(zhí)行循環(huán)，也可以按給定的循環(huán)條件成立與否來決定循環(huán)。Do循環(huán)屬于條件循環(huán)，共有兩種結(jié)構(gòu)類型，前測型循環(huán)結(jié)構(gòu)和后測型循環(huán)結(jié)構(gòu)，有四種形式。1.語句的格式：前測型后測型do[|while|until|條件］do[語句塊１]［語句塊１］

[exitdo][exitdo][語句塊2][語句塊２］looploop[|while|until|條件］(2)do循環(huán)流程圖2.do循環(huán)流程圖3.說明：語句塊1Exitdo語句塊2語句塊2Exitdo語句塊1條件表達式條件表達式truefalsefalsetrue前測型循環(huán)后測型循環(huán)3.說明：前測型循環(huán)結(jié)構(gòu)為先判斷后執(zhí)行，這樣有可能循環(huán)體一次也不能執(zhí)行；后測型循環(huán)先執(zhí)行后判斷，這樣循環(huán)體至少要執(zhí)行一次。關(guān)鍵字while用于指明條件為真時執(zhí)行一次循環(huán)體，而until則是當條件為假時執(zhí)行一次循環(huán)體。語法格式中的“條件“是條件表達式，是循環(huán)的條件，其值可以是“true”也可以是“false”。若省略了條件，則默認條件為“false”。如果省略[|whle|until|條件]選項時，表示循環(huán)是無條件循環(huán)，此時要想退出循環(huán)，在循環(huán)體內(nèi)必須有exitdo子句，否則程序?qū)⑺姥h(huán)。Do循環(huán)沒有專門的循環(huán)變量。例:編程計算0-200之間所有偶數(shù)之和***

PrivateSubForm_click()DimkAsInteger,sumAsLongk=2sum=0DoWhilek<=200sum=sum+kk=k+2LoopPrint"2-200所有偶數(shù)之和為：";sumEndSubPrivateSubForm_click()DimsumAsLongsum=0Fori=0To200Step2sum=sum+iNextiPrint“2-200所有偶數(shù)之和為:”;SumEndSubDOSum=sum+kK=k+2Loopuntilk>200或：DOSum=sum+kK=k+2Loopwhilek<=200可將上面的循環(huán)結(jié)構(gòu)改寫成：Dountilk>200Sum=sum+kK=k+2Loop例：編程計算n!***PrivateSubform_click()DimkAsInteger,nAsIntegerDimtAsDoublei=1:t=1n=Val(InputBox("請輸入n的值","輸入"))DoWhilei<=ndountili>n

dodot=t*i…….…

…i=i+1loopwhilei<=nLooploop

loopuntili>nPrint"1*2*3…*"&n&"=";tEndSub例：p804-15利用公式：π/4≈1-1/3+1/5-1/7+…求π的值PrivateSubform_click()DimiAsLong,fAsIntegerDimsumAsDouble,tAsDoublesum=0:f=1:i=1:t=1DoWhileAbs(t)>0.000001sum=sum+tf=-fi=i+2t=f*1/iLoopsum=sum*4Print"pi的值為:";sumEndSub例(p804-16):編寫程序,求任意兩正整數(shù)的最大公約數(shù)和最小公倍數(shù)。最大公約數(shù)：使用輾轉(zhuǎn)相除法

4921以大數(shù)m作為被除數(shù)，小數(shù)n作為除數(shù)，相除后余數(shù)為r；若余數(shù)r不為0，則把小數(shù)n的值賦給m，r賦給n,繼續(xù)相除得新的r值，若r仍不為0，則重復此過程，直到r=0。最后的n就是最大公約數(shù)。

最小公倍數(shù)=源程序代碼PrivateSubform_Click()DimmAsInteger,nAsIntegerDimrAsInteger,tAsIntegerm=Val(InputBox("請輸入m的值"))n=Val(InputBox("請輸入n的值"))t=m*nIfm<nThenr=m:m=n:n=rEndIfDor=mModnIfr=0ThenExitDom=nn=rLoopPrint"兩個數(shù)的最大公約數(shù)為:";nPrint"兩個數(shù)的最小公倍數(shù)為:";t/nEndSub4.3.3.while…wend循環(huán)語句

只要給定的條件表達式的值為真，程序就重復執(zhí)行while…wend之間的語句。例1:利用公式

求自然對數(shù)的底e的近似值，要求累加到最后一項的值小于10-6為止。源程序代碼：PrivateSubForm_click()DimeAsDouble,itermAsDouble,nAsIntegere=0iterm=1n=1While1/iterm>=0.000001e=e+1/iterm'對每項求和累加iterm=iterm*n'n階乘n=n+1WendPrint"自然對數(shù)底e的值";ePrint"共累加到";n;"項"EndSub例2:p814-17我國現(xiàn)有人口13億,設年增長率為0.75%,計算多少年后將達到20億?PrivateSubForm_click()DimnAsIntegerDimxAsDoublex=13:n=0Whilex<20x=x*1.0075n=n+1WendPrint"經(jīng)過"&n&"年后人口達到"&x&"億!"EndSub13x(1+0.0075)n=20例2:p814-17例2:p824-18編寫一程序,將一正整數(shù)按逆序形式輸出.PrivateSubForm_click()DimnAsIntegern=Val(InputBox("請輸入一個正整數(shù)"))Whilen>0Print(nMod10);n=n\10WendEndSub例2:p824-18編寫一程序,將一正整數(shù)按逆序形式輸出.4.3.4多重循環(huán)（循環(huán)嵌套)例：p824-19

編寫在窗體上顯示如下圖形的程序。4.3.4多重循環(huán)（循環(huán)嵌套)特別注意：多重循環(huán)內(nèi)外循環(huán)變量不可交叉使用。源程序代碼PrivateSubForm_click()PrintFori=5To1Step-1PrintTab(10);PrintSpc(10-2*i);

Forj=1To2*i-1Print"*";"";NextjPrintSpc(8);Fork=1To11-2*iPrint"*";"";NextkPrintNextiEndSub例：p824-20現(xiàn)有100元錢,要求買100只雞,已知母雞3元一只,公雞2元一只,小雞0.5元一只,列出所有可能的購雞方案。（1）建立數(shù)學模型、列出以下兩個程

x+y+z=100其中x、y、z分別表示母雞、公雞和小雞的數(shù)量

3x+2y+0.5z=100（2）根據(jù)方程式安排程序中所需的變量，規(guī)劃算法及實現(xiàn)的程序結(jié)構(gòu)，采用循環(huán)結(jié)構(gòu)（3）畫出流程圖，寫出源程序代碼：源程序代碼：PrivateSubForm_click()DimxAsInteger,yAsIntegerDimzAsIntegerPrintTab(1);"母雞";Tab(15);"公雞";Tab(30);"小雞"Forx=0To33Fory=0To50z=100-x-yIf3*x+2*y+0.5*z=100ThenPrintx,y,zEndIfNextyNextxEndSub4.3.5應用舉例例：p844-21編程輸出100~999之間的水仙花數(shù)153=13+53+33PrivateSubForm_click()Dimi%,a%,b%,c%Print"水仙花數(shù)有:"Fori=100To999a=iMod10b=i\10Mod10c=i\100Ifi=a*a*a+b*b*b+c*c*cThenPrintiEndIfNextiEndSub例：p844-22判斷素數(shù)PrivateSubForm_click()DimmAsInteger,iAsIntegerm=Val(InputBox("請輸入一個大于2的正整數(shù)","整數(shù)輸入"))i=2DoUntili>=mIfmModi=0ThenExitDoEndIfi=i+1Loop