第3章 程序控制結(jié)構(gòu)

1、第3章程序控制結(jié)構(gòu)程序控制結(jié)構(gòu)盡管VisualBasic已經(jīng)有了可視化和面向?qū)ο蟮某绦蛟O(shè)計(jì)方法，但在具體事件過(guò)程中，傳統(tǒng)的結(jié)構(gòu)化程序設(shè)計(jì)仍然要被使用。結(jié)構(gòu)化程序設(shè)計(jì)就是將程序的功能分為若干個(gè)相互獨(dú)立的模塊，分別實(shí)現(xiàn)。結(jié)構(gòu)化程序設(shè)計(jì)由3種基本控制結(jié)構(gòu)組成：順序結(jié)構(gòu)、選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)，它是程序設(shè)計(jì)的基礎(chǔ)。3.1順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)就是各語(yǔ)句按出現(xiàn)的先后次序從上到下依次執(zhí)行。一般的程序包括輸入、處理和輸出三個(gè)基本步驟。順

2、序結(jié)構(gòu)的語(yǔ)句主要是賦值語(yǔ)句、輸入輸出語(yǔ)句等。在VB中也有賦值語(yǔ)句；而輸入輸出可以通過(guò)文本框控件、標(biāo)簽控件、InputBox函數(shù)、MsgBox函數(shù)和過(guò)程等來(lái)實(shí)現(xiàn)。3.1.1賦值語(yǔ)句賦值語(yǔ)句賦值語(yǔ)句是程序設(shè)計(jì)中最基本的語(yǔ)句，用于將數(shù)據(jù)保存在一個(gè)變量或?qū)ο蟮膶傩灾?。格式如下：[LET]變量名＝表達(dá)式[LET]對(duì)象名.屬性名=表達(dá)式作用:將右邊表達(dá)式的值賦值給左邊的變量名或?qū)ο蟮膶傩?。可見賦值語(yǔ)句常見的兩個(gè)任務(wù)是給變量賦值和設(shè)定屬性。例如：sR

3、ate!=0.1sngRate為單精度變量，賦值0.1TextBox1.Text＝““清除文本框的內(nèi)容Text1.Text＝“歡迎使用VisualBasic6.0”文本框顯示字符串當(dāng)表達(dá)式的類型與變量的類型不一致時(shí)強(qiáng)制轉(zhuǎn)換成左邊的精度iA%=103iA中的結(jié)果為3當(dāng)賦值號(hào)兩端類型或精度不一致時(shí)，系統(tǒng)會(huì)將表達(dá)式的結(jié)果自動(dòng)轉(zhuǎn)換成變量的類型或精度，然后再賦給左邊的變量。當(dāng)字符串型與數(shù)值型數(shù)據(jù)相互賦值時(shí)，字符串必須均為有效字符組成。例如：n%=

4、3.5‘n為整型變量，轉(zhuǎn)換時(shí)四舍五入，n中的結(jié)果為4n%=”123”‘n中的結(jié)果是123，與n%=Val(“123”)效果相同n%=”1a23”‘出現(xiàn)“類型不匹配”的錯(cuò)誤說(shuō)明：(1)賦值號(hào)“=”與關(guān)系運(yùn)算符“=”的表示相同，但不要混淆。VB系統(tǒng)會(huì)根據(jù)所處的位置自動(dòng)判斷是何種意義的符號(hào)。例如：PrivateSubComm1_Click()Dimhmsxh=Val(Text1.Text)m=Val(Text2.Text)s=Val(Text

5、3.Text)x=h3600m60sText4.Text=“共有秒數(shù)：“&xEndSub下面，我們運(yùn)用Textbox的屬性和方法，對(duì)本例進(jìn)行完善。（1）將4個(gè)文本框的Alignment屬性設(shè)置為1RightJustify，Text屬性設(shè)為空，Text4的Locked屬性設(shè)置為True。（2）當(dāng)輸入數(shù)據(jù)的文本框Text1、Text2、Text3獲得焦點(diǎn)時(shí)，選中其中的文本。PrivateSubText1_GotFocus()Text1.Se

6、lStart=0Text1.SelLength=Len(Text1.Text)EndSubPrivateSubText2_GotFocus()Text2.SelStart=0Text2.SelLength=Len(Text2.Text)EndSubPrivateSubText3_GotFocus()Text3.SelStart=0Text3.SelLength=Len(Text3.Text)EndSub（3）當(dāng)輸入數(shù)據(jù)的文本框中內(nèi)容發(fā)生

7、改變時(shí)，清除文本框Text4的內(nèi)容。PrivateSubText1_Change()Text4.Text=““EndSubPrivateSubText2_Change()Text4.Text=““EndSubPrivateSubText3_Change()Text4.Text=““EndSub（4）單擊“清除”按鈕，清除所有文本框的內(nèi)容，并將焦點(diǎn)定位于文本框Text1.（5）按Tab鍵時(shí)，控件獲得焦點(diǎn)的順序依次為Text1、Text2、