第三章 分支結(jié)構(gòu)和部分常用控件

第三章分支結(jié)構(gòu)和局部常用控件運(yùn)算符和表達(dá)式一.運(yùn)算符1.算術(shù)運(yùn)算符例：5+2*10mod10\9/3+2^2結(jié)果：112.字符串運(yùn)算符與字符串表達(dá)式字符串運(yùn)算符有：＆、+。功能是字符串連接例如："ABCD"+"EFGHI"'結(jié)果為：ABCDEFGHI“VB〞&“程序設(shè)計(jì)教程〞'結(jié)果為：VB程序設(shè)計(jì)教程說(shuō)明：當(dāng)連接符兩旁的操作量都為字符串時(shí)，上述兩個(gè)連接符等價(jià)。它們區(qū)別是：+〔連接運(yùn)算〕：兩個(gè)操作數(shù)均應(yīng)為字符串類型；&〔連接運(yùn)算〕：兩個(gè)操作數(shù)既可為字符型也可為數(shù)值型，當(dāng)是數(shù)值型時(shí)，系統(tǒng)自動(dòng)先將其轉(zhuǎn)換為數(shù)字字符，然后進(jìn)行連接操作。例："100"+123'結(jié)果為223"100"+"123"'結(jié)果為100123"Abc"+123'出錯(cuò)"100"&123'結(jié)果為100123100&123'結(jié)果為100123"Abc"&"123"'結(jié)果為Abc123"Abc"&123'結(jié)果為Abc123注意：使用運(yùn)算符“&〞時(shí)，變量與運(yùn)算符“&〞之間應(yīng)加一個(gè)空格。這是因?yàn)榉?hào)“&〞還是長(zhǎng)整型的類型定義符，如果變量與符號(hào)“&〞接在一起，VB系統(tǒng)先把它作為類型定義符處理，因而就會(huì)出現(xiàn)語(yǔ)法錯(cuò)誤。3.1關(guān)系運(yùn)算符和邏輯運(yùn)算符1.關(guān)系運(yùn)算符和關(guān)系表達(dá)式比較兩個(gè)運(yùn)算量之間的關(guān)系，關(guān)系表達(dá)式的運(yùn)算結(jié)果為邏輯量。假設(shè)關(guān)系成立，結(jié)果為T(mén)rue，假設(shè)關(guān)系不成立，結(jié)果為False。VB中的關(guān)系運(yùn)算符如下表所示運(yùn)算符含義優(yōu)先級(jí)實(shí)例結(jié)果<小于所有關(guān)系運(yùn)算優(yōu)先級(jí)相同。低于算術(shù)運(yùn)算的加“+”，減“-”運(yùn)算，高于邏輯非“Not”運(yùn)算。15+10<20False<=小于或等于10<=20True>大于10>20False>=大于或等于"This">="That"True=等于"This"="That"False<>不等于"This"<>"That"TrueLike字符串匹配"This"Like"*is"TrueIs對(duì)象比較

關(guān)系運(yùn)算的規(guī)那么如下：〔1〕當(dāng)兩個(gè)操作式均為數(shù)值型，按數(shù)值大小比較?！?〕字符串比較,那么按字符的ASCII碼值從左到右一一比較,直到出現(xiàn)不同的字符為止.。例："ABCDE">"ABRA" 結(jié)果為False〔3〕數(shù)值型與可轉(zhuǎn)換為數(shù)值型的數(shù)據(jù)比較，如：29>"189"，按數(shù)值比較，結(jié)果為False?！?〕數(shù)值型與不能轉(zhuǎn)換成數(shù)值型的字符型比較，如：77>"sdcd"，不能比較，系統(tǒng)出錯(cuò)。2.邏輯運(yùn)算符和邏輯表達(dá)式邏輯運(yùn)算符：Not，And，OrXor說(shuō)明：〔1〕邏輯運(yùn)算符的優(yōu)先級(jí)不相同，Not〔邏輯非〕最高，但它低于關(guān)系運(yùn)算?！?〕VB中常用的邏輯運(yùn)算符是Not、And和Or。它們用于將多個(gè)關(guān)系表達(dá)式進(jìn)行邏輯判斷。例如：數(shù)學(xué)上表示某個(gè)數(shù)在某個(gè)區(qū)域時(shí)用表達(dá)式：10≤X<20用VB程序中應(yīng)寫(xiě)成：X>=10AndX<20如果寫(xiě)成如下形式將是錯(cuò)誤的：10<=x<20或10<=xOrx<20例：用人單位招聘秘書(shū)：年齡小于40歲，女性，學(xué)歷?？苹虮究疲簩?xiě)成條件VB的表達(dá)式：年齡<=39性別=“女〞學(xué)歷=“?？屁晫W(xué)歷=“本科〞andandor〔〕實(shí)例3.1窗體中有8個(gè)標(biāo)簽和3個(gè)命令按鈕，界面設(shè)計(jì)如圖。程序運(yùn)行時(shí)，單擊“重置〞命令按鈕，產(chǎn)生3個(gè)[0,19]之間的隨機(jī)整數(shù)A，B，C，并顯示在相應(yīng)的標(biāo)簽上，單擊“A大于等于C？〞命令按鈕和“B不等于C？〞命令按鈕進(jìn)行數(shù)據(jù)比較，并將結(jié)果顯示在相應(yīng)的標(biāo)簽上。實(shí)例3.2窗體中有2個(gè)標(biāo)簽，一個(gè)文本框，一個(gè)命令按鈕，界面設(shè)計(jì)如以下圖。程序運(yùn)行時(shí)，在文本框中輸入某一年份，單擊“是閏年嗎？〞命令按鈕進(jìn)行判斷，并將結(jié)果顯示在相應(yīng)的標(biāo)簽上。3.2用If語(yǔ)句實(shí)現(xiàn)分支結(jié)構(gòu)1.If…Then語(yǔ)句(單分支結(jié)構(gòu))If<表達(dá)式>Then語(yǔ)句塊EndIf或If<表達(dá)式>Then<語(yǔ)句>

例:兩個(gè)數(shù)x和y，比較它們的大小，使得x大于y.Ifx<yThent=x:x=y:y=tEndIf或Ifx<yThent=x:x=y:y=t2.If…Then…Else語(yǔ)句(雙分支結(jié)構(gòu))

If<表達(dá)式>Then<語(yǔ)句塊1>Else<語(yǔ)句塊2>EndIf

If<表達(dá)式>Then<語(yǔ)句1>Else<語(yǔ)句2>

例如：輸出x,y兩個(gè)中值較大的一個(gè)值。IFX>YThenPrintXElsePrintYEndIf也可以寫(xiě)成如下的單行形式：IFX>YThenPrintXElsePrintY3.If…Then…ElseIf語(yǔ)句(多分支結(jié)構(gòu))

形式:If<表達(dá)式1>Then <語(yǔ)句塊1> ElseIf<表達(dá)式2>Then <語(yǔ)句塊2> … [Else 語(yǔ)句塊n+1] EndIf例：輸入一學(xué)生成績(jī)，評(píng)定其等級(jí)。方法是：90~100分為“優(yōu)秀〞，80~89分為“良好〞，70~79分為“中等〞，60~69分為“及格〞，60分以為“不合格〞使用IF語(yǔ)句實(shí)現(xiàn)的程序段如下：Ifx>=90thenPrint"優(yōu)秀"ElseIfx>=80ThenPrint"良好"ElseIfx>=70ThenPrint"中等"ElseIfx>=60ThenPrint"及格"ElsePrint"不及格"EndIf實(shí)例3.3窗體中有兩個(gè)文本框，4個(gè)標(biāo)簽和一個(gè)命令按鈕，界面設(shè)計(jì)如圖。程序運(yùn)行時(shí)，在文本框中輸入平時(shí)成績(jī)和考試成績(jī)，單擊“計(jì)算〞命令按鈕，計(jì)算總評(píng)成績(jī)，并將成績(jī)顯示在相應(yīng)的標(biāo)簽上，同時(shí)，當(dāng)總評(píng)成績(jī)小于60時(shí)，文字顏色為紅色。計(jì)算公式為：總評(píng)成績(jī)=平時(shí)成績(jī)*30%+考試成績(jī)*70%。實(shí)例3.4窗體有3個(gè)文本框，5個(gè)標(biāo)簽，1個(gè)命令按鈕，界面設(shè)計(jì)如圖。程序運(yùn)行時(shí)，在文本框中分別輸入三角形的3條邊長(zhǎng)，單擊“面積〞命令按鈕，根據(jù)輸入，判斷能否構(gòu)成三角形，假設(shè)能，計(jì)算出三角形面積，并將結(jié)果顯示在標(biāo)簽上。假設(shè)不能，在標(biāo)簽中顯示“不能構(gòu)成三角形〞實(shí)例3.5制作一個(gè)滾動(dòng)字幕。窗體中有1個(gè)標(biāo)簽，一個(gè)計(jì)時(shí)器和一個(gè)命令按鈕，字幕文字顯示在標(biāo)簽上，界面設(shè)計(jì)如圖。程序運(yùn)行時(shí)，窗體載入一副背景圖，單擊〞移動(dòng)“命令按鈕，該按鈕的標(biāo)題變?yōu)楱曂Ｖ埂?，字幕逐漸向左移動(dòng)，直至整個(gè)字幕從窗體左側(cè)移出后，再?gòu)拇绑w右側(cè)進(jìn)入，一次方式循環(huán)滾動(dòng)顯示。單擊〞停止“命令按鈕，字幕停止移動(dòng)，同時(shí)，命令按鈕的標(biāo)題恢復(fù)為〞移動(dòng)“。3.3.2單項(xiàng)選擇按鈕和框架3.3.2.1單項(xiàng)選擇框1.用途選擇類控件。單項(xiàng)選擇按鈕是多項(xiàng)選擇一，只能在多個(gè)選項(xiàng)中選一個(gè)，各選項(xiàng)間的關(guān)系是互斥的。因此，經(jīng)常將單項(xiàng)選擇按鈕放在一個(gè)框架中構(gòu)成一個(gè)選項(xiàng)組。2.常用屬性caption，alignment〔設(shè)置對(duì)齊方式〕,value〔表示單項(xiàng)選擇按鈕在執(zhí)行時(shí)的狀態(tài)〕3.常用方法和事件click事件實(shí)例3.6窗體中有1個(gè)標(biāo)簽和3個(gè)單項(xiàng)選擇按鈕，界面設(shè)計(jì)如圖。程序運(yùn)行時(shí)，根據(jù)用戶的選擇，在標(biāo)簽中顯示出相應(yīng)的信息。假設(shè)選中日期單項(xiàng)選擇按鈕，那么在標(biāo)簽中顯示今天的日期；假設(shè)選中時(shí)間單項(xiàng)選擇按鈕，那么在標(biāo)簽中顯示現(xiàn)在的事件；假設(shè)選中星期單項(xiàng)選擇按鈕，那么在標(biāo)簽中顯示出今天是星期幾。3.3.2.2框架Frame控件為控件提供可標(biāo)識(shí)的分組。它是一個(gè)容器控件。當(dāng)需要在同一窗體內(nèi)建立幾組互獨(dú)立的單項(xiàng)選擇鈕時(shí)，就需要用框架將每一組單項(xiàng)選擇鈕框框起來(lái)，把OptionButton控件分成幾組，如下形式?？蚣茉O(shè)Caption為"字體"重要屬性1. Caption屬性：框架標(biāo)題2 Enabled屬性：缺省為T(mén)rue False：標(biāo)題呈灰色，不允許對(duì)框架內(nèi)的所有對(duì)象進(jìn)行操作。3. Visible屬性： True：框架及其控件可見(jiàn)。 False：框架及其控件被隱含起來(lái)。事件：

框架可以響應(yīng)的事件Click、DblClick

一般不需要有關(guān)框架的事件過(guò)程。實(shí)例3.7窗體中有1個(gè)文本框，6個(gè)單項(xiàng)選擇按鈕，2個(gè)框架框和1個(gè)命令按鈕，且利用框架將單項(xiàng)選擇按鈕分成2組，界面設(shè)計(jì)如圖。程序運(yùn)行時(shí)，在文本框中輸入文本信息，并進(jìn)行字體和字號(hào)的選擇后，單擊應(yīng)用命令按鈕，完成對(duì)文本框中文本的設(shè)置。3.2.3復(fù)選框檢查框〔CheckBox〕也稱作復(fù)選框、選擇框。一組檢查框控件可以提供多個(gè)選項(xiàng)，它們彼此獨(dú)立工作，所以用戶可以同時(shí)選擇任意多個(gè)選項(xiàng)，實(shí)現(xiàn)一種“不定項(xiàng)選擇〞的功能。選擇某一選項(xiàng)后，該控件將顯示√，而去除此選項(xiàng)后，√消失。檢查框被選中2.重要屬性Caption、Alignment、Style與單項(xiàng)選擇鈕相同檢查框的Value屬性與單項(xiàng)選擇按鈕不同，其值為數(shù)值型數(shù)據(jù)，可取0,1,2檢查框與單項(xiàng)選擇按鈕Value屬性的比較

檢查框0--Unchecked：未被選定1--Checked：選定2--Grayed：灰色，禁止選擇

單選鈕True:單選鈕被選定False:單選鈕未被選定，

3.事件Click事件是檢查框控件最根本的事件。用戶一般無(wú)需為檢查框編寫(xiě)Click事件過(guò)程，但其對(duì)Value屬性值的改變遵循以下規(guī)那么：檢查框被選中時(shí)，Value屬性值變?yōu)?；檢查框未被選中時(shí)，Value屬性值變?yōu)?；實(shí)例3.8窗體中有1個(gè)標(biāo)簽，2個(gè)復(fù)選框和一個(gè)計(jì)時(shí)器。界面設(shè)計(jì)如圖。程序運(yùn)行時(shí)，單擊加粗復(fù)選框設(shè)置/取消標(biāo)簽中的文字的粗體效果；單擊變色復(fù)選框，設(shè)置/取消標(biāo)簽中文字的隨機(jī)變色效果。3.2.4直線和形狀控件1.直線〔line〕---用來(lái)在窗體，框架或圖片框中創(chuàng)立簡(jiǎn)單的線段。常用屬性：bordercolor〔設(shè)置直線顏色〕，borderstyle〔返回設(shè)置對(duì)象的邊框樣式〕0：透明1：實(shí)線2：虛線3：點(diǎn)線4：點(diǎn)劃線5：雙點(diǎn)劃線6：內(nèi)實(shí)線borderwidth〔返回設(shè)置控件的邊框?qū)挾取砐1，Y1屬性，返回設(shè)置線條控件的起始點(diǎn)。X2，Y2屬性，返回設(shè)置線條控件的終止點(diǎn)。2.形狀---在窗體，框架或圖片框中創(chuàng)立矩形，正方形，橢圓形，圓形，圓角矩形或圓角正方形。常用屬性：fillcolor，設(shè)置填充形狀的顏色。fillstyle,設(shè)置一個(gè)形狀的填充樣式。shape，用來(lái)設(shè)置形狀控件的形狀。0：矩形，默認(rèn)1：正方形2：橢圓3：圓4：圓角矩形5：圓角正方形

實(shí)例3.9窗體中有1個(gè)形狀控件，1個(gè)直線控件，1個(gè)計(jì)時(shí)器和1個(gè)圖像框，界面設(shè)計(jì)如圖。程序運(yùn)行時(shí)，圖像框不課件，單擊窗體，小球向右上方移動(dòng)，且縮小，小球下面的托班隨之也想有移動(dòng)；當(dāng)小球變得很小時(shí)〔直徑小于50〕，停止整個(gè)移動(dòng)過(guò)程，同時(shí)，隱藏小球，并在相應(yīng)的位置處顯示出圖形。3.3用select-case語(yǔ)句實(shí)現(xiàn)分支形式：

SelectCase變量或表達(dá)式 Case表達(dá)式列表1 語(yǔ)句塊1 Case表達(dá)式列表2 語(yǔ)句塊2 … [CaseElse 語(yǔ)句塊n+1] EndSelect數(shù)值型或字符串表達(dá)式說(shuō)明：<表達(dá)式列表>：與<變量或表達(dá)式>同類型的下面四種形式之一：表達(dá)式A+5

一組枚舉表達(dá)式(用逗號(hào)分隔)

2,4,6,8

表達(dá)式1To表達(dá)式2

60to100 Is關(guān)系運(yùn)算符表達(dá)式

Is<60例如：使用selectcase…..語(yǔ)句來(lái)實(shí)現(xiàn)的程序段如下：SelectCasexCase90to100Print"優(yōu)秀"Case80to89Print"良好"Case70to79Print"中等"Case60to69Print"及格"CaseElsePrint"不及格"EndSelect3.4選擇結(jié)構(gòu)的嵌套下面是兩種正確的嵌套形式：〔1〕IF<條件1>Then…..IF<條件2>Then……Else…..EndIf….Else….IF<條件3>Then…..Else…..EndIf…..EndIF〔2〕IF<條件1>Then…..SelectCase…Case……IF<條件2>Then……Else