基本控制結(jié)構(gòu)教學(xué)講義

基本控制結(jié)構(gòu)教學(xué)講義第四章基本的控制結(jié)構(gòu)4.1順序結(jié)構(gòu)4.2選擇結(jié)構(gòu)4.3循環(huán)結(jié)構(gòu)4.4其它控制語句和控件4.5綜合應(yīng)用4.6本章目錄4.1順序結(jié)構(gòu)

VB具有結(jié)構(gòu)化程序設(shè)計的三種程序控制結(jié)構(gòu)，即順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)，是程序設(shè)計的基礎(chǔ)。本章目錄（1）順序結(jié)構(gòu)各語句按出現(xiàn)的先后次序執(zhí)行bABa用傳統(tǒng)流程圖表示為（2）選擇結(jié)構(gòu)傳統(tǒng)流程圖:ba條件？AB不成立成立根據(jù)條件決定執(zhí)行的語句（3）循環(huán)結(jié)構(gòu)I、當(dāng)型循環(huán)結(jié)構(gòu)

a

條件？成立循環(huán)體b不成立aa循環(huán)體b不成立成立條件？II、直到型循環(huán)結(jié)構(gòu)

根據(jù)條件重復(fù)執(zhí)行語句(稱為循環(huán)體)4.1順序結(jié)構(gòu)一般程序設(shè)計語言中順序結(jié)構(gòu)的語句主要:

賦值語句和輸入/輸出語句等。在VB.net中

賦值語句

輸入/輸出通過:

文本框控件、標(biāo)簽控件、

InputBox函數(shù)、MsgBox函數(shù)

Write方法4.1.1引例—溫度轉(zhuǎn)換本章目錄例4.1華氏溫度與攝氏溫度之間轉(zhuǎn)換。要求:已知華氏溫度，轉(zhuǎn)換成攝氏溫度；同樣，已知攝氏溫度，轉(zhuǎn)換成華氏溫度;

換顯示保留兩位小數(shù)。華氏溫度與攝氏溫度之間轉(zhuǎn)換的公式是：

程序運行不管輸入攝氏溫度C多少,,顯示結(jié)果華氏溫度始終不變,原因?4.1.2賦值語句

形式：變量名＝表達式

[對象名.]屬性名=表達式功能：計算表達式的值，再將此值賦給變量或?qū)ο髮傩?。給變量賦值和設(shè)定屬性是VB編程中常見的兩個任務(wù).例如：x!=0.1 'x為單精度變量，賦值0.1TextBox1.Text＝""'清除文本框的內(nèi)容TextBox1.Text＝"歡迎使用VB.Net"

本章目錄復(fù)合賦值語句復(fù)合賦值運算符，其作用簡化程序代碼，提高程序編編譯的效果。語句形式：變量名復(fù)合賦值運算符表達式首先計算右邊表達式的值，然后與左邊的變量進行相應(yīng)的運算，最后賦值給變量。復(fù)合賦值運算符：+=、-=、*=、\=、/=、^=、&=本章目錄例如：a*=b+4等價于a=a*(b+4)常用復(fù)合賦值語句累加sum+=x

等價于sum=sum+x計數(shù)

n+=1

等價于n=n+1顯示多行信息利用&=

來實現(xiàn)本章目錄如下語句，TextBox1顯示結(jié)果？TextBox1.Text="VB.NET"&vbCrLfTextBox1.Text&="程序設(shè)計教程"賦值語句注意點

“=”符號有兩個意義

賦值號、關(guān)系運算符等號形式相同,系統(tǒng)會根據(jù)所處的位置判斷符號意義。賦值號左邊只能是變量，不能是常量、常數(shù)符號、表達式。下面均為錯誤的賦值語句：Now()=x+y'左邊是表達式(函數(shù))5=sqrt(s)+x+y‘

左邊是常量X+y=z ‘

左邊是表達式本章目錄1.InputBox函數(shù)

打開一個對話框，等待用戶輸入，返回字符串類型的輸入值。形式：InputBox(提示[,標(biāo)題][,默認(rèn)值][,x坐標(biāo)位置][,y坐標(biāo)位置])4.1.3數(shù)據(jù)輸出和輸入本章目錄

注意:提示項不能省略。若要多行提示，可在每行行末加回車換行vbCrLf。例4.2利用InputBox輸入基本工資和營業(yè)額，按營業(yè)額的5%提成，計算實發(fā)工資并顯示。

打開一個信息框，等待用戶選擇一個按按鈕。

MsgBox函數(shù)返回所選按鈕的值，變量[%]=MsgBox(提示[,按鈕][,標(biāo)題])MsgBox函數(shù)無獨立的語句：

MsgBox提示[,按鈕][,標(biāo)題]

2.MsgBox函數(shù)本章目錄按鈕：決定信息框按鈕的數(shù)目、名稱及（圖標(biāo)）。返回結(jié)果：返回所按的按鈕值此兩項均為整型表達式或枚舉值，枚舉名分別為MsgBoxStyle、MsgBoxResultMsgBox按鈕設(shè)置

第3個按鈕為默認(rèn)512DefaultButton3第2個按鈕為默認(rèn)

56DefaultButton2第1個按鈕為默認(rèn)

0DefaultButton1默認(rèn)按鈕

信息圖標(biāo)

64Information警告信息圖標(biāo)

48Exclamation詢問信息圖標(biāo)

32Question關(guān)鍵信息圖標(biāo)

16Critical圖標(biāo)類型

重試、取消按鈕

5RetryCancel是、否按鈕

4YesNo是、否、取消按鈕

3YesNoCancel終止、重試、忽略按鈕

2AboutRetryIgnore確定、取消按鈕

1OkCancel確定按鈕

0OkOnly按鈕數(shù)目

描述值枚舉值分組本章目錄枚舉MsgBoxStyleMsgBox所選按鈕返回值

例4.3編一賬號和密碼輸入的檢驗程序，當(dāng)輸入不正確，如賬號為非數(shù)字字符，密碼不正確等，顯示有關(guān)信息，再輸入。VBNo7否VBYes6是VBIgnore5忽略VBRetry4重試VBAbort3終止VBCancel2取消VBOk1確定內(nèi)部常數(shù)返回值被單擊按鈕NoYesIgnoreRetryAbortCancelOk枚舉值

本章目錄代碼說明枚舉名MsgBoxRetry

Write、WriteLine方法

在調(diào)試窗口輸出信息。Write輸出時不換行、WriteLine輸出時換行。輸出方法：

Debug.WriteLine(表達式)Debug.Write(表達式)例將例4.1輸出改為如下語句：Debug.WriteLine("本月營業(yè)額為："&x&"基本工資為："&jbgz)Debug.Write("本月實發(fā)工資為："&sfgz)選擇“視圖|其它窗口|輸出”顯示輸出窗口本章目錄4.2選擇結(jié)構(gòu)

計算機要處理的問題往往是復(fù)雜多變的，僅采用順序結(jié)構(gòu)是不夠的。必須利用選擇結(jié)構(gòu)等來解決實際應(yīng)用中的各種問題。VB中主要通過If條件語句和Select情況語句來實現(xiàn)。它們都是對條件進行判斷，根據(jù)判斷結(jié)果，選擇執(zhí)行不同的分支。

本章目錄4.2.1If條件語句

1.If…Then語句(單分支結(jié)構(gòu))

If<表達式>Then

語句塊（可以是一句或多句語句）

EndIf或If<表達式>Then<語句>表達式：算術(shù)、關(guān)系和邏輯表達式。表達式值：按非零為True，零為False進行判斷。作用：當(dāng)表達式值為True，執(zhí)行Then后面的 語句塊，否則不做任何操作。本章目錄單分支結(jié)構(gòu)例：已知兩個數(shù)x和y，比較它們的大小，使得x大于y。

Ifx<yThent=xx=yy=tEndIf或Ifx<yThent=x:x=y:y=t本章目錄注意：簡單If形式無EndIf時，只能是一句語句或語句間用冒號分隔，而且必須在一行上書寫。雙分支結(jié)構(gòu)2.If…Then…Else語句If表達式Then

語句塊1Else

語句塊2EndIf或If表達式Then語句1Else語句2本章目錄作用：當(dāng)表達式的值為True時，執(zhí)行Then后面的語句塊1，否則執(zhí)行Else后面的語句塊2雙分支結(jié)構(gòu)例計算分段函數(shù)

單分支y=cos(x)－x^3+3*x結(jié)構(gòu)實現(xiàn)Ifx<>0Theny=sin(x)+sqrt(x*x+1)

Ifx<>0Then雙分支

y=sin(x)+sqrt(x*x+1)

Else結(jié)構(gòu)實現(xiàn)

y=cos(x)－x^3+3*x

EndIf本章目錄多分支結(jié)構(gòu)3.If…Then…ElseIf語句

If表達式1Then

語句塊1ElseIf表達式2Then

語句塊2

…

[Else

語句塊n+1]EndIf作用：根據(jù)不同的表達式值確定執(zhí)行哪個語句塊本章目錄說明：

不管有幾個分支，依次判斷，當(dāng)某條件滿足，執(zhí)行相應(yīng)的語句，其余分支不再執(zhí)行；若條件都不滿足，且有Else子句，則執(zhí)行該語句塊，否則什么也不執(zhí)行。

ElseIf不能寫成

ElseIf例4.6已知變量ch中存放了一個字符，判斷該字符是字母字符、數(shù)字字符還是其他字符。

IfUCase(ch)>="A"AndUCase(ch)<="Z"ThenMsgBox(ch+“是字母字符”)'考慮大小寫字母

ElseIfch>="0"Andch<="9"Then'數(shù)字字符

MsgBox(ch+"是數(shù)字字符")Else'除上述字符以外的字符

MsgBox(ch+"是其他字符")EndIf多分支結(jié)構(gòu)例本章目錄注意問題4.2.2SelectCase語句

SelectCase變量或表達式

Case表達式列表1

語句塊1Case表達式列表2

語句塊2

…[CaseElse

語句塊n+1]EndSelect表達式列表與變量或表達式的類型必須相同，是下面4種形式之一：表達式例:"A"一組用逗號分隔的枚舉值2,4,6,8

表達式1To表達式260To100Is關(guān)系運算符表達式Is<60本章目錄SelectCase語句例例4.8將例4.5改用SelectCase語句實現(xiàn)：

SelectCasech Case"a"To"z"，"A"To"Z" MsgBox(ch+"是字母字符") Case"0"To"9" MsgBox(ch+"是數(shù)字字符") CaseElse MsgBox(ch+"是其他字符")EndSelect本章目錄SelectCase語句比If…Then…ElseIf語句直觀，程序可讀性強。但不是所有的多分支結(jié)構(gòu)均可用SelectCase語句代替If…Then…ElseIf語句。SelectCase語句例例4.9已知坐標(biāo)點(x，y)，判斷其落在哪個象限。代碼一 Ifx>0Andy>0ThenMsgBox("在第一象限")ElseIfx<0Andy>0ThenMsgBox("在第二象限") ElseIfx<0Andy<0ThenMsgBox("在第三象限") ElseIfx>0Andy<0ThenMsgBox("在第四象限") EndIf

代碼二SelectCasex,yCasex>0Andy>0MsgBox(“在第一象限”)Casex<0Andy>0MsgBox(“在第二象限”)Casex<0Andy<0MsgBox(“在第三象限”)Casex>0Andy<0MsgBox(“在第四象限”)EndSelect代碼二錯誤：1.SelectCase后不能出現(xiàn)多個變量；2.Case后不能出現(xiàn)變量及有關(guān)運算符。本章目錄If語句的嵌套是指If或Else后面的語句塊中又包含If語If表達式1ThenIf表達式2Then

…EndIf

…EndIfIfx<yThent=x:x=y:y=tIfy<zThent=y:y=z:z=tIfx<yThent=x:x=y:y=tEndIfEndIfIf語句的嵌套例4.10已知x，y，z三個數(shù)，使得x>y>z用一個IF語句和一個嵌套的IF語句實現(xiàn)本章目錄4.2.3條件函數(shù)

(1)IIf函數(shù)

IIf(表達式，表達式為真時的值，表達式為假時的值)IIf函數(shù)是If…Then…Else結(jié)構(gòu)的簡潔表示例如，將x，y中大的數(shù)，放入Tmax變量中：

Tmax=IIf(x>y，x，y)該語句與如下語句等價：

Ifx>yThenTmax=xElseTmax=y本章目錄4.2.3條件函數(shù)(2)Choose函數(shù)

Choose(整數(shù)表達式，選項列表)根據(jù)表達式的值i,返回選項列表中第i個選項。如果整數(shù)表達式的值越出選項范圍時，返回Null。例根據(jù)Nop的值，得到+、-、×、÷中的某運算符：Op=Choose(Nop，"+"，"-"，"×"，"÷")例4.11根據(jù)當(dāng)前日期，顯示今日是星期幾。t=Choose(Weekday(Now),“星期日”,“星期一”,“星期二”,“星期三”,“星期四”,“星期五”,“星期六”)MsgBox("今天是："&Now&t)本章目錄DimnopAsInteger,opAsCharRandomize()nop=Int(Rnd()*4+1)op=Choose(nop,"+","-","×","÷")MsgBox("nop="&nop&"op="&op)4.2.5選擇控件與分組控件

1.單選按鈕(RadioButton)

單選按鈕以組的形式出現(xiàn)，允許選擇一項。例單選題測試（1）主要屬性

Text屬性按鈕上顯示的文本

Checked屬性表示單選按鈕的狀態(tài)：

True——

被選定

False——

未被選定本章目錄7.1.1單選按鈕

（2）主要事件

Click單擊后使Checked屬性為TrueCheckedChanged當(dāng)某個單選按鈕的狀態(tài)被發(fā)生變化，該事件隨之被觸發(fā)。

本章目錄一組選項，允許用戶選擇其中一個或多個例多選題測試（1）主要屬性和事件與單選有相同的屬性和事件，增加了：

CheckState屬性表示復(fù)選框狀態(tài)

Unchecked未選定

Checked被選定

Indeterminate灰色，2.復(fù)選框(CheckBox)代碼說明本章目錄3.分組(GroupBox)需要在同一個窗體中建立幾組相互獨立的單選或復(fù)選按鈕；具有容器功能。建立：建立分組，然后將各控件放置其中。屬性Text屬性框架上的標(biāo)題文本框架可以響應(yīng)Click和DoubleClick事Text屬性分組的標(biāo)題，無則封閉框線一般不需要編寫事件過程。本章目錄特性：移動、復(fù)制、刪除框架，或?qū)υ摽丶M行Enabled、Visible屬性設(shè)置時，也同樣作用于該組內(nèi)的其他控件。

例4.12通過單選按鈕和分組控件設(shè)置文本框的Font屬性。帶來問題：分組上的六個單選按鈕，編寫6個事件過程解決的方法：共享事件處理過程

例4.13對上例進行改變，再增加字型復(fù)選框，用一個事件過程實現(xiàn)。實現(xiàn)思想：對每個按鈕要進行狀態(tài)判斷何為共享事件處理過程？即多個控件共享事件處理過程，形式：對象_事件（參數(shù)）Handles對象.事件，對象2.事件，…例4.14通過單選按鈕和復(fù)選框選修課程。關(guān)鍵處理：只要有一個選擇按鈕觸發(fā);就要逐一檢查選擇按鈕的狀態(tài);并更新文本框內(nèi)容。4.3循環(huán)結(jié)構(gòu)計算機最擅長的功能之一就是按規(guī)定的條件，重復(fù)執(zhí)行某些操作。引例—求π的近似值

祖沖之用了15年算出π值到小數(shù)點后面7位；第一臺計算機計算到2000多位

1999年東京大學(xué)2061.5843億例4.15驗證祖沖之有效位7位的計算

本章目錄VB中提供了主要的兩類循環(huán)語句：

For循環(huán)語句(一般已知循環(huán)次數(shù)）；

Do條件型循環(huán)語句(一般未知循環(huán)次數(shù)).

4.3.2For循環(huán)語句For循環(huán)語句用于控制循環(huán)次數(shù)預(yù)知的循環(huán)結(jié)構(gòu)。For循環(huán)變量＝初值To終值[Step步長]

語句塊

[ExitFor]

語句塊Next循環(huán)變量循環(huán)變量必須為數(shù)值型。循環(huán)次數(shù)>0初值<終值=1時，可省略<0初值>終值=0死循環(huán)步長例4.16計算1~100的奇數(shù)和

本章目錄Dimi%,sum%Fori=1To100Step2sum=sum+iNextiMsgBox(sum)分別用For、If語句實現(xiàn)循環(huán)，理解For語句執(zhí)行過程Dimi%,sum%Sum=0Fori=1To100Step2sum=sum+iNextiMsgBox(sum)

Sum=0i=2Re:Ifi<=100Thensum=sum+Ii=i+2GoToReEndIfFor循環(huán)語句循環(huán)流程：(1)循環(huán)變量被賦初值，它僅被賦值一次。(2)判斷循環(huán)變量是否在終值內(nèi)，如果是，執(zhí)行循環(huán)體；如果否，結(jié)束循環(huán)，執(zhí)行Next的下一語句。(3)循環(huán)變量加步長，轉(zhuǎn)(2)，繼續(xù)循環(huán)例4.17將可打印的ASCII碼制成表格輸出

本章目錄4.3.3Do…Loop循環(huán)語句Do循環(huán)用于控制循環(huán)次數(shù)未知的循環(huán)結(jié)構(gòu)。形式1：Do{While|Until}<條件>

語句塊

[ExitDo

語句塊]Loop形式1為先判斷后執(zhí)行，有可能一次也不執(zhí)行；形式2為先執(zhí)行后判斷，至少執(zhí)行一次。形式2：Do

語句塊

[ExitDo

語句塊]Loop{While|Until}<條件>本章目錄Do…Loop流程

本章目錄循環(huán)例題例4.18我國有13億人口，按人口年增長0.8%計算，多少年后我國人口超過26億。解此問題兩種方法:

直接利用標(biāo)準(zhǔn)函數(shù)問題:1)但求得的年數(shù)不為整數(shù)

2)得不到實際人數(shù)

利用循環(huán)求得

上述兩個問題解決了本章目錄循環(huán)例題例4.19用輾轉(zhuǎn)相除法求兩自然數(shù)的最大公約數(shù)。求最大公約數(shù)的算法思想：(1)對于兩數(shù)m，n，使得m>n(2)m除以n得余數(shù)r例

m=14,n=6

的最大公約數(shù)Ifm<nThent=m:m=n:n=tr=mmodnDoWhile(r<>0)m=nn=rr=mmodnLoopMsgBox“最大公約數(shù)=”&n輾轉(zhuǎn)相減法

m=m-nm>nn=n-mn>m

m、n為公約數(shù)m=nDoWhilem<>nmn

Ifm>nThen146m=m–n86Else26n=n–m24EndIf22Loop(3)若r=0，則n為最大公約數(shù)，結(jié)束；否則執(zhí)行(4)(4)m?n，n?r，再重復(fù)執(zhí)行(2)本章目錄流程圖4.3.4循環(huán)的嵌套

在一個循環(huán)體內(nèi)又包含了一個完整的循環(huán)結(jié)構(gòu)稱為循環(huán)的嵌套。循環(huán)嵌套對For循環(huán)語句和Do…Loop語句均適用。例4.20

打印九九乘法表本章目錄思考：打印上三角或下三角程序如何改動？4.4其他控制語句和控件4.4.1GoTo語句

無條件地轉(zhuǎn)移到標(biāo)號或行號指定的那行語句。

GoTo{標(biāo)號|行號}本章目錄代碼說明注意：標(biāo)號符合標(biāo)識符規(guī)定,后應(yīng)有冒號；行號是一個數(shù)字序列；例4.21判斷輸入的數(shù)是否為素數(shù)定義:素數(shù)就是除1和本身以外，不能被其他任何整數(shù)整除的數(shù)。算法:m依次用i=2~m-1去除，只要有一個數(shù)能整除m，m就不是素數(shù)；否則m是素數(shù)。要求一定范圍內(nèi)的素數(shù)，只要將m作為外循環(huán)體變量。

本章目錄代碼說明注意：標(biāo)號符合標(biāo)識符規(guī)定,后應(yīng)有冒號；行號是一個數(shù)字序列；注意:Goto不符合結(jié)構(gòu)化程序設(shè)計的規(guī)定改進:增加一個邏輯型變量Tag，用以判斷是否被整除過例Continue、Exit和End語句1.Continue

語句

VB.NET2005中新增,.形式:ContinueFor、ContinueDo2.Exit語句

VB中有多種形式的Exit語句，用于退出某種控制結(jié)構(gòu)的執(zhí)行。Exit的形式如下：

ExitFor、ExitDo、

ExitSub、ExitFunction本章目錄用于循環(huán)結(jié)構(gòu),相當(dāng)于循環(huán)的斷路。主要用于循環(huán)結(jié)構(gòu),相當(dāng)于本次循環(huán)的短路4.23比較4.4.2Continue、Exit和End語句3.End語句

1)獨立的End語句用于結(jié)束一個程序的運行，它可以放在任何事件過程中。

2)與其他控制結(jié)構(gòu)關(guān)鍵字配套的End語句用于結(jié)束一個控制語句或過程或塊，相當(dāng)于語句括號。End語句的多種形式如下：

EndIf、EndSelect、EndWith、

EndType、EndFunction、EndSub等本章目錄滾動條、進度條和定時器

1.滾動條(ScrollBar)

用于數(shù)據(jù)輸入工具，也可顯示數(shù)據(jù)。滾動條有水平（H）和垂直（V）兩種。本章目錄主要屬性Value(缺省為0)Minimum

(缺省為0)Maximum(缺省為100)SmallChange改變值(缺省為1)LargeChange改變值(缺省為10)主要事件

Scroll當(dāng)拖動滑塊時觸發(fā)

ValueChanged改變Value屬性時觸發(fā)例4.24設(shè)計一個調(diào)色板應(yīng)用程序。設(shè)計思想：三個滾動代表三種基本顏色的輸入工具代碼說明本章目錄注意：任意一個顏色改變均為影響合成的顏色，因此用共享事件來簡化編程。2.進度條(ProgressBar)

用來指示事務(wù)處理的進度.顯示的填充數(shù)Value值是Maximum和Minimum間的比值。主要屬性：

Maximum、Minimum、Value

編程使用方法：確定Maximum值。例如，如果正在下載文件，Maximum值為文件的字節(jié)數(shù)。變化的Value值，使得進度條變化。例如，在該文件下載過程中，Value的值為當(dāng)前已下載的字節(jié)數(shù)。例4.25設(shè)計帶有進度條的倒計時程序

3.定時器(Timer)定時器以一定的時間間隔產(chǎn)生Tick事件屬性Enabled

為False時定時器不產(chǎn)生Tick事件Interval

觸發(fā)Tick事件的時間間隔，單位ms

事件定時器控件只有一個Tick事件產(chǎn)生Tick事件條件

Enabled=True;Interval>0例4.26用一個定時器控制蝴蝶在窗體內(nèi)的飛舞

本章目錄思考：如何控制飛的速度、如何控制飛的每次距離？如果飛的過程有三個狀態(tài)又如何編程？4.5綜合應(yīng)用1.自測四則運算例4.15

由計算機自動產(chǎn)生四則運算題，并能判斷答案的正確性。設(shè)計思路：(1)通過隨機函數(shù)Rnd產(chǎn)生試題的操作數(shù)和運算符，運算符+、-、×、÷可對應(yīng)編號1~4。產(chǎn)生表達式通過Form_Load事件過程。(2)需要有一個全局變量保存四則運算題的正確答案，用戶答案可通過文本框輸入。(3)本題主要將隨機函數(shù)、If語句、Select語句綜合在一起使用。本章目錄代碼說明4.5綜合應(yīng)用

這種方法一般求近似解。關(guān)鍵：找出通項、精度（結(jié)束循環(huán)條件）近似公式

本章目錄代碼說明簡化：已知(i-1)!，要求i!，只要（i-1）!*i就可，這樣就簡化成只要通過一重循環(huán)求累加（）就可。1.計算部分級數(shù)和

例4.27求自然對數(shù)e的近似值，其誤差小于0.00001。分析：本例涉及到程序設(shè)計中兩個重要運算：累加、連乘。2.試湊法例4.28

百元買百雞。假定小雞每只5角，公雞每只2元，母雞每只3元，編程求解購雞方案。分析：設(shè)母雞、公雞、小雞各為x、y、z，列出方程為：

x+y+z=100 3x+2y+0.5z=100三個未知數(shù)