程序流程有三種最基本的控制結(jié)構(gòu),即順序結(jié)構(gòu)、選擇結(jié)構(gòu)和[優(yōu)質(zhì)分析]

《程序流程有三種最基本的控制結(jié)構(gòu),即順序結(jié)構(gòu)、選擇結(jié)構(gòu)和[優(yōu)質(zhì)分析]》由會(huì)員分享，可在線閱讀，更多相關(guān)《程序流程有三種最基本的控制結(jié)構(gòu),即順序結(jié)構(gòu)、選擇結(jié)構(gòu)和[優(yōu)質(zhì)分析]（42頁珍藏版）》請?jiān)谘b配圖網(wǎng)上搜索。

1、 程序流程有三種最基本的控程序流程有三種最基本的控制結(jié)構(gòu)，即順序結(jié)構(gòu)、選擇結(jié)構(gòu)制結(jié)構(gòu)，即順序結(jié)構(gòu)、選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)。和循環(huán)結(jié)構(gòu)。 在一個(gè)過程中，程序通常是按在一個(gè)過程中，程序通常是按照由上而下的順序來執(zhí)行各個(gè)語照由上而下的順序來執(zhí)行各個(gè)語句的，直到整個(gè)過程結(jié)束。引入句的，直到整個(gè)過程結(jié)束。引入選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)，可以改變選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)，可以改變程序執(zhí)行的流程。程序執(zhí)行的流程。1嚴(yán)選文書 選擇程序結(jié)構(gòu)用于選擇程序結(jié)構(gòu)用于，根據(jù)，根據(jù)來控制程序的流程來控制程序的流程 本章主要內(nèi)容條件表達(dá)式條件表達(dá)式 關(guān)系表達(dá)式關(guān)系表達(dá)式 / 邏輯表達(dá)式邏輯表達(dá)式條件語句條件語句 If.Then / If.T

2、hen.Else 條件語句的嵌套條件語句的嵌套多分支語句多分支語句 select case 選擇性控件選擇性控件 單選按鈕單選按鈕 / 復(fù)選框復(fù)選框 列表框列表框/組合框組合框計(jì)時(shí)器控件計(jì)時(shí)器控件程序舉例程序舉例2嚴(yán)選文書關(guān)系運(yùn)算符符號：符號： 大于大于 =大于或等于大于或等于 =小于或等于小于或等于 =等于等于 不等于不等于適用的類型和結(jié)果類型：適用的類型和結(jié)果類型：關(guān)系運(yùn)算符適用于數(shù)值型、字符型、日期型和邏輯型關(guān)系運(yùn)算符適用于數(shù)值型、字符型、日期型和邏輯型數(shù)據(jù)，結(jié)果只能為邏輯型（真值數(shù)據(jù)，結(jié)果只能為邏輯型（真值True和假值和假值False）運(yùn)算符兩側(cè)必須是同類型的量或表達(dá)式運(yùn)算符兩側(cè)必須

3、是同類型的量或表達(dá)式 若不是，系統(tǒng)會(huì)自動(dòng)進(jìn)行強(qiáng)制類型轉(zhuǎn)換若不是，系統(tǒng)會(huì)自動(dòng)進(jìn)行強(qiáng)制類型轉(zhuǎn)換 “5”4 0(10)若判斷的結(jié)論是成立，則結(jié)果為邏輯真值若判斷的結(jié)論是成立，則結(jié)果為邏輯真值(True)，否則為邏輯假值否則為邏輯假值(False)True的值等于的值等于-1，F(xiàn)alse的值等于的值等于03嚴(yán)選文書關(guān)系運(yùn)算符運(yùn)算運(yùn)算符符名名 稱稱示示 例例說說 明明小于小于“3”4值為：值為：True，強(qiáng)制轉(zhuǎn)換為，強(qiáng)制轉(zhuǎn)換為數(shù)值型數(shù)值型=小于或等小于或等于于3大于大于0(10)值為：值為：True，強(qiáng)制轉(zhuǎn)換為，強(qiáng)制轉(zhuǎn)換為數(shù)值型數(shù)值型=大于或等大于或等于于“aa”=“ab” 值為：值為：False=等于

4、等于1=True值為：值為：False，強(qiáng)制轉(zhuǎn)換為，強(qiáng)制轉(zhuǎn)換為數(shù)值型數(shù)值型不等于不等于11值為：值為：False4嚴(yán)選文書關(guān)系表達(dá)式運(yùn)算次序：先分別求出運(yùn)算符兩側(cè)表達(dá)式的值，運(yùn)算次序：先分別求出運(yùn)算符兩側(cè)表達(dá)式的值， 然后再將二者進(jìn)行比較然后再將二者進(jìn)行比較 其中：數(shù)值型數(shù)據(jù)按照數(shù)值大小比較其中：數(shù)值型數(shù)據(jù)按照數(shù)值大小比較 2+36 3=0 523 字符型數(shù)據(jù)按照字符的字符型數(shù)據(jù)按照字符的ASCII碼值大小比較碼值大小比較 “1”“2” “a” “a” 日期型數(shù)據(jù)按照前后順序比較日期型數(shù)據(jù)按照前后順序比較 #01/01/2003# # 12/31/2002#關(guān)系表達(dá)式的格式：關(guān)系表達(dá)式的格式：

5、 5嚴(yán)選文書關(guān)系表達(dá)式練習(xí)數(shù)值型數(shù)據(jù)按照數(shù)值大小比較數(shù)值型數(shù)據(jù)按照數(shù)值大小比較字符型數(shù)據(jù)按照字符的字符型數(shù)據(jù)按照字符的ASCII碼值大小比較碼值大小比較日期型數(shù)據(jù)按照前后順序比較日期型數(shù)據(jù)按照前后順序比較FalseFalseTrue TrueTrue FalseTrueFalseFalse6嚴(yán)選文書布爾運(yùn)算符符號：符號： NOT (邏輯非邏輯非) AND (邏輯與邏輯與) 即：并且，要同時(shí)成立即：并且，要同時(shí)成立 OR (邏輯或邏輯或) 即：或者，只要有一個(gè)成立即：或者，只要有一個(gè)成立適用的類型和結(jié)果類型：適用的類型和結(jié)果類型： 只適用于邏輯型數(shù)據(jù)，運(yùn)算結(jié)果是邏輯值只適用于邏輯型數(shù)據(jù)，運(yùn)算結(jié)果

6、是邏輯值規(guī)則規(guī)則：非運(yùn)算的規(guī)則是：直接求反即可非運(yùn)算的規(guī)則是：直接求反即可與運(yùn)算的規(guī)則是：只有二者全為真時(shí)結(jié)果為真，否則為假與運(yùn)算的規(guī)則是：只有二者全為真時(shí)結(jié)果為真，否則為假或運(yùn)算的規(guī)則是：只有二者全為假時(shí)結(jié)果為假，否則為真或運(yùn)算的規(guī)則是：只有二者全為假時(shí)結(jié)果為假，否則為真邏輯值邏輯值A(chǔ)邏輯值邏輯值BNOT AA AND BA OR BTTFTTTFFFTFTTFTFFTFF7嚴(yán)選文書布爾表達(dá)式練習(xí)？“a”“b” AND 12 False？“a”“b” OR 12 True?NOT 2*511 False?233 AND 510 False表示一個(gè)數(shù)是偶數(shù)表示一個(gè)數(shù)是偶數(shù) x Mod 2=0

7、或或 int(x/2)=x/2表示一個(gè)數(shù)表示一個(gè)數(shù)X能被能被3或或5或或7整除整除x Mod 3=0 OR x Mod 5=0 OR x Mod 7=0表示身高不在表示身高不在1.65米以上或不是女生米以上或不是女生身高身高1.65OR性別性別“女女”NOT（身高（身高1.65AND性別性別“女女”）8嚴(yán)選文書布爾表達(dá)式練習(xí)？321 Falsea=3:b=4:c=5 ?a=b=c False表示一個(gè)數(shù)表示一個(gè)數(shù)x是能被是能被3整除的奇數(shù)整除的奇數(shù)x Mod 3=0 and x Mod 20 x Mod 2=1 and x Mod 20表示一個(gè)數(shù)表示一個(gè)數(shù)x2,5 x2 and x5表示一個(gè)數(shù)表

8、示一個(gè)數(shù)x不在不在2,5區(qū)間內(nèi)區(qū)間內(nèi)x2 or x59嚴(yán)選文書運(yùn)算符的優(yōu)先順序算術(shù)運(yùn)算符算術(shù)運(yùn)算符字符串運(yùn)算符：字符串運(yùn)算符：關(guān)系運(yùn)算符：關(guān)系運(yùn)算符：、布爾運(yùn)算符：布爾運(yùn)算符：Not And Or優(yōu)優(yōu) 先先 級級 依依 次次 降降 低低10嚴(yán)選文書運(yùn)算符的優(yōu)先順序練習(xí)11嚴(yán)選文書判斷閏年的科學(xué)依據(jù)地球公轉(zhuǎn)一周的時(shí)間為：地球公轉(zhuǎn)一周的時(shí)間為：每經(jīng)過每經(jīng)過4年，剩余的時(shí)間為：年，剩余的時(shí)間為：則每則每4年都要多加年都要多加每經(jīng)過每經(jīng)過100年，就會(huì)多加年，就會(huì)多加比較接近一天，所以每到比較接近一天，所以每到100年，就將這多加的近似一天的時(shí)間減去，年，就將這多加的近似一天的時(shí)間減去，即停止追加一天

9、即停止追加一天而實(shí)際上又少加了而實(shí)際上又少加了每經(jīng)過每經(jīng)過400年，就會(huì)少加年，就會(huì)少加所以每過所以每過400年，就應(yīng)該再補(bǔ)加一天年，就應(yīng)該再補(bǔ)加一天故：每故：每4年閏年出現(xiàn)一次；每年閏年出現(xiàn)一次；每400年，閏年再出現(xiàn)一次年，閏年再出現(xiàn)一次其它的整其它的整100年，閏年停止出現(xiàn)一次年，閏年停止出現(xiàn)一次12嚴(yán)選文書選擇控制結(jié)構(gòu)選擇控制結(jié)構(gòu)又稱分支結(jié)構(gòu)選擇控制結(jié)構(gòu)又稱分支結(jié)構(gòu)它體現(xiàn)了程序運(yùn)行過程中的自我判斷能力它體現(xiàn)了程序運(yùn)行過程中的自我判斷能力程序可以根據(jù)當(dāng)前執(zhí)行的某個(gè)條件，進(jìn)行比較、判斷，并程序可以根據(jù)當(dāng)前執(zhí)行的某個(gè)條件，進(jìn)行比較、判斷，并依據(jù)判斷的結(jié)果（成立與否）來決定下一步做什么，不做什

10、依據(jù)判斷的結(jié)果（成立與否）來決定下一步做什么，不做什么（在兩條或多條程序路徑中選擇一條來執(zhí)行，即只執(zhí)行程么（在兩條或多條程序路徑中選擇一條來執(zhí)行，即只執(zhí)行程序中的一部分語句）序中的一部分語句）可見，在此結(jié)構(gòu)的可見，在此結(jié)構(gòu)的程序運(yùn)行過程中程序運(yùn)行過程中，有些語句會(huì)執(zhí)行一次，有些語句會(huì)執(zhí)行一次，有些語句有些語句在此次程序運(yùn)行過程中在此次程序運(yùn)行過程中沒有機(jī)會(huì)執(zhí)行。即：沒有機(jī)會(huì)執(zhí)行。即：“無論無論分支多寡，必選其一；縱然分支眾多，僅選其一分支多寡，必選其一；縱然分支眾多，僅選其一”VBVB中的選擇語句有：中的選擇語句有： 雙分支語句雙分支語句 多分支語句多分支語句(Select Case)(Sel

11、ect Case)單行單行(IF-THEN-ELSE)(IF-THEN-ELSE)塊結(jié)構(gòu)塊結(jié)構(gòu)(IF-THEN-ELSE-END IF)(IF-THEN-ELSE-END IF)13嚴(yán)選文書選擇結(jié)構(gòu)(IF-THEN)語句格式：語句格式：IF IF THEN THEN 條件條件N語句序列語句序列下一語句下一語句Y執(zhí)行過程：執(zhí)行過程：判斷給定的條件判斷給定的條件如果成立如果成立( (其值為其值為True),True),執(zhí)行所給語執(zhí)行所給語句序列，然后執(zhí)行下一條語句句序列，然后執(zhí)行下一條語句否則否則( (其值為其值為False)False)，跳過所給語句，跳過所給語句序列，直接執(zhí)行下一條語句序列，直

12、接執(zhí)行下一條語句示例：示例：輸入一個(gè)數(shù)，如果是正數(shù)，就輸出輸入一個(gè)數(shù)，如果是正數(shù)，就輸出問題：如果不是問題：如果不是正數(shù)，應(yīng)該顯示正數(shù)，應(yīng)該顯示“不是正數(shù)不是正數(shù)”14嚴(yán)選文書語句格式：語句格式：IF IF THEN THEN ELSE ELSE 2執(zhí)行過程：執(zhí)行過程：判斷給定的條件判斷給定的條件如果成立如果成立( (其值為其值為True),True),執(zhí)行所給執(zhí)行所給語句序列語句序列1 1，然后執(zhí)行下一條語句，然后執(zhí)行下一條語句否則否則( (其值為其值為False)False)，執(zhí)行所給語，執(zhí)行所給語句序列句序列2 2，然后執(zhí)行下一條語句，然后執(zhí)行下一條語句選擇結(jié)構(gòu)(IF-THEN-ELSE

13、)條件條件命令序列命令序列1命令序列命令序列2下一語句下一語句NY15嚴(yán)選文書(IF-THEN-ELSE)舉例例二：例二：根據(jù)用戶輸入的一個(gè)成績，判斷是否及格根據(jù)用戶輸入的一個(gè)成績，判斷是否及格例一：例一：輸入一個(gè)數(shù)，如果是正數(shù)，就輸出；否則顯示非正數(shù)輸入一個(gè)數(shù)，如果是正數(shù)，就輸出；否則顯示非正數(shù)Dim x As SingleDim x As Singlex=Val(Text1.text)x=Val(Text1.text)IfIf x0 x0 ThenThen Label1.Caption=xLabel1.Caption=x ElseElse Label1.Caption= Label1.Ca

14、ption= “非正數(shù)非正數(shù) 16嚴(yán)選文書IIF函數(shù)的使用Dim x As SingleDim x As Singlex=Val(Text1.text)x=Val(Text1.text)”17嚴(yán)選文書語句格式：語句格式：IF IF THEN THEN 1ELSEELSE 2END IFEND IF執(zhí)行過程：執(zhí)行過程：判斷給定的條件判斷給定的條件如果成立如果成立( (其值為其值為True),True),執(zhí)行所給執(zhí)行所給y y語句序列語句序列1 1，然后執(zhí)行下一條語句，然后執(zhí)行下一條語句否則否則( (其值為其值為False)False)，執(zhí)行所給語，執(zhí)行所給語句序列句序列2 2，然后執(zhí)行下一條語句

15、，然后執(zhí)行下一條語句塊結(jié)構(gòu)(IF-THEN-ELSE-END IF)條件條件命令序列命令序列1命令序列命令序列2下一語句下一語句NY18嚴(yán)選文書(IF-THEN-ELSE-END IF)舉例示例：示例：根據(jù)用戶輸入的一個(gè)成績，判斷是否及格根據(jù)用戶輸入的一個(gè)成績，判斷是否及格19嚴(yán)選文書(IF-THEN-ELSE-END IF)舉例示例：示例：輸入輸入ABCABC的值，判斷能否構(gòu)成三角形，如果能，計(jì)算三的值，判斷能否構(gòu)成三角形，如果能，計(jì)算三角形的面積角形的面積20嚴(yán)選文書語句格式：語句格式：IF IF THEN 1 THEN 1ELSEELSE IF IF THEN 2 THEN 2 ELSE

16、 ELSE 3 END IF END IFEND IFEND IF說明：說明：如果在如果在IfIf語句的語句列語句的語句列1 1或語句列或語句列2 2中又有一個(gè)完整的中又有一個(gè)完整的IfIf語句，則稱為語句，則稱為IfIf語句的嵌套語句的嵌套IF語句的嵌套條件條件1語句列語句列1語句列語句列2下一語句下一語句NY條件條件2YN語句列語句列321嚴(yán)選文書嵌套IF舉例用戶輸入一個(gè)數(shù)，如果是正數(shù)，打印是個(gè)正數(shù)；用戶輸入一個(gè)數(shù)，如果是正數(shù)，打印是個(gè)正數(shù)；如果是如果是0 0，打印是個(gè)零；如果是負(fù)數(shù)，打印是負(fù)數(shù)，打印是個(gè)零；如果是負(fù)數(shù)，打印是負(fù)數(shù)X0是個(gè)是個(gè)正數(shù)正數(shù)是零是零下一語下一語句句X0YN是個(gè)是個(gè)

17、負(fù)數(shù)負(fù)數(shù)YNDim x As Singlex = Val(Text1.Text)If x 0 ThenLabel1.Caption = 正數(shù)正數(shù)Else If x = 0 Then Label1.Caption = “零零” Else Label1.Caption = 負(fù)數(shù)負(fù)數(shù) End IfEnd If22嚴(yán)選文書嵌套IF舉例用戶輸入一元二次方程的系數(shù)，用戶判斷解的情況用戶輸入一元二次方程的系數(shù)，用戶判斷解的情況0有兩個(gè)不相有兩個(gè)不相同的實(shí)根同的實(shí)根有兩個(gè)相同有兩個(gè)相同的實(shí)根的實(shí)根下一語下一語句句0YN沒有實(shí)沒有實(shí)數(shù)解數(shù)解YNa=Val(Text1.Text):b=Val(Text2.Text

18、):c=Val(Text3.Text)d=b2-4*a*cIf d 0 ThenLabel1.Caption = “不同實(shí)根不同實(shí)根 Else If d = 0 Then Label1.Caption = “相同實(shí)根相同實(shí)根 Else Label1.Caption = 沒有實(shí)數(shù)解沒有實(shí)數(shù)解 End IfEnd If23嚴(yán)選文書嵌套IF舉例用戶輸入一個(gè)成績，用戶輸入一個(gè)成績，若在若在9090到到100100之間，打印優(yōu)秀；之間，打印優(yōu)秀；若在若在8080到到8989之間，打印良好；之間，打印良好；若在若在7070到到7979之間，打印一般；之間，打印一般；若在若在6060到到6969之間，打印及

19、格；之間，打印及格；若在若在6060以下，打印不及格；以下，打印不及格；其它情況，打印輸入有誤其它情況，打印輸入有誤24嚴(yán)選文書語句格式：語句格式：IF IF THEN 1 THEN 1ELSEIF ELSEIF THEN 2 THEN 2ELSEELSE 其他語句列其他語句列END IFEND IF說明：說明：IF語句的嵌套格式ELSEIF條件條件1條件條件n語句列語句列1語句列語句列n其他語句列其他語句列下一語句下一語句YYNN25嚴(yán)選文書嵌套ELSEIF舉例用戶輸入一個(gè)數(shù)，如果是正數(shù)，打印是個(gè)正數(shù)；用戶輸入一個(gè)數(shù)，如果是正數(shù)，打印是個(gè)正數(shù)；如果是如果是0 0，打印是個(gè)零；如果是負(fù)數(shù)，打印

20、是負(fù)數(shù)，打印是個(gè)零；如果是負(fù)數(shù)，打印是負(fù)數(shù)Dim x As Singlex = Val(Text1.Text)If x 0 ThenLabel1.Caption = 正數(shù)正數(shù)ElseIf x = 0 ThenLabel1.Caption = 零零ElseLabel1.Caption = 負(fù)數(shù)負(fù)數(shù)End IfDim x As Singlex = Val(Text1.Text)If x 0 ThenLabel1.Caption = 正數(shù)正數(shù)Else If x = 0 Then Label1.Caption = 零零 Else Label1.Caption = 負(fù)數(shù)負(fù)數(shù) End IfEnd If26

21、嚴(yán)選文書嵌套ELSEIF舉例Dim x As Singlex = Val(Text1.Text)If x 100 Then Label1.Caption = 輸入有誤！輸入有誤！ElseIf x = 90 Then Label1.Caption = 優(yōu)秀！優(yōu)秀！ ElseIf x = 80 Then Label1.Caption = 良好！良好！ ElseIf x = 70 Then Label1.Caption = 一般！一般！ ElseIf x = 60 Then Label1.Caption = 及格！及格！ ElseIf x = 0 Then Label1.Caption = 不及格！

22、不及格！ Else Label1.Caption = 輸入有誤！輸入有誤！End If用戶輸入一個(gè)成績，用戶輸入一個(gè)成績，若在若在9090到到100100之間，打印優(yōu)秀；之間，打印優(yōu)秀；若在若在8080到到8989之間，打印良好；之間，打印良好；若在若在7070到到7979之間，打印一般；之間，打印一般；若在若在6060到到6969之間，打印及格；之間，打印及格；若在若在6060以下，打印不及格；其以下，打印不及格；其它情況，打印輸入有誤它情況，打印輸入有誤27嚴(yán)選文書多分支語句 當(dāng)判斷條件較多時(shí)，如果采用當(dāng)判斷條件較多時(shí)，如果采用IF語句來設(shè)計(jì)程序，會(huì)出現(xiàn)各方語句來設(shè)計(jì)程序，會(huì)出現(xiàn)各方面的麻

23、煩；而多分支語句可以利用格式中的多個(gè)條件來判斷與執(zhí)面的麻煩；而多分支語句可以利用格式中的多個(gè)條件來判斷與執(zhí)行，效率較高行，效率較高語句格式：語句格式：SELECT CASE SELECT CASE CASE CASE 11 CASE CASE 22 CASE ElSE CASE ElSE END SELECTEND SELECT說明：說明：P83P83條件條件1條件條件n語句列語句列1語句列語句列n其他語句列其他語句列下一語句下一語句YYNN28嚴(yán)選文書多分支語句舉例用戶輸入一個(gè)數(shù)，如果是正數(shù)，打印是個(gè)正數(shù)；如果是用戶輸入一個(gè)數(shù)，如果是正數(shù)，打印是個(gè)正數(shù)；如果是0 0，打印是個(gè)，打印是個(gè)零；如

24、果是負(fù)數(shù)，打印是負(fù)數(shù)零；如果是負(fù)數(shù)，打印是負(fù)數(shù)Dim x As Singlex = Val(Text1.Text)If x 0 Then Label1.Caption = 正數(shù)正數(shù)Else If x = 0 Then Label1.Caption = 零零 Else Label1.Caption = 負(fù)數(shù)負(fù)數(shù) End IfEnd IfDim x As Singlex = Val(Text1.Text)Select Case xCase Is 0 Label1.Caption = 正數(shù)正數(shù)Case Is = 0 Case 0 Label1.Caption = 零零Case Is 0 Label1

25、.Caption = 負(fù)數(shù)負(fù)數(shù)End Select29嚴(yán)選文書多分支語句舉例用戶輸入一個(gè)成績，用戶輸入一個(gè)成績，若在若在9090到到100100之間，打印優(yōu)秀；之間，打印優(yōu)秀；若在若在8080到到8989之間，打印良好；之間，打印良好；若在若在7070到到7979之間，打印一般；之間，打印一般；若在若在6060到到6969之間，打印及格；之間，打印及格；若在若在6060以下，打印不及格；其以下，打印不及格；其它情況，打印輸入有誤它情況，打印輸入有誤Select Case x Case Is 100 Label1.Caption = 輸入有誤輸入有誤 Case Is = 90 Label1.Ca

26、ption = 優(yōu)秀優(yōu)秀 Case Is = 80 Label1.Caption = 良好良好 Case Is = 70 Label1.Caption = 一般一般 Case Is = 60 Label1.Caption = 及格及格 Case Else Label1.Caption = 不及格不及格End Select30嚴(yán)選文書多分支語句舉例用戶輸入一個(gè)年份和月份，用戶輸入一個(gè)年份和月份，由程序輸入該年該月有多少天由程序輸入該年該月有多少天! !Dim d As Integery = Val(Text1.Text): m = Val(Text2.Text)Select Case mCase

27、 1, 3, 5, 7, 8, 10, 12 d = 31Case 4, 6, 9, 11 d = 30Case 2 If y Mod 4 = 0 And y Mod 100 0 Or y Mod 400 = 0 Then d = 29 Else d = 28 End IfEnd SelectP=Str(y) & 年年 & Str(m) & 月有月有 & Str(d) & 天天!Label1.Caption =p31嚴(yán)選文書滾動(dòng)條有些控件不能自動(dòng)支持滾動(dòng)的功能，有些控件不能自動(dòng)支持滾動(dòng)的功能，VB提供的滾動(dòng)條有水平滾提供的滾動(dòng)條有水平滾動(dòng)條動(dòng)條(HScrollBar)和垂直滾動(dòng)條和垂直滾動(dòng)條(

28、VScrollBar)兩種兩種常用屬性有常用屬性有(均為整型數(shù)均為整型數(shù))：uValue 滾動(dòng)條的當(dāng)前值，即滑塊的位置滾動(dòng)條的當(dāng)前值，即滑塊的位置uLargeChange 單擊滾動(dòng)條的前后部位時(shí)，單擊滾動(dòng)條的前后部位時(shí)，Value的改變量的改變量uSmallChange 單擊滾動(dòng)條的兩端箭頭時(shí)，單擊滾動(dòng)條的兩端箭頭時(shí)，Value的改變量的改變量uMax Value的最大值的最大值uMin Value的最小值的最小值常用事件：常用事件：uScroll 當(dāng)當(dāng)拖動(dòng)滾動(dòng)條滑塊拖動(dòng)滾動(dòng)條滑塊時(shí)觸發(fā)的事件時(shí)觸發(fā)的事件uChange 當(dāng)當(dāng)滾動(dòng)條滑塊位置改變滾動(dòng)條滑塊位置改變時(shí)觸發(fā)的事件時(shí)觸發(fā)的事件32嚴(yán)選文

29、書滾動(dòng)條程序示例Private Sub HScroll1_Scroll( )Text1.FontSize = HScroll1.ValueEnd Sub若改為滾動(dòng)條的若改為滾動(dòng)條的Change事件，效果會(huì)有什么變化？事件，效果會(huì)有什么變化？33嚴(yán)選文書使用計(jì)時(shí)器控件計(jì)時(shí)器計(jì)時(shí)器(Timer)(Timer)控件可以在程序運(yùn)行中控件可以在程序運(yùn)行中產(chǎn)生一個(gè)事件。這對不需要與用戶交互的代碼的產(chǎn)生一個(gè)事件。這對不需要與用戶交互的代碼的執(zhí)行非常有用。執(zhí)行非常有用。計(jì)時(shí)器在設(shè)計(jì)時(shí)顯示為一個(gè)小時(shí)鐘圖標(biāo)，計(jì)時(shí)器在設(shè)計(jì)時(shí)顯示為一個(gè)小時(shí)鐘圖標(biāo)，而在運(yùn)行時(shí)而在運(yùn)行時(shí)則看不到則看不到，常用來做一些后臺(tái)處理。，常用來做

30、一些后臺(tái)處理。如果需要顯示時(shí)間，則應(yīng)當(dāng)使用標(biāo)簽或文本框如果需要顯示時(shí)間，則應(yīng)當(dāng)使用標(biāo)簽或文本框34嚴(yán)選文書計(jì)時(shí)器控件的常用屬性uIntervalInterval屬性是決定屬性是決定TimerTimer控件的計(jì)時(shí)事件調(diào)用控件的計(jì)時(shí)事件調(diào)用間隔的毫秒數(shù)間隔的毫秒數(shù)格式：格式： 對象對象.Interval =.Interval =毫秒數(shù)毫秒數(shù) 說明：說明：當(dāng)毫秒數(shù)為當(dāng)毫秒數(shù)為0 0（缺省）時(shí)，（缺省）時(shí)，TimerTimer控件無效?？丶o效。uEnabledEnabled屬性（屬性（True/FalseTrue/False）決定）決定IntervalInterval的設(shè)的設(shè)置是否有效置是否有效只要

31、只要TimerTimer控件的控件的EnabledEnabled屬性被設(shè)置為屬性被設(shè)置為TrueTrue，而，而且且IntervalInterval屬性屬性00，則以則以IntervalInterval屬性指定的時(shí)屬性指定的時(shí)間間隔發(fā)生一次間間隔發(fā)生一次TimerTimer事件事件35嚴(yán)選文書設(shè)計(jì)一個(gè)閃爍字幕Private Sub Form_Load()FontName = 幼圓幼圓FontBold = TrueFontSize = 100End SubPrivate Sub Timer1_Timer()Form1.ForeColor = RGB(Int(Rnd * 256), Int(Rnd

32、 * 256), Int(Rnd * 256)Form1.CurrentX = Form1.Width / 10 輸出的水平坐標(biāo)輸出的水平坐標(biāo)Form1.CurrentY = Form1.Height / 16 輸出的垂直坐標(biāo)輸出的垂直坐標(biāo)Print 閃爍字幕閃爍字幕End Sub每隔每隔0.5秒閃爍一次，程秒閃爍一次，程序運(yùn)行前，序運(yùn)行前，Timer的的Enabled和和Interval屬性屬性的值應(yīng)為多少？的值應(yīng)為多少？36嚴(yán)選文書設(shè)計(jì)一個(gè)計(jì)時(shí)器每隔一秒鐘，文本框中的數(shù)字每隔一秒鐘，文本框中的數(shù)字增一，單擊增一，單擊“暫停暫?！卑粹o就停按鈕就停止止Private Sub Command1_

33、Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Text1.Text = Text1.Text + 1End Sub程序運(yùn)行前，程序運(yùn)行前，Timer的的Enabled和和Interval屬性屬性的值應(yīng)為多少？的值應(yīng)為多少？37嚴(yán)選文書框架控件Frame框架控件是一個(gè)左上方有標(biāo)題文字的方框。框架控件是一個(gè)左上方有標(biāo)題文字的方框。它是一個(gè)容器控件?？梢詫Υ绑w上的控件它是一個(gè)容器控件。可以對窗體上的控件進(jìn)行視覺上

34、的分組。進(jìn)行視覺上的分組。在框架內(nèi)可以在框架內(nèi)可以控件，也可以將已控件，也可以將已有控件有控件到框架內(nèi)到框架內(nèi)框架可以提供總體的激活和屏蔽框架可以提供總體的激活和屏蔽常用屬性有：常用屬性有：Name 框架的名稱框架的名稱Caption 框架上顯示的標(biāo)題文字框架上顯示的標(biāo)題文字Visual 運(yùn)行后是否可見運(yùn)行后是否可見Enabled 框架和框架內(nèi)的所有控件是否屏蔽框架和框架內(nèi)的所有控件是否屏蔽38嚴(yán)選文書提供簡單選擇的控件u選項(xiàng)按鈕（選項(xiàng)按鈕（Option Button）又稱單選按鈕，選項(xiàng)按鈕總是作為）又稱單選按鈕，選項(xiàng)按鈕總是作為一個(gè)組的組成部分工作的。一個(gè)組的組成部分工作的。選項(xiàng)按鈕組選項(xiàng)按

35、鈕組是一組互是一組互排斥排斥的選項(xiàng)按鈕的選項(xiàng)按鈕;選擇一個(gè)選項(xiàng)按鈕會(huì)立即選擇一個(gè)選項(xiàng)按鈕會(huì)立即清除該組中的其它按鈕清除該組中的其它按鈕;每次只能選一個(gè)選項(xiàng)而且必須選擇一個(gè)每次只能選一個(gè)選項(xiàng)而且必須選擇一個(gè)選項(xiàng)（問題：在窗體上的是一組？在一個(gè)框架內(nèi)的是一組？）選項(xiàng)（問題：在窗體上的是一組？在一個(gè)框架內(nèi)的是一組？）u常用屬性：常用屬性：Caption屬性：屬性： 單選按鈕旁邊的標(biāo)題文字單選按鈕旁邊的標(biāo)題文字value屬性：表示該按鈕是否被選中。選中為屬性：表示該按鈕是否被選中。選中為True,否則為否則為FalseAlignment屬性：單選按鈕標(biāo)題屬性：單選按鈕標(biāo)題 的對齊方式的對齊方式Styl

36、e屬性：表示控件的外觀（標(biāo)準(zhǔn)格式或圖形方式）屬性：表示控件的外觀（標(biāo)準(zhǔn)格式或圖形方式）可以將選項(xiàng)按鈕設(shè)計(jì)成可以將選項(xiàng)按鈕設(shè)計(jì)成圖形按鈕的形式，圖形按鈕的形式，將將Style改為改為1-Graphical(圖形方式圖形方式)，再依次修改其，再依次修改其Caption屬性屬性u單選按鈕使用最多的是單選按鈕使用最多的是click事件事件39嚴(yán)選文書單選按鈕程序示例40嚴(yán)選文書提供簡單選擇的控件u復(fù)選框（復(fù)選框（CheckBox）控件：根據(jù)需要進(jìn)行多項(xiàng)選擇）控件：根據(jù)需要進(jìn)行多項(xiàng)選擇u可以只選一個(gè)，也可全選，還可全不選可以只選一個(gè)，也可全選，還可全不選u當(dāng)某一個(gè)復(fù)選框被選中時(shí)，復(fù)選框中出現(xiàn)一個(gè)當(dāng)某一個(gè)

37、復(fù)選框被選中時(shí)，復(fù)選框中出現(xiàn)一個(gè)“”u 常用屬性：常用屬性：Caption屬性屬性：復(fù)選框旁邊的標(biāo)題文字：復(fù)選框旁邊的標(biāo)題文字value屬性：屬性：表示該按鈕是否被選中。表示該按鈕是否被選中。 0默認(rèn)設(shè)置，未選中狀態(tài)默認(rèn)設(shè)置，未選中狀態(tài)1選中狀態(tài)選中狀態(tài)2禁止?fàn)顟B(tài)，不可用禁止?fàn)顟B(tài)，不可用Alignment屬性屬性：復(fù)選框旁邊的標(biāo)題文字的對齊方式：復(fù)選框旁邊的標(biāo)題文字的對齊方式Style屬性：屬性：表示控件的外觀（標(biāo)準(zhǔn)格式或圖形方式）表示控件的外觀（標(biāo)準(zhǔn)格式或圖形方式）u復(fù)選框按鈕使用最多的是復(fù)選框按鈕使用最多的是click事件，在事件中需要對其事件，在事件中需要對其Value屬屬性值做判斷，從而根據(jù)用戶的選中狀態(tài)決定程序如何執(zhí)行性值做判斷，從而根據(jù)用戶的選中狀態(tài)決定程序如何執(zhí)行41嚴(yán)選文書復(fù)選按鈕程序示例42嚴(yán)選文書