第三講基本控制結(jié)構(gòu)

第三講基本控制結(jié)構(gòu)第1頁，共39頁，2023年，2月20日，星期一24.1順序結(jié)構(gòu)第2頁，共39頁，2023年，2月20日，星期一2008-9-9中國地質(zhì)大學(xué)（北京）人文經(jīng)管學(xué)院管理科學(xué)與工程教研室3一.賦值語句簡單賦值語句

形式:

變量名＝表達式

作用:將表達式的值賦值給變量名.

一般用于給變量賦值或?qū)丶O(shè)定屬性值.

例:sRate!=0.1TextBox1.Text＝"歡迎使用VisualBasic2005”復(fù)合賦值語句：+=-=*=\=/=^=&=

形式：變量名+=表達式例：sum+=xsum=sum+xn+=1n=n+1

TextBox1.Text&=“它簡單易用、功能強大”&vbCrLf第3頁，共39頁，2023年，2月20日，星期一2008-9-9中國地質(zhì)大學(xué)（北京）人文經(jīng)管學(xué)院管理科學(xué)與工程教研室4注意：（1）當(dāng)表達式的類型與變量的類型不一致時,強制轉(zhuǎn)換成左邊的精度

iA%=10/3iA中的結(jié)果為3

（2）當(dāng)表達式是數(shù)字字符串，左邊變量是數(shù)值類型，則自動轉(zhuǎn)換為數(shù)值類型

n%=“12345”

（3）當(dāng)邏輯型賦值給數(shù)值型時，True轉(zhuǎn)換為-1，F(xiàn)alse轉(zhuǎn)換為0；反之，非0轉(zhuǎn)換為True，0轉(zhuǎn)換為False

（4）任何非字符串類型賦值給字符串類型，自動轉(zhuǎn)換為字符串類型。第4頁，共39頁，2023年，2月20日，星期一2008-9-9中國地質(zhì)大學(xué)（北京）人文經(jīng)管學(xué)院管理科學(xué)與工程教研室5二、數(shù)據(jù)的輸入和輸出（1）InputBox函數(shù)

InputBox(提示[,標題][,默認值][,x坐標][,y坐標])

例：InputBox(“請輸入學(xué)號”,”輸入對話框”,”00001”,100,100)

(x,y)

注意：InputBox的返回值為字符串，因此一般和一些類型轉(zhuǎn)換函數(shù)結(jié)合使用，轉(zhuǎn)換為所需要的數(shù)據(jù)類型。第5頁，共39頁，2023年，2月20日，星期一2008-9-9中國地質(zhì)大學(xué)（北京）人文經(jīng)管學(xué)院管理科學(xué)與工程教研室6

（2）MsgBox函數(shù)作用：打開一個信息框，等待用戶選擇一個按鈕。其返回值為整數(shù)類型。如果只是進行提示，無需返回值，則可以作為一個獨立語句存在。用法：

變量[%]=MsgBox(提示[,按鈕][,標題])

或者

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

例：MsgBox(“賬號必須為數(shù)字”,MsgBoxStyle.Information,“這是標題")第6頁，共39頁，2023年，2月20日，星期一2008-9-9中國地質(zhì)大學(xué)（北京）人文經(jīng)管學(xué)院管理科學(xué)與工程教研室7MsgBox中“按鈕”的意義與設(shè)置分組枚舉值按鈕值描述按鈕數(shù)目與類型MsgBoxStyle.OkOnly0確定MsgBoxStyle.OkCancel1確定、取消MsgBoxStyle.AbortRetryIgnore2終止、重試、忽略MsgBoxStyle.YesNoCancel3是、否、取消MsgBoxStyle.YesNo4是、否MsgBoxStyle.RetryCancel5重試、取消圖標類型MsgBoxStyle.Critical16關(guān)鍵信息圖標“×”MsgBoxStyle.Question32詢問信息圖標“？”MsgBoxStyle.Exclamation48警告信息圖標“！”MsgBoxStyle.Information64信息圖標“i”第7頁，共39頁，2023年，2月20日，星期一2008-9-9中國地質(zhì)大學(xué)（北京）人文經(jīng)管學(xué)院管理科學(xué)與工程教研室8MsgBox函數(shù)返回值意義枚舉值內(nèi)部常量返回值被單擊的按鈕MsgBoxStyle.OkvbOk1確定MsgBoxStyle.CancelvbCancel2取消MsgBoxStyle.AbortvbAbort3終止MsgBoxStyle.RetryvbRetry4重試MsgBoxStyle.IgnorevbIgnore5忽略MsgBoxStyle.YesvbYes6是MsgBoxStyle.NovbNo7否第8頁，共39頁，2023年，2月20日，星期一2008-9-9中國地質(zhì)大學(xué)（北京）人文經(jīng)管學(xué)院管理科學(xué)與工程教研室9（3）Write、WriteLine方法：只在程序編寫中起調(diào)試作用。

Debug.Write(表達式)Debug.WriteLine(表達式)Debug.Write不換行

Debug.WriteLine換行第9頁，共39頁，2023年，2月20日，星期一104.2選擇結(jié)構(gòu)第10頁，共39頁，2023年，2月20日，星期一2008-9-9中國地質(zhì)大學(xué)（北京）人文經(jīng)管學(xué)院管理科學(xué)與工程教研室11一、If條件語句1、If…Then語句（1）If表達式Then

語句塊

EndIf

（2）If表達式Then語句1:語句2:語句3:語句n注：表達式可以為邏輯表達式、關(guān)系表達式、算術(shù)表達式。如果為算術(shù)表達式，當(dāng)值非0時為True，0時為False第11頁，共39頁，2023年，2月20日，星期一2008-9-9中國地質(zhì)大學(xué)（北京）人文經(jīng)管學(xué)院管理科學(xué)與工程教研室122、If…Then…Else語句（1）If表達式Then

語句塊1

Else

語句塊2

EndIf

（2）If

表達式Then

語句塊1Else

語句塊2第12頁，共39頁，2023年，2月20日，星期一2008-9-9中國地質(zhì)大學(xué)（北京）人文經(jīng)管學(xué)院管理科學(xué)與工程教研室133、If…Then…ElseIf語句

If表達式1Then

語句塊1

ElseIf

表達式2Then

語句塊2…[Else

語句塊N+1]

EndIf注意：

(1)無論有多少個分支，程序只執(zhí)行滿足條件的一個分支，如果所有條件都不滿足，則所有的分支都不執(zhí)行。

(2)當(dāng)有多個分支的條件同時滿足，則只執(zhí)行第一個滿足條件的分支。第13頁，共39頁，2023年，2月20日，星期一2008-9-9中國地質(zhì)大學(xué)（北京）人文經(jīng)管學(xué)院管理科學(xué)與工程教研室14二、SelectCase語句1、語法

SelectCase

變量或表達式

Case

表達式列表1

語句塊1

Case

表達式列表2

語句塊2…[CaseElse

語句塊n+1]

EndSelect2、與If語句的區(qū)別：If語句可以控制多個條件判斷，而SelectCase只能控制一個條件數(shù)值型表達式或字符串型表達式四種形式：(1)表達式；(2)一組用逗號分開的枚舉值(3)表達式1to表達式2(4)Is關(guān)系運算符表達式第14頁，共39頁，2023年，2月20日，星期一2008-9-9中國地質(zhì)大學(xué)（北京）人文經(jīng)管學(xué)院管理科學(xué)與工程教研室15三、條件函數(shù)1、IIf函數(shù)

IIf(表達式,值1,值2)

例：gmax=IIf(x>y,x,y)2、Choose函數(shù)

Choose(整數(shù)表達式,選項列表)

例：x$=Choose(a,”Apple”,”O(jiān)range”,”Banana”)

當(dāng)a分別為1,2,3時，x分別為Apple,Orange,Banana,如果當(dāng)a<1或a>3時，x=nothingTruefalse第15頁，共39頁，2023年，2月20日，星期一2008-9-9中國地質(zhì)大學(xué)（北京）人文經(jīng)管學(xué)院管理科學(xué)與工程教研室164.2.5選擇控件與分組控件

1.單選按鈕(RadioButton)

單選按鈕以組的形式出現(xiàn)，允許選擇一項。

例單選題測試（1）主要屬性

Text屬性按鈕上顯示的文本

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

True——被選定

False——未被選定本章目錄第16頁，共39頁，2023年，2月20日，星期一2008-9-9中國地質(zhì)大學(xué)（北京）人文經(jīng)管學(xué)院管理科學(xué)與工程教研室17單選按鈕（2）主要事件

Click

單擊后使Checked屬性為TrueCheckedChanged

當(dāng)某個單選按鈕的狀態(tài)被發(fā)生變化，該事件隨之被觸發(fā)。

本章目錄第17頁，共39頁，2023年，2月20日，星期一2008-9-9中國地質(zhì)大學(xué)（北京）人文經(jīng)管學(xué)院管理科學(xué)與工程教研室18一組選項，允許用戶選擇其中一個或多個例多選題測試（1）主要屬性和事件與單選有相同的屬性和事件，增加了：

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

Unchecked未選定

Checked被選定

Indeterminate灰色，2.復(fù)選框(CheckBox)本章目錄第18頁，共39頁，2023年，2月20日，星期一2008-9-9中國地質(zhì)大學(xué)（北京）人文經(jīng)管學(xué)院管理科學(xué)與工程教研室193.分組(GroupBox)需要在同一個窗體中建立幾組相互獨立的單選或復(fù)選按鈕；具有容器功能。建立：建立分組，然后將各控件放置其中。Text屬性框架上的標題文本框架可以響應(yīng)Click和DoubleClick事Text屬性分組的標題，無則封閉框線一般不需要編寫事件過程。本章目錄特性：移動、復(fù)制、刪除框架，或?qū)υ摽丶M行Enabled、Visible屬性設(shè)置時，也同樣作用于該組內(nèi)的其他控件。

第19頁，共39頁，2023年，2月20日，星期一204.3循環(huán)結(jié)構(gòu)第20頁，共39頁，2023年，2月20日，星期一2008-9-9中國地質(zhì)大學(xué)（北京）人文經(jīng)管學(xué)院管理科學(xué)與工程教研室21一、For循環(huán)語句1、語法

For

循環(huán)控制變量=初值To

終值[Step步長]

語句塊

[ExitFor]

語句塊

Next每循環(huán)一次，循環(huán)控制變量所加的值?？蔀檎?，可為負。缺省時為1為正：初值<終值為負：初值>終值退出循環(huán)。一般和條件語句一起使用。當(dāng)有exitfor語句時，退出循環(huán)時，循環(huán)控制變量的值不再增加當(dāng)無exitfor語句時，退出循環(huán)時，循環(huán)控制變量的值增加(或減少)一個步長第21頁，共39頁，2023年，2月20日，星期一2008-9-9中國地質(zhì)大學(xué)（北京）人文經(jīng)管學(xué)院管理科學(xué)與工程教研室22二、Do…Loop循環(huán)語句形式1Do[{While/Until}條件]

語句塊

[ExitDo]

語句塊Loop形式2Do

語句塊

[ExitDo]

語句塊Loop[{While/Until}條件]While條件：表示條件為True時，執(zhí)行循環(huán)。與Until相反Until條件：表示條件為True時，退出循環(huán)。與While相反跳出循環(huán)，一般與條件語句結(jié)合使用。第22頁，共39頁，2023年，2月20日，星期一2008-9-9中國地質(zhì)大學(xué)（北京）人文經(jīng)管學(xué)院管理科學(xué)與工程教研室23循環(huán)例題例4.18我國有13億人口，按人口年增長0.8%計算，多少年后我國人口超過26億。解此問題兩種方法:

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

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

利用循環(huán)求得

上述兩個問題解決了本章目錄第23頁，共39頁，2023年，2月20日，星期一2008-9-9中國地質(zhì)大學(xué)（北京）人文經(jīng)管學(xué)院管理科學(xué)與工程教研室24三、循環(huán)嵌套

一個循環(huán)體內(nèi)包含一個或多個完整的循環(huán)，稱為循環(huán)的嵌套。見例4.20第24頁，共39頁，2023年，2月20日，星期一2008-9-9中國地質(zhì)大學(xué)（北京）人文經(jīng)管學(xué)院管理科學(xué)與工程教研室25

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

打印九九乘法表本章目錄思考：打印上三角或下三角程序如何改動？第25頁，共39頁，2023年，2月20日，星期一264.4其他輔助控制語句第26頁，共39頁，2023年，2月20日，星期一2008-9-9中國地質(zhì)大學(xué)（北京）人文經(jīng)管學(xué)院管理科學(xué)與工程教研室27一、GoTo語句1、語法

GoTo{標號/行號}2、作用無條件地轉(zhuǎn)移到標號或行號制定的語句3、注意（1）只能從循環(huán)和條件語句中跳出（2）只能跳到同一個過程中的語句（3）盡量不要使用第27頁，共39頁，2023年，2月20日，星期一2008-9-9中國地質(zhì)大學(xué)（北京）人文經(jīng)管學(xué)院管理科學(xué)與工程教研室28二、退出和結(jié)束語句1、Continue語句用于循環(huán)語句中，如Continuefor,ContinueDo，相當(dāng)于程序短路2、Exit語句

ExitFor，ExitDo，ExitSub，ExitFunction，相當(dāng)于程序斷路3、End語句

Endif,endselect,endwith,endfunction,endsub,單獨的End用來結(jié)束整個程序第28頁，共39頁，2023年，2月20日，星期一2008-9-9中國地質(zhì)大學(xué)（北京）人文經(jīng)管學(xué)院管理科學(xué)與工程教研室294.4.3滾動條、進度條和定時器1.滾動條(ScrollBar)

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

(缺省為0)Maximum(缺省為100)SmallChange改變值(缺省為1)LargeChange改變值(缺省為10)第29頁，共39頁，2023年，2月20日，星期一2008-9-9中國地質(zhì)大學(xué)（北京）人文經(jīng)管學(xué)院管理科學(xué)與工程教研室30主要事件Scroll

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

ValueChanged

改變Value屬性時觸發(fā)例4.24設(shè)計一個調(diào)色板應(yīng)用程序。設(shè)計思想：三個滾動代表三種基本顏色的輸入工具代碼說明注意：任意一個顏色改變均為影響合成的顏色，因此用共享事件來簡化編程。第30頁，共39頁，2023年，2月20日，星期一2008-9-9中國地質(zhì)大學(xué)（北京）人文經(jīng)管學(xué)院管理科學(xué)與工程教研室312.進度條(ProgressBar)

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

Maximum、Minimum、Value

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

第31頁，共39頁，2023年，2月20日，星期一2008-9-9中國地質(zhì)大學(xué)（北京）人文經(jīng)管學(xué)院管理科學(xué)與工程教研室323.定時器(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)又如何編程？第32頁，共39頁，2023年，2月20日，星期一334.6程序調(diào)試第33頁，共39頁，2023年，2月20日，星期一2008-9-9中國地質(zhì)大學(xué)（北京）人文經(jīng)管學(xué)院管理科學(xué)與工程教研室34一、錯誤類型1、語法錯誤用波浪線表示。在編寫代碼時就能顯示出來。2、運行時錯誤