《程序流程有三種最基本的控制結(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頁(yè)珍藏版）》請(qǐng)?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è)過(guò)程中，程序通常是按在一個(gè)過(guò)程中，程序通常是按照由上而下的順序來(lái)執(zhí)行各個(gè)語(yǔ)照由上而下的順序來(lái)執(zhí)行各個(gè)語(yǔ)句的，直到整個(gè)過(guò)程結(jié)束。引入句的，直到整個(gè)過(guò)程結(jié)束。引入選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)，可以改變選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)，可以改變程序執(zhí)行的流程。程序執(zhí)行的流程。1嚴(yán)選文書(shū) 選擇程序結(jié)構(gòu)用于選擇程序結(jié)構(gòu)用于，根據(jù)，根據(jù)來(lái)控制程序的流程來(lái)控制程序的流程 本章主要內(nèi)容條件表達(dá)式條件表達(dá)式 關(guān)系表達(dá)式關(guān)系表達(dá)式 / 邏輯表達(dá)式邏輯表達(dá)式條件語(yǔ)句條件語(yǔ)句 If.Then / If.T

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

3、是同類(lèi)型的量或表達(dá)式 若不是，系統(tǒng)會(huì)自動(dòng)進(jìn)行強(qiáng)制類(lèi)型轉(zhuǎn)換若不是，系統(tǒng)會(huì)自動(dòng)進(jìn)行強(qiáng)制類(lèi)型轉(zhuǎn)換 “5”4 0(10)若判斷的結(jié)論是成立，則結(jié)果為邏輯真值若判斷的結(jié)論是成立，則結(jié)果為邏輯真值(True)，否則為邏輯假值否則為邏輯假值(False)True的值等于的值等于-1，F(xiàn)alse的值等于的值等于03嚴(yán)選文書(shū)關(guān)系運(yùn)算符運(yùn)算運(yùn)算符符名名 稱(chēng)稱(chēng)示示 例例說(shuō)說(shuō) 明明小于小于“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)選文書(shū)關(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)選文書(shū)關(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)選文書(shū)布爾運(yùn)算符符號(hào)：符號(hào)： NOT (邏輯非邏輯非) AND (邏輯與邏輯與) 即：并且，要同時(shí)成立即：并且，要同時(shí)成立 OR (邏輯或邏輯或) 即：或者，只要有一個(gè)成立即：或者，只要有一個(gè)成立適用的類(lèi)型和結(jié)果類(lèi)型：適用的類(lèi)型和結(jié)果類(lèi)型： 只適用于邏輯型數(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)選文書(shū)布爾表達(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)選文書(shū)布爾表達(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)選文書(shū)運(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) 先先 級(jí)級(jí) 依依 次次 降降 低低10嚴(yán)選文書(shū)運(yùn)算符的優(yōu)先順序練習(xí)11嚴(yán)選文書(shū)判斷閏年的科學(xué)依據(jù)地球公轉(zhuǎn)一周的時(shí)間為：地球公轉(zhuǎn)一周的時(shí)間為：每經(jīng)過(guò)每經(jīng)過(guò)4年，剩余的時(shí)間為：年，剩余的時(shí)間為：則每則每4年都要多加年都要多加每經(jīng)過(guò)每經(jīng)過(guò)100年，就會(huì)多加年，就會(huì)多加比較接近一天，所以每到比較接近一天，所以每到100年，就將這多加的近似一天的時(shí)間減去，年，就將這多加的近似一天的時(shí)間減去，即停止追加一天

9、即停止追加一天而實(shí)際上又少加了而實(shí)際上又少加了每經(jīng)過(guò)每經(jīng)過(guò)400年，就會(huì)少加年，就會(huì)少加所以每過(guò)所以每過(guò)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)選文書(shū)選擇控制結(jié)構(gòu)選擇控制結(jié)構(gòu)又稱(chēng)分支結(jié)構(gòu)選擇控制結(jié)構(gòu)又稱(chēng)分支結(jié)構(gòu)它體現(xiàn)了程序運(yùn)行過(guò)程中的自我判斷能力它體現(xiàn)了程序運(yùn)行過(guò)程中的自我判斷能力程序可以根據(jù)當(dāng)前執(zhí)行的某個(gè)條件，進(jìn)行比較、判斷，并程序可以根據(jù)當(dāng)前執(zhí)行的某個(gè)條件，進(jìn)行比較、判斷，并依據(jù)判斷的結(jié)果（成立與否）來(lái)決定下一步做什么，不做什

10、依據(jù)判斷的結(jié)果（成立與否）來(lái)決定下一步做什么，不做什么（在兩條或多條程序路徑中選擇一條來(lái)執(zhí)行，即只執(zhí)行程么（在兩條或多條程序路徑中選擇一條來(lái)執(zhí)行，即只執(zhí)行程序中的一部分語(yǔ)句）序中的一部分語(yǔ)句）可見(jiàn)，在此結(jié)構(gòu)的可見(jiàn)，在此結(jié)構(gòu)的程序運(yùn)行過(guò)程中程序運(yùn)行過(guò)程中，有些語(yǔ)句會(huì)執(zhí)行一次，有些語(yǔ)句會(huì)執(zhí)行一次，有些語(yǔ)句有些語(yǔ)句在此次程序運(yùn)行過(guò)程中在此次程序運(yùn)行過(guò)程中沒(méi)有機(jī)會(huì)執(zhí)行。即：沒(méi)有機(jī)會(huì)執(zhí)行。即：“無(wú)論無(wú)論分支多寡，必選其一；縱然分支眾多，僅選其一分支多寡，必選其一；縱然分支眾多，僅選其一”VBVB中的選擇語(yǔ)句有：中的選擇語(yǔ)句有： 雙分支語(yǔ)句雙分支語(yǔ)句 多分支語(yǔ)句多分支語(yǔ)句(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)選文書(shū)選擇結(jié)構(gòu)(IF-THEN)語(yǔ)句格式：語(yǔ)句格式：IF IF THEN THEN 條件條件N語(yǔ)句序列語(yǔ)句序列下一語(yǔ)句下一語(yǔ)句Y執(zhí)行過(guò)程：執(zhí)行過(guò)程：判斷給定的條件判斷給定的條件如果成立如果成立( (其值為其值為T(mén)rue),True),執(zhí)行所給語(yǔ)執(zhí)行所給語(yǔ)句序列，然后執(zhí)行下一條語(yǔ)句句序列，然后執(zhí)行下一條語(yǔ)句否則否則( (其值為其值為False)False)，跳過(guò)所給語(yǔ)句，跳過(guò)所給語(yǔ)句序列，直接執(zhí)行下一條語(yǔ)句序列，直

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

13、)條件條件命令序列命令序列1命令序列命令序列2下一語(yǔ)句下一語(yǔ)句N(xiāo)Y15嚴(yán)選文書(shū)(IF-THEN-ELSE)舉例例二：例二：根據(jù)用戶(hù)輸入的一個(gè)成績(jī)，判斷是否及格根據(jù)用戶(hù)輸入的一個(gè)成績(jī)，判斷是否及格例一：例一：輸入一個(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)選文書(shū)IIF函數(shù)的使用Dim x As SingleDim x As Singlex=Val(Text1.text)x=Val(Text1.text)”17嚴(yán)選文書(shū)語(yǔ)句格式：語(yǔ)句格式：IF IF THEN THEN 1ELSEELSE 2END IFEND IF執(zhí)行過(guò)程：執(zhí)行過(guò)程：判斷給定的條件判斷給定的條件如果成立如果成立( (其值為其值為T(mén)rue),True),執(zhí)行所給執(zhí)行所給y y語(yǔ)句序列語(yǔ)句序列1 1，然后執(zhí)行下一條語(yǔ)句，然后執(zhí)行下一條語(yǔ)句否則否則( (其值為其值為False)False)，執(zhí)行所給語(yǔ)，執(zhí)行所給語(yǔ)句序列句序列2 2，然后執(zhí)行下一條語(yǔ)句

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

16、 ELSE 3 END IF END IFEND IFEND IF說(shuō)明：說(shuō)明：如果在如果在IfIf語(yǔ)句的語(yǔ)句列語(yǔ)句的語(yǔ)句列1 1或語(yǔ)句列或語(yǔ)句列2 2中又有一個(gè)完整的中又有一個(gè)完整的IfIf語(yǔ)句，則稱(chēng)為語(yǔ)句，則稱(chēng)為IfIf語(yǔ)句的嵌套語(yǔ)句的嵌套IF語(yǔ)句的嵌套條件條件1語(yǔ)句列語(yǔ)句列1語(yǔ)句列語(yǔ)句列2下一語(yǔ)句下一語(yǔ)句N(xiāo)Y條件條件2YN語(yǔ)句列語(yǔ)句列321嚴(yán)選文書(shū)嵌套IF舉例用戶(hù)輸入一個(gè)數(shù)，如果是正數(shù)，打印是個(gè)正數(shù)；用戶(hù)輸入一個(gè)數(shù)，如果是正數(shù)，打印是個(gè)正數(shù)；如果是如果是0 0，打印是個(gè)零；如果是負(fù)數(shù)，打印是負(fù)數(shù)，打印是個(gè)零；如果是負(fù)數(shù)，打印是負(fù)數(shù)X0是個(gè)是個(gè)正數(shù)正數(shù)是零是零下一語(yǔ)下一語(yǔ)句句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)選文書(shū)嵌套IF舉例用戶(hù)輸入一元二次方程的系數(shù)，用戶(hù)判斷解的情況用戶(hù)輸入一元二次方程的系數(shù)，用戶(hù)判斷解的情況0有兩個(gè)不相有兩個(gè)不相同的實(shí)根同的實(shí)根有兩個(gè)相同有兩個(gè)相同的實(shí)根的實(shí)根下一語(yǔ)下一語(yǔ)句句0YN沒(méi)有實(shí)沒(méi)有實(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 = 沒(méi)有實(shí)數(shù)解沒(méi)有實(shí)數(shù)解 End IfEnd If23嚴(yán)選文書(shū)嵌套IF舉例用戶(hù)輸入一個(gè)成績(jī)，用戶(hù)輸入一個(gè)成績(jī)，若在若在9090到到100100之間，打印優(yōu)秀；之間，打印優(yōu)秀；若在若在8080到到8989之間，打印良好；之間，打印良好；若在若在7070到到7979之間，打印一般；之間，打印一般；若在若在6060到到6969之間，打印及

19、格；之間，打印及格；若在若在6060以下，打印不及格；以下，打印不及格；其它情況，打印輸入有誤其它情況，打印輸入有誤24嚴(yán)選文書(shū)語(yǔ)句格式：語(yǔ)句格式：IF IF THEN 1 THEN 1ELSEIF ELSEIF THEN 2 THEN 2ELSEELSE 其他語(yǔ)句列其他語(yǔ)句列END IFEND IF說(shuō)明：說(shuō)明：IF語(yǔ)句的嵌套格式ELSEIF條件條件1條件條件n語(yǔ)句列語(yǔ)句列1語(yǔ)句列語(yǔ)句列n其他語(yǔ)句列其他語(yǔ)句列下一語(yǔ)句下一語(yǔ)句YYNN25嚴(yán)選文書(shū)嵌套ELSEIF舉例用戶(hù)輸入一個(gè)數(shù)，如果是正數(shù)，打印是個(gè)正數(shù)；用戶(hù)輸入一個(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)選文書(shū)嵌套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用戶(hù)輸入一個(gè)成績(jī)，用戶(hù)輸入一個(gè)成績(jī)，若在若在9090到到100100之間，打印優(yōu)秀；之間，打印優(yōu)秀；若在若在8080到到8989之間，打印良好；之間，打印良好；若在若在7070到到7979之間，打印一般；之間，打印一般；若在若在6060到到6969之間，打印及格；之間，打印及格；若在若在6060以下，打印不及格；其以下，打印不及格；其它情況，打印輸入有誤它情況，打印輸入有誤27嚴(yán)選文書(shū)多分支語(yǔ)句 當(dāng)判斷條件較多時(shí)，如果采用當(dāng)判斷條件較多時(shí)，如果采用IF語(yǔ)句來(lái)設(shè)計(jì)程序，會(huì)出現(xiàn)各方語(yǔ)句來(lái)設(shè)計(jì)程序，會(huì)出現(xiàn)各方面的麻

23、煩；而多分支語(yǔ)句可以利用格式中的多個(gè)條件來(lái)判斷與執(zhí)面的麻煩；而多分支語(yǔ)句可以利用格式中的多個(gè)條件來(lái)判斷與執(zhí)行，效率較高行，效率較高語(yǔ)句格式：語(yǔ)句格式：SELECT CASE SELECT CASE CASE CASE 11 CASE CASE 22 CASE ElSE CASE ElSE END SELECTEND SELECT說(shuō)明：說(shuō)明：P83P83條件條件1條件條件n語(yǔ)句列語(yǔ)句列1語(yǔ)句列語(yǔ)句列n其他語(yǔ)句列其他語(yǔ)句列下一語(yǔ)句下一語(yǔ)句YYNN28嚴(yán)選文書(shū)多分支語(yǔ)句舉例用戶(hù)輸入一個(gè)數(shù)，如果是正數(shù)，打印是個(gè)正數(shù)；如果是用戶(hù)輸入一個(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)選文書(shū)多分支語(yǔ)句舉例用戶(hù)輸入一個(gè)成績(jī)，用戶(hù)輸入一個(gè)成績(jī)，若在若在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)選文書(shū)多分支語(yǔ)句舉例用戶(hù)輸入一個(gè)年份和月份，用戶(hù)輸入一個(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)選文書(shū)滾動(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、書(shū)滾動(dòng)條程序示例Private Sub HScroll1_Scroll( )Text1.FontSize = HScroll1.ValueEnd Sub若改為滾動(dòng)條的若改為滾動(dòng)條的Change事件，效果會(huì)有什么變化？事件，效果會(huì)有什么變化？33嚴(yán)選文書(shū)使用計(jì)時(shí)器控件計(jì)時(shí)器計(jì)時(shí)器(Timer)(Timer)控件可以在程序運(yùn)行中控件可以在程序運(yùn)行中產(chǎn)生一個(gè)事件。這對(duì)不需要與用戶(hù)交互的代碼的產(chǎn)生一個(gè)事件。這對(duì)不需要與用戶(hù)交互的代碼的執(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í)則看不到則看不到，常用來(lái)做一些后臺(tái)處理。，常用來(lái)做

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

31、只要TimerTimer控件的控件的EnabledEnabled屬性被設(shè)置為屬性被設(shè)置為T(mén)rueTrue，而，而且且IntervalInterval屬性屬性00，則以則以IntervalInterval屬性指定的時(shí)屬性指定的時(shí)間間隔發(fā)生一次間間隔發(fā)生一次TimerTimer事件事件35嚴(yán)選文書(shū)設(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ū)設(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)選文書(shū)框架控件Frame框架控件是一個(gè)左上方有標(biāo)題文字的方框?？蚣芸丶且粋€(gè)左上方有標(biāo)題文字的方框。它是一個(gè)容器控件?？梢詫?duì)窗體上的控件它是一個(gè)容器控件?？梢詫?duì)窗體上的控件進(jìn)行視覺(jué)上

34、的分組。進(jìn)行視覺(jué)上的分組。在框架內(nèi)可以在框架內(nèi)可以控件，也可以將已控件，也可以將已有控件有控件到框架內(nèi)到框架內(nèi)框架可以提供總體的激活和屏蔽框架可以提供總體的激活和屏蔽常用屬性有：常用屬性有：Name 框架的名稱(chēng)框架的名稱(chēng)Caption 框架上顯示的標(biāo)題文字框架上顯示的標(biāo)題文字Visual 運(yùn)行后是否可見(jiàn)運(yùn)行后是否可見(jiàn)Enabled 框架和框架內(nèi)的所有控件是否屏蔽框架和框架內(nèi)的所有控件是否屏蔽38嚴(yán)選文書(shū)提供簡(jiǎn)單選擇的控件u選項(xiàng)按鈕（選項(xiàng)按鈕（Option Button）又稱(chēng)單選按鈕，選項(xiàng)按鈕總是作為）又稱(chē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)（問(wèn)題：在窗體上的是一組？在一個(gè)框架內(nèi)的是一組？）選項(xiàng)（問(wèn)題：在窗體上的是一組？在一個(gè)框架內(nèi)的是一組？）u常用屬性：常用屬性：Caption屬性：屬性： 單選按鈕旁邊的標(biāo)題文字單選按鈕旁邊的標(biāo)題文字value屬性：表示該按鈕是否被選中。選中為屬性：表示該按鈕是否被選中。選中為T(mén)rue,否則為否則為FalseAlignment屬性：?jiǎn)芜x按鈕標(biāo)題屬性：?jiǎn)芜x按鈕標(biāo)題 的對(duì)齊方式的對(duì)齊方式Styl

36、e屬性：表示控件的外觀（標(biāo)準(zhǔn)格式或圖形方式）屬性：表示控件的外觀（標(biāo)準(zhǔn)格式或圖形方式）可以將選項(xiàng)按鈕設(shè)計(jì)成可以將選項(xiàng)按鈕設(shè)計(jì)成圖形按鈕的形式，圖形按鈕的形式，將將Style改為改為1-Graphical(圖形方式圖形方式)，再依次修改其，再依次修改其Caption屬性屬性u(píng)單選按鈕使用最多的是單選按鈕使用最多的是click事件事件39嚴(yán)選文書(shū)單選按鈕程序示例40嚴(yán)選文書(shū)提供簡(jiǎ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)題文字的對(duì)齊方式：復(fù)選框旁邊的標(biāo)題文字的對(duì)齊方式Style屬性：屬性：表示控件的外觀（標(biāo)準(zhǔn)格式或圖形方式）表示控件的外觀（標(biāo)準(zhǔn)格式或圖形方式）u復(fù)選框按鈕使用最多的是復(fù)選框按鈕使用最多的是click事件，在事件中需要對(duì)其事件，在事件中需要對(duì)其Value屬屬性值做判斷，從而根據(jù)用戶(hù)的選中狀態(tài)決定程序如何執(zhí)行性值做判斷，從而根據(jù)用戶(hù)的選中狀態(tài)決定程序如何執(zhí)行41嚴(yán)選文書(shū)復(fù)選按鈕程序示例42嚴(yán)選文書(shū)