《程序流程有三種最基本的控制結(jié)構(gòu),即順序結(jié)構(gòu)、選擇結(jié)構(gòu)和[優(yōu)質(zhì)分析]》由會員分享，可在線閱讀，更多相關(guān)《程序流程有三種最基本的控制結(jié)構(gòu),即順序結(jié)構(gòu)、選擇結(jié)構(gòu)和[優(yōu)質(zhì)分析]（42頁珍藏版）》請在裝配圖網(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)。 在一個過程中，程序通常是按在一個過程中，程序通常是按照由上而下的順序來執(zhí)行各個語照由上而下的順序來執(zhí)行各個語句的，直到整個過程結(jié)束。引入句的，直到整個過程結(jié)束。引入選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)，可以改變選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)，可以改變程序執(zhí)行的流程。程序執(zhí)行的流程。1嚴選文書 選擇程序結(jié)構(gòu)用于選擇程序結(jié)構(gòu)用于，根據(jù)，根據(jù)來控制程序的流程來控制程序的流程 本章主要內(nèi)容條件表達式條件表達式 關(guān)系表達式關(guān)系表達式 / 邏輯表達式邏輯表達式條件語句條件語句 If.Then / If.T

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

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

4、等于1=True值為：值為：False，強制轉(zhuǎn)換為，強制轉(zhuǎn)換為數(shù)值型數(shù)值型不等于不等于11值為：值為：False4嚴選文書關(guān)系表達式運算次序：先分別求出運算符兩側(cè)表達式的值，運算次序：先分別求出運算符兩側(cè)表達式的值， 然后再將二者進行比較然后再將二者進行比較 其中：數(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)系表達式的格式：關(guān)系表達式的格式：

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

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

7、或或 int(x/2)=x/2表示一個數(shù)表示一個數(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嚴選文書布爾表達式練習(xí)？321 Falsea=3:b=4:c=5 ?a=b=c False表示一個數(shù)表示一個數(shù)x是能被是能被3整除的奇數(shù)整除的奇數(shù)x Mod 3=0 and x Mod 20 x Mod 2=1 and x Mod 20表示一個數(shù)表示一個數(shù)x2,5 x2 and x5表示一個數(shù)表

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

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

10、依據(jù)判斷的結(jié)果（成立與否）來決定下一步做什么，不做什么（在兩條或多條程序路徑中選擇一條來執(zhí)行，即只執(zhí)行程么（在兩條或多條程序路徑中選擇一條來執(zhí)行，即只執(zhí)行程序中的一部分語句）序中的一部分語句）可見，在此結(jié)構(gòu)的可見，在此結(jié)構(gòu)的程序運行過程中程序運行過程中，有些語句會執(zhí)行一次，有些語句會執(zhí)行一次，有些語句有些語句在此次程序運行過程中在此次程序運行過程中沒有機會執(zhí)行。即：沒有機會執(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嚴選文書選擇結(jié)構(gòu)(IF-THEN)語句格式：語句格式：IF IF THEN THEN 條件條件N語句序列語句序列下一語句下一語句Y執(zhí)行過程：執(zhí)行過程：判斷給定的條件判斷給定的條件如果成立如果成立( (其值為其值為True),True),執(zhí)行所給語執(zhí)行所給語句序列，然后執(zhí)行下一條語句句序列，然后執(zhí)行下一條語句否則否則( (其值為其值為False)False)，跳過所給語句，跳過所給語句序列，直接執(zhí)行下一條語句序列，直

12、接執(zhí)行下一條語句示例：示例：輸入一個數(shù)，如果是正數(shù)，就輸出輸入一個數(shù)，如果是正數(shù)，就輸出問題：如果不是問題：如果不是正數(shù)，應(yīng)該顯示正數(shù)，應(yīng)該顯示“不是正數(shù)不是正數(shù)”14嚴選文書語句格式：語句格式：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嚴選文書(IF-THEN-ELSE)舉例例二：例二：根據(jù)用戶輸入的一個成績，判斷是否及格根據(jù)用戶輸入的一個成績，判斷是否及格例一：例一：輸入一個數(shù)，如果是正數(shù)，就輸出；否則顯示非正數(shù)輸入一個數(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嚴選文書IIF函數(shù)的使用Dim x As SingleDim x As Singlex=Val(Text1.text)x=Val(Text1.text)”17嚴選文書語句格式：語句格式：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嚴選文書(IF-THEN-ELSE-END IF)舉例示例：示例：根據(jù)用戶輸入的一個成績，判斷是否及格根據(jù)用戶輸入的一個成績，判斷是否及格19嚴選文書(IF-THEN-ELSE-END IF)舉例示例：示例：輸入輸入ABCABC的值，判斷能否構(gòu)成三角形，如果能，計算三的值，判斷能否構(gòu)成三角形，如果能，計算三角形的面積角形的面積20嚴選文書語句格式：語句格式：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中又有一個完整的中又有一個完整的IfIf語句，則稱為語句，則稱為IfIf語句的嵌套語句的嵌套IF語句的嵌套條件條件1語句列語句列1語句列語句列2下一語句下一語句NY條件條件2YN語句列語句列321嚴選文書嵌套IF舉例用戶輸入一個數(shù)，如果是正數(shù)，打印是個正數(shù)；用戶輸入一個數(shù)，如果是正數(shù)，打印是個正數(shù)；如果是如果是0 0，打印是個零；如果是負數(shù)，打印是負數(shù)，打印是個零；如果是負數(shù)，打印是負數(shù)X0是個是個正數(shù)正數(shù)是零是零下一語下一語句句X0YN是個是個

17、負數(shù)負數(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 = 負數(shù)負數(shù) End IfEnd If22嚴選文書嵌套IF舉例用戶輸入一元二次方程的系數(shù)，用戶判斷解的情況用戶輸入一元二次方程的系數(shù)，用戶判斷解的情況0有兩個不相有兩個不相同的實根同的實根有兩個相同有兩個相同的實根的實根下一語下一語句句0YN沒有實沒有實數(shù)解數(shù)解YNa=Val(Text1.Text):b=Val(Text2.Text

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

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

20、是負數(shù)，打印是個零；如果是負數(shù)，打印是負數(shù)Dim x As Singlex = Val(Text1.Text)If x 0 ThenLabel1.Caption = 正數(shù)正數(shù)ElseIf x = 0 ThenLabel1.Caption = 零零ElseLabel1.Caption = 負數(shù)負數(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 = 負數(shù)負數(shù) End IfEnd If26

21、嚴選文書嵌套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用戶輸入一個成績，用戶輸入一個成績，若在若在9090到到100100之間，打印優(yōu)秀；之間，打印優(yōu)秀；若在若在8080到到8989之間，打印良好；之間，打印良好；若在若在7070到到7979之間，打印一般；之間，打印一般；若在若在6060到到6969之間，打印及格；之間，打印及格；若在若在6060以下，打印不及格；其以下，打印不及格；其它情況，打印輸入有誤它情況，打印輸入有誤27嚴選文書多分支語句 當(dāng)判斷條件較多時，如果采用當(dāng)判斷條件較多時，如果采用IF語句來設(shè)計程序，會出現(xiàn)各方語句來設(shè)計程序，會出現(xiàn)各方面的麻

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

24、果是負數(shù)，打印是負數(shù)零；如果是負數(shù)，打印是負數(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 = 負數(shù)負數(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 = 負數(shù)負數(shù)End Select29嚴選文書多分支語句舉例用戶輸入一個成績，用戶輸入一個成績，若在若在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嚴選文書多分支語句舉例用戶輸入一個年份和月份，用戶輸入一個年份和月份，由程序輸入該年該月有多少天由程序輸入該年該月有多少天! !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嚴選文書滾動條有些控件不能自動支持滾動的功能，有些控件不能自動支持滾動的功能，VB提供的滾動條有水平滾提供的滾動條有水平滾動條動條(HScrollBar)和垂直滾動條和垂直滾動條(

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

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

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

31、只要TimerTimer控件的控件的EnabledEnabled屬性被設(shè)置為屬性被設(shè)置為TrueTrue，而，而且且IntervalInterval屬性屬性00，則以則以IntervalInterval屬性指定的時屬性指定的時間間隔發(fā)生一次間間隔發(fā)生一次TimerTimer事件事件35嚴選文書設(shè)計一個閃爍字幕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秒閃爍一次，程秒閃爍一次，程序運行前，序運行前，Timer的的Enabled和和Interval屬性屬性的值應(yīng)為多少？的值應(yīng)為多少？36嚴選文書設(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程序運行前，程序運行前，Timer的的Enabled和和Interval屬性屬性的值應(yīng)為多少？的值應(yīng)為多少？37嚴選文書框架控件Frame框架控件是一個左上方有標(biāo)題文字的方框。框架控件是一個左上方有標(biāo)題文字的方框。它是一個容器控件?？梢詫Υ绑w上的控件它是一個容器控件?？梢詫Υ绑w上的控件進行視覺上

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

35、鈕組是一組互是一組互排斥排斥的選項按鈕的選項按鈕;選擇一個選項按鈕會立即選擇一個選項按鈕會立即清除該組中的其它按鈕清除該組中的其它按鈕;每次只能選一個選項而且必須選擇一個每次只能選一個選項而且必須選擇一個選項（問題：在窗體上的是一組？在一個框架內(nèi)的是一組？）選項（問題：在窗體上的是一組？在一個框架內(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)格式或圖形方式）可以將選項按鈕設(shè)計成可以將選項按鈕設(shè)計成圖形按鈕的形式，圖形按鈕的形式，將將Style改為改為1-Graphical(圖形方式圖形方式)，再依次修改其，再依次修改其Caption屬性屬性u單選按鈕使用最多的是單選按鈕使用最多的是click事件事件39嚴選文書單選按鈕程序示例40嚴選文書提供簡單選擇的控件u復(fù)選框（復(fù)選框（CheckBox）控件：根據(jù)需要進行多項選擇）控件：根據(jù)需要進行多項選擇u可以只選一個，也可全選，還可全不選可以只選一個，也可全選，還可全不選u當(dāng)某一個復(fù)選框被選中時，復(fù)選框中出現(xiàn)一個當(dāng)某一個

37、復(fù)選框被選中時，復(fù)選框中出現(xiàn)一個“”u 常用屬性：常用屬性：Caption屬性屬性：復(fù)選框旁邊的標(biāo)題文字：復(fù)選框旁邊的標(biāo)題文字value屬性：屬性：表示該按鈕是否被選中。表示該按鈕是否被選中。 0默認設(shè)置，未選中狀態(tài)默認設(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嚴選文書復(fù)選按鈕程序示例42嚴選文書