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

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

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

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

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

5、3.Text)x=h3600m60sText4.Text=“共有秒數(shù)：“&xEndSub下面，我們運用Textbox的屬性和方法，對本例進行完善。（1）將4個文本框的Alignment屬性設(shè)置為1RightJustify，Text屬性設(shè)為空，Text4的Locked屬性設(shè)置為True。（2）當輸入數(shù)據(jù)的文本框Text1、Text2、Text3獲得焦點時，選中其中的文本。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）當輸入數(shù)據(jù)的文本框中內(nèi)容發(fā)生

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