VB程序設(shè)計(jì)第3版第4章

1、第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)1第第4 4章章順序結(jié)構(gòu)順序結(jié)構(gòu)程序設(shè)計(jì)程序設(shè)計(jì)本章要點(diǎn)本章要點(diǎn):賦值語(yǔ)句賦值語(yǔ)句數(shù)據(jù)輸入數(shù)據(jù)輸入數(shù)據(jù)輸出數(shù)據(jù)輸出注釋、暫停與程序結(jié)束語(yǔ)句注釋、暫停與程序結(jié)束語(yǔ)句第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)2順序結(jié)構(gòu)順序結(jié)構(gòu): 按語(yǔ)句出現(xiàn)的先后次序執(zhí)行。即按語(yǔ)句出現(xiàn)的先后次序執(zhí)行。即 按從上到下，從左到右的次序執(zhí)行。按從上到下，從左到右的次序執(zhí)行。例例: 計(jì)算圓柱體的底面積、側(cè)面積和體積。計(jì)算圓柱體的底面積、側(cè)面積和體積。 Const pi = 3.14 Dim R As Single, H As Single Dim A As Single,

2、B As Single, C As Single R = Val(T1.Text) : H = Val(T2.Text) A=pi*r2 : B=2*pi*r*h : C=pi*r2 * h T4.Text = Format(A, 0.00) T5.Text = Format(B, 0.00) T6.Text = Format(C, 0.00)第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)3設(shè)計(jì)思路：設(shè)計(jì)思路：輸輸入入計(jì)算、處理計(jì)算、處理輸輸出出第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)44.1 賦值語(yǔ)句賦值語(yǔ)句1. 格式格式 變量名變量名= =表達(dá)式表達(dá)式 或或: 對(duì)象名對(duì)象名.屬性名屬

3、性名= =表達(dá)式表達(dá)式2. 功能功能 計(jì)算表達(dá)式的值計(jì)算表達(dá)式的值,再將此值賦給變量或?qū)υ賹⒋酥蒂x給變量或?qū)ο蟮膶傩?。象的屬性。例如：例如：A=pi*r2 T4.Text = Format(A, 0.00)第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)53. 說(shuō)明說(shuō)明(1) 變量名變量名: 應(yīng)符合應(yīng)符合VB變量命名約定。變量命名約定。(2) 表達(dá)式表達(dá)式: 常量、變量、表達(dá)式、屬性。常量、變量、表達(dá)式、屬性。(3) 對(duì)象名對(duì)象名: 缺省時(shí)為當(dāng)前窗體。缺省時(shí)為當(dāng)前窗體。(4) 賦值號(hào)賦值號(hào)“=”: 與數(shù)學(xué)中的等號(hào)意義不同與數(shù)學(xué)中的等號(hào)意義不同。 例例: X=X+1(5) 賦值號(hào)左邊必須是變量或?qū)?/p>

4、象屬性。賦值號(hào)左邊必須是變量或?qū)ο髮傩浴?例例: X=1 MyStr=Good Morning Command1.Caption=確定確定 X+1=X 錯(cuò)誤錯(cuò)誤,賦值號(hào)左邊是表達(dá)式賦值號(hào)左邊是表達(dá)式 Y=5 正確正確 5=Y 錯(cuò)誤，賦值號(hào)左邊是常量錯(cuò)誤，賦值號(hào)左邊是常量第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)6(6) 變量名或?qū)ο髮傩悦念愋蛻?yīng)與表達(dá)式變量名或?qū)ο髮傩悦念愋蛻?yīng)與表達(dá)式類型相容。類型相容。 類型類型相容相容：指變量名或?qū)ο髮傩悦軌蛘褐缸兞棵驅(qū)ο髮傩悦軌蛘_存取賦值號(hào)右邊的表達(dá)式的值確存取賦值號(hào)右邊的表達(dá)式的值。例如：。例如：數(shù)字字符串和數(shù)值型數(shù)據(jù)之間數(shù)字字符串和數(shù)

5、值型數(shù)據(jù)之間各種數(shù)值型數(shù)據(jù)之間各種數(shù)值型數(shù)據(jù)之間例：例：R = Val(T1.Text) H = T2.Text Area = 2*3.14*R*H T4.Text = Format(A, 0.00) T5.Text = Format(B, 0.00) T6.Text = Format(C, 0.00)如果去掉如果去掉Val, 接收數(shù)字字符串接收數(shù)字字符串接收數(shù)值型數(shù)據(jù)接收數(shù)值型數(shù)據(jù)第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)7(7) 變量未賦值時(shí)，數(shù)值型變量值為變量未賦值時(shí)，數(shù)值型變量值為0，字符，字符串變量值為空串串變量值為空串。(8) 給可變類型的變量賦值后，變量的類型給可變類型的變量

6、賦值后，變量的類型為賦值號(hào)右邊表達(dá)式的類型。為賦值號(hào)右邊表達(dá)式的類型。例例: 執(zhí)行下列各賦值語(yǔ)句后，執(zhí)行下列各賦值語(yǔ)句后，A的數(shù)據(jù)類型的數(shù)據(jù)類型是什么？是什么？ (設(shè)設(shè)A沒有定義數(shù)據(jù)類型沒有定義數(shù)據(jù)類型) A = 6 = 5 A = 5 + 3 A = 5+3 A = #11/26/99# A = #11/26/1999# A = Not 5 8可用可用TypeName函數(shù)顯函數(shù)顯示變量的數(shù)據(jù)類型。示變量的數(shù)據(jù)類型。如如:Print TypeName(A)第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)8【例【例4-1】設(shè)變量】設(shè)變量A中存放中存放5，變量，變量B中存放中存放8，交換兩個(gè)變量的值

7、，使變量，交換兩個(gè)變量的值，使變量A中存放中存放8，變量變量B中存放中存放5。 ABC代碼如下代碼如下: A = 5B = 8C = AA = BB = CC=AA=BB=C第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)94.2 數(shù)據(jù)輸入數(shù)據(jù)輸入 把數(shù)據(jù)或信息從某種外部設(shè)備（例如鍵把數(shù)據(jù)或信息從某種外部設(shè)備（例如鍵盤）盤）取取到內(nèi)存中到內(nèi)存中, ,稱為輸入。稱為輸入。直接賦值；直接賦值；輸入框輸入框(InputBox)；文本框文本框(TextBox)；輸入輸入第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)104.2.1 用用InputBox函數(shù)輸入數(shù)據(jù)函數(shù)輸入數(shù)據(jù)1. InputBox函數(shù)的格

8、式函數(shù)的格式 InputBox(提示信息提示信息,標(biāo)題標(biāo)題,默認(rèn)值默認(rèn)值)2. 功能功能 提示一對(duì)話框，等待用戶輸入正文或按下提示一對(duì)話框，等待用戶輸入正文或按下按鈕，并返回包含文本框內(nèi)容的字符串。按鈕，并返回包含文本框內(nèi)容的字符串。3. 說(shuō)明說(shuō)明 提示信息提示信息: 字符串表達(dá)式。字符串表達(dá)式。 可用可用Chr(13)、Chr(10)、 Chr(13) & Chr(10)、vbCrLf換行。換行。標(biāo)題標(biāo)題: 字符串表達(dá)式字符串表達(dá)式,缺省為當(dāng)前工程名缺省為當(dāng)前工程名默認(rèn)值默認(rèn)值: 字符串表達(dá)式字符串表達(dá)式,省略時(shí)默認(rèn)為空省略時(shí)默認(rèn)為空返回值返回值: 字符串字符串第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)

9、順序結(jié)構(gòu)程序設(shè)計(jì)11例例:r = Val(InputBox(請(qǐng)輸入半徑請(qǐng)輸入半徑)h = Val(InputBox(請(qǐng)輸入高請(qǐng)輸入高)或：或：r = Val(InputBox(請(qǐng)輸入半徑請(qǐng)輸入半徑, 計(jì)算底面計(jì)算底面積、側(cè)面積、體積積、側(cè)面積、體積, 1)h = Val(InputBox(請(qǐng)輸入高請(qǐng)輸入高, 計(jì)算底面積、計(jì)算底面積、側(cè)面積、體積側(cè)面積、體積, 1)第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)12 用文本框輸入數(shù)據(jù)時(shí)，也就是將文本框用文本框輸入數(shù)據(jù)時(shí)，也就是將文本框的的Text屬性的內(nèi)容賦值給某個(gè)變量。屬性的內(nèi)容賦值給某個(gè)變量。 例：例：將文本框?qū)⑽谋究騎ext1中輸入的字符串

10、賦給中輸入的字符串賦給字符串變量字符串變量Mystr Dim MyStr As String MyStr = Text1.Text 例：例：將文本框?qū)⑽谋究騎ext1中輸入的字符串作為中輸入的字符串作為數(shù)值賦給單精度型變量數(shù)值賦給單精度型變量 Dim r As Single r = Val(Text1.Text)4.2.2 用用TextBox控件輸入數(shù)據(jù)控件輸入數(shù)據(jù)第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)131. 焦點(diǎn)焦點(diǎn) 當(dāng)前可以接收用戶輸入的對(duì)象稱為具有當(dāng)前可以接收用戶輸入的對(duì)象稱為具有焦點(diǎn)。焦點(diǎn)。 注意注意: 并非所有控件都可以接收焦點(diǎn)。而并非所有控件都可以接收焦點(diǎn)。而且且, 只有

11、當(dāng)控件的只有當(dāng)控件的Enabled和和Visible屬性為屬性為True時(shí)，才可以接收焦點(diǎn)。時(shí)，才可以接收焦點(diǎn)。2. 事件事件 GotFocus 發(fā)生在對(duì)象得到焦點(diǎn)時(shí)發(fā)生在對(duì)象得到焦點(diǎn)時(shí) LostFocus 發(fā)生在對(duì)象失去焦點(diǎn)時(shí)發(fā)生在對(duì)象失去焦點(diǎn)時(shí)4.2.3 焦點(diǎn)和焦點(diǎn)和Tab鍵序鍵序第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)143. 對(duì)象何時(shí)得到焦點(diǎn)對(duì)象何時(shí)得到焦點(diǎn)運(yùn)行時(shí)用運(yùn)行時(shí)用Tab鍵移動(dòng)、用訪問(wèn)鍵或用鼠標(biāo)鍵移動(dòng)、用訪問(wèn)鍵或用鼠標(biāo)單擊選擇該對(duì)象。單擊選擇該對(duì)象。在代碼中對(duì)該對(duì)象使用在代碼中對(duì)該對(duì)象使用SetFocus方法。方法。4. 對(duì)象何時(shí)失去焦點(diǎn)對(duì)象何時(shí)失去焦點(diǎn)運(yùn)行時(shí)用運(yùn)行時(shí)用T

12、ab鍵移動(dòng)、用訪問(wèn)鍵或用鼠標(biāo)鍵移動(dòng)、用訪問(wèn)鍵或用鼠標(biāo)單擊選擇另一個(gè)對(duì)象。單擊選擇另一個(gè)對(duì)象。在代碼中對(duì)另一個(gè)對(duì)象使用在代碼中對(duì)另一個(gè)對(duì)象使用SetFocus方法方法改變焦點(diǎn)。改變焦點(diǎn)。第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)155. Tab鍵序鍵序指按指按Tab鍵時(shí)光標(biāo)在各個(gè)控件之間移動(dòng)的鍵時(shí)光標(biāo)在各個(gè)控件之間移動(dòng)的順序。順序。每個(gè)窗體都有自己的每個(gè)窗體都有自己的Tab鍵序。鍵序。默認(rèn)鍵序與控件的建立次序一致。默認(rèn)鍵序與控件的建立次序一致。TabIndex屬性屬性 決定決定Tab鍵序，改變?cè)搶傩钥梢愿淖冩I序，改變?cè)搶傩钥梢愿淖僒ab鍵鍵序序 。TabStop屬性屬性 決定是否能夠使用決定

13、是否能夠使用 Tab 鍵將焦點(diǎn)移動(dòng)到當(dāng)鍵將焦點(diǎn)移動(dòng)到當(dāng)前對(duì)象。前對(duì)象。第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)16【例【例4-2】設(shè)計(jì)如下圖所示的界面，運(yùn)行時(shí)，設(shè)計(jì)如下圖所示的界面，運(yùn)行時(shí)，輸入某學(xué)生三門課的成績(jī)，計(jì)算平均成績(jī)。輸入某學(xué)生三門課的成績(jī)，計(jì)算平均成績(jī)。按要求編程。按要求編程。要求：要求：n單擊單擊“計(jì)算計(jì)算”按鈕求平均成績(jī)；按鈕求平均成績(jī)；n當(dāng)輸入成績(jī)的文本框獲得焦點(diǎn)時(shí)，選中其中的文本；當(dāng)輸入成績(jī)的文本框獲得焦點(diǎn)時(shí)，選中其中的文本；n當(dāng)輸入成績(jī)的文本框內(nèi)容發(fā)生變化時(shí)，清除平均值；當(dāng)輸入成績(jī)的文本框內(nèi)容發(fā)生變化時(shí)，清除平均值；n單擊單擊“清除清除”按鈕清除所有內(nèi)容，將焦點(diǎn)定位

14、在按鈕清除所有內(nèi)容，將焦點(diǎn)定位在Text1中；中；n單擊單擊“退出退出”按鈕結(jié)束程序的運(yùn)行。按鈕結(jié)束程序的運(yùn)行。Text4Text1Text2Text3Command1Command2Command3設(shè)設(shè)Text4的的Locked屬性為屬性為True第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)17單擊單擊“計(jì)算計(jì)算”按鈕求平均成績(jī)按鈕求平均成績(jī) Private Sub Command1_Click() A = Val(Text1.Text) B = Val(Text2.Text) C = Val(Text3.Text) Text4.Text = (A + B + C) / 3 End Sub

15、第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)18當(dāng)輸入成績(jī)的文本框獲得焦點(diǎn)時(shí)當(dāng)輸入成績(jī)的文本框獲得焦點(diǎn)時(shí),選中其中選中其中的文本的文本 Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub Private Sub Text2_GotFocus() Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) End Sub Private Sub Text3_GotFocus() Text3.SelStart = 0 Tex

16、t3.SelLength = Len(Text3.Text) End Sub第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)19當(dāng)輸入成績(jī)的文本框內(nèi)容發(fā)生變化時(shí)當(dāng)輸入成績(jī)的文本框內(nèi)容發(fā)生變化時(shí),清除清除平均值平均值 Private Sub Text1_Change() Text4.Text = End Sub Private Sub Text2_Change() Text4.Text = End Sub Private Sub Text3_Change() Text4.Text = End Sub第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)20單擊單擊“清除清除”按鈕清除所有文本框的內(nèi)容，按鈕

17、清除所有文本框的內(nèi)容，并將焦點(diǎn)定位在文本框并將焦點(diǎn)定位在文本框Text1中。中。 Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text1.SetFocus End Sub單擊單擊“退出退出”按鈕結(jié)束程序的運(yùn)行。按鈕結(jié)束程序的運(yùn)行。 Private Sub Command3_Click() End End Sub第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)214.3 數(shù)據(jù)輸出數(shù)據(jù)輸出 對(duì)輸入的數(shù)據(jù)進(jìn)行加工后，往往需要將對(duì)輸入的數(shù)據(jù)進(jìn)行加工后，往往需要將處理結(jié)果、提示信息等呈現(xiàn)給

18、用戶，即輸處理結(jié)果、提示信息等呈現(xiàn)給用戶，即輸出。出。輸輸出出文本框文本框消息框消息框(MsgBox)Print方法方法標(biāo)簽標(biāo)簽第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)22用文本框輸出數(shù)據(jù)時(shí)，也就是將數(shù)據(jù)賦給用文本框輸出數(shù)據(jù)時(shí)，也就是將數(shù)據(jù)賦給文本框的文本框的Text屬性。屬性。 例：用文本框例：用文本框Text1輸出一個(gè)字符串輸出一個(gè)字符串 Text1.Text = hello文本框的文本框的Text屬性是字符串類型，因此如屬性是字符串類型，因此如果用文本框輸出數(shù)值型數(shù)據(jù)，需要首先將果用文本框輸出數(shù)值型數(shù)據(jù)，需要首先將該數(shù)據(jù)轉(zhuǎn)換成字符串類型。該數(shù)據(jù)轉(zhuǎn)換成字符串類型。 例：用文本框例：用

19、文本框Text1輸出一個(gè)數(shù)值型數(shù)據(jù)輸出一個(gè)數(shù)值型數(shù)據(jù) X = 3 : Y=5 Text1.Text = Str(X) Text2.Text=Format(X/Y,0.000)4.3.1 用用TextBox控件輸出數(shù)據(jù)控件輸出數(shù)據(jù)第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)23 如果需要用一個(gè)文本框輸出多個(gè)數(shù)據(jù)，如果需要用一個(gè)文本框輸出多個(gè)數(shù)據(jù)，需要將這些數(shù)據(jù)連接成一個(gè)字符串后再需要將這些數(shù)據(jù)連接成一個(gè)字符串后再對(duì)文本框賦值。對(duì)文本框賦值。例：用文本框例：用文本框Text1輸出兩個(gè)數(shù)據(jù)輸出兩個(gè)數(shù)據(jù) X = 3 5 Y = 7 4 Text1.Text = Str(X) & Str(Y) 或：或

20、： Text1.Text = Str(X) & vbCrLf & Str(Y)回車換行回車換行第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)24【例【例4-3】在在Text1中輸入任一英文字母，在中輸入任一英文字母，在Text2中顯示該英文字母及其中顯示該英文字母及其ASCII碼值。碼值。要求在文本框要求在文本框Text2中顯示出所有輸入的英中顯示出所有輸入的英文字母及其文字母及其ASCII碼值。碼值。Text1Text2Command1第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)25Private Sub Command1_Click() Dim Char As String * 1 Ch

21、ar = Trim(Text1.Text) Text2.Text = Text2.Text & Space(3) & _ Char & Space(10) & _ Str(Asc(Char) & vbCrLf Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End SubChr(13) & Chr(10)第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)264.3.2 用用Label控件輸出數(shù)據(jù)控件輸出數(shù)據(jù)用標(biāo)簽輸出數(shù)據(jù)時(shí)，也就是將數(shù)據(jù)賦給用標(biāo)簽輸出數(shù)據(jù)時(shí)，也就是將數(shù)據(jù)賦給標(biāo)簽的標(biāo)簽的Caption屬性。屬性。

22、例：用標(biāo)簽例：用標(biāo)簽Label1輸出一個(gè)字符串輸出一個(gè)字符串 Label1.Caption = hello標(biāo)簽的標(biāo)簽的Caption屬性是字符串類型，因此屬性是字符串類型，因此如果用標(biāo)簽輸出數(shù)值型數(shù)據(jù)，需要首先如果用標(biāo)簽輸出數(shù)值型數(shù)據(jù)，需要首先將該數(shù)據(jù)轉(zhuǎn)換成字符串類型。將該數(shù)據(jù)轉(zhuǎn)換成字符串類型。 例：用標(biāo)簽例：用標(biāo)簽Label1輸出一個(gè)數(shù)值型數(shù)據(jù)輸出一個(gè)數(shù)值型數(shù)據(jù) X = 3 5 Label1.Caption = Str(X) 第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)27如果需要用一個(gè)標(biāo)簽輸出多個(gè)數(shù)據(jù)，需要如果需要用一個(gè)標(biāo)簽輸出多個(gè)數(shù)據(jù)，需要將這些數(shù)據(jù)連接成一個(gè)字符串后再對(duì)標(biāo)簽將這些數(shù)據(jù)

23、連接成一個(gè)字符串后再對(duì)標(biāo)簽賦值。賦值。例：用標(biāo)簽例：用標(biāo)簽Label1輸出兩個(gè)數(shù)。輸出兩個(gè)數(shù)。 X = 3 5 y = 7 4 Label1.Caption = x= & Str(X) & _ y= & Str(y)或：或： Label1.Caption = x= & Str(X) & _ vbCrLf & y= & Str(y)第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)28*【例【例4-4】已知三角形的三條邊已知三角形的三條邊a、b、c的的長(zhǎng)度，用海倫公式求三角形的面積長(zhǎng)度，用海倫公式求三角形的面積S。海倫。海倫公式公式:設(shè)計(jì)界面：設(shè)計(jì)界面：Text1 Text2 Text3Label2

24、Command1)(21, )()(cbapcpbpappS 第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)29代碼如下：代碼如下：Private Sub Command1_Click() Dim A As Single, B As Single, C As Single Dim P As Single, S As Single A = Val(Text1.Text) B = Val(Text2.Text) C = Val(Text3.Text) P = (A + B + C) / 2 S = Sqr(P * (P - A) * (P - B) * (P - C) 顯示時(shí)保留兩位小數(shù)顯示時(shí)保留

25、兩位小數(shù) Label2.Caption = Format(S, 0.00) End Sub第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)30 MsgBox函數(shù)用于產(chǎn)生一個(gè)消息框。消函數(shù)用于產(chǎn)生一個(gè)消息框。消息框常用于在屏幕上顯示一個(gè)對(duì)話框，給息框常用于在屏幕上顯示一個(gè)對(duì)話框，給出一些提示或警告信息，并允許用戶進(jìn)行出一些提示或警告信息，并允許用戶進(jìn)行選擇。程序可根據(jù)該選擇確定進(jìn)一步的操選擇。程序可根據(jù)該選擇確定進(jìn)一步的操作。作。4.3.3 用用MsgBox函數(shù)輸出數(shù)據(jù)函數(shù)輸出數(shù)據(jù)例如：例如：第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)311. MsgBox函數(shù)的格式函數(shù)的格式 變量變量=Msg

26、Box(提示信息提示信息, ,按鈕類型按鈕類型,標(biāo)題標(biāo)題) 或：或： MsgBox 提示信息提示信息, ,按鈕類型按鈕類型,標(biāo)題標(biāo)題2. 功能功能 在對(duì)話框中顯示消息，等待用戶單擊按鈕，并返在對(duì)話框中顯示消息，等待用戶單擊按鈕，并返回一個(gè)整數(shù)告訴用戶單擊了哪個(gè)按鈕。回一個(gè)整數(shù)告訴用戶單擊了哪個(gè)按鈕。3.3.說(shuō)明說(shuō)明提示信息提示信息: 字符串表達(dá)式?？捎脫Q行符換行。字符串表達(dá)式?？捎脫Q行符換行。按鈕類型按鈕類型: 按鈕類型按鈕類型+圖標(biāo)類型圖標(biāo)類型+默認(rèn)按鈕默認(rèn)按鈕。P69標(biāo)題標(biāo)題: 字符串表達(dá)式。字符串表達(dá)式。返回值返回值: 由在對(duì)話框中按下哪種按鈕決定。見由在對(duì)話框中按下哪種按鈕決定。見P7

27、0第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)32例例: “提示信息提示信息” Private Sub Command1_Click() MsgBox 提示信息提示信息 End Sub例例: “提示信息提示信息”換行換行 Private Sub Command1_Click() MsgBox 第一行第一行 & Chr(13) & 第二行第二行 End Sub第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)33例例: “對(duì)話框標(biāo)題對(duì)話框標(biāo)題” Private Sub Command1_Click() A = MsgBox(提示信息提示信息, , 標(biāo)題內(nèi)容標(biāo)題內(nèi)容) End Sub例例: “按鈕類

28、型按鈕類型”0到到5或符號(hào)常量或符號(hào)常量 見見P69 Private Sub Command1_Click() A = MsgBox(提示信息提示信息, 1, 標(biāo)題內(nèi)容標(biāo)題內(nèi)容) End Sub第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)34例例: 圖標(biāo)類型圖標(biāo)類型16、32、48、64或符號(hào)常量或符號(hào)常量 見見P69 Private Sub Command1_Click() A = MsgBox(提示信息提示信息, 16, 標(biāo)題內(nèi)容標(biāo)題內(nèi)容) End Sub例例: 默認(rèn)按鈕默認(rèn)按鈕0,256,512 見見P69 Private Sub Command1_Click() a = MsgBox

29、(提示信息提示信息, 2 + 256, 標(biāo)題內(nèi)容標(biāo)題內(nèi)容) Print a End Sub按回車打印按回車打印4第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)354.3.4 用用Print方法輸出數(shù)據(jù)方法輸出數(shù)據(jù)1. Print方法方法 格式格式: 對(duì)象名對(duì)象名. Print 表達(dá)式表表達(dá)式表 ; | , 對(duì)象名對(duì)象名: 窗體窗體, 如如 Form1.Print Hello 圖片框圖片框,如如 Picture1.Print Hello 打印機(jī)打印機(jī), 如如 Printer.Print Hello 立即窗口立即窗口,如如 Debug .Print Hello 省略省略: 默認(rèn)為當(dāng)前窗體。默認(rèn)為當(dāng)

30、前窗體。表達(dá)式表表達(dá)式表: 多個(gè)表達(dá)式多個(gè)表達(dá)式使用逗號(hào)或分號(hào)隔開。使用逗號(hào)或分號(hào)隔開。最后也可以加逗號(hào)或分號(hào)。最后也可以加逗號(hào)或分號(hào)。第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)36輸出格式：輸出格式： 表達(dá)式表用逗號(hào)分隔表達(dá)式表用逗號(hào)分隔: 以以14個(gè)字符為單位個(gè)字符為單位把一個(gè)輸出行分成若干區(qū)段。把一個(gè)輸出行分成若干區(qū)段。 表達(dá)式表用分號(hào)分隔表達(dá)式表用分號(hào)分隔: 后一項(xiàng)緊跟前一項(xiàng)后一項(xiàng)緊跟前一項(xiàng)輸出。輸出。 數(shù)值型數(shù)據(jù)前有一個(gè)符號(hào)位數(shù)值型數(shù)據(jù)前有一個(gè)符號(hào)位(正號(hào)不顯正號(hào)不顯)，后面留一個(gè)空格位。后面留一個(gè)空格位。 字符串原樣輸出，前后無(wú)空格。字符串原樣輸出，前后無(wú)空格。第四章第四章 順

31、序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)37例例: Private Sub Form_Activate() Print 12345678901234567890 Print 2+4=;2 + 4, Print 2-4=; Print 2 - 4 End Sub例例: Private Sub Form_Activate() Print 12345678901234567890 Print 2+4=; 2 + 4 Print 2-4=, 2 - 4 End Sub 第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)38例例: Private Sub Form_Load() Form1.Show Print 12

32、345678901234567890 Print 產(chǎn)生空行產(chǎn)生空行 Print 2+4=; 2 + 4, Print 取消上句末尾逗號(hào)的作用取消上句末尾逗號(hào)的作用 Print 2-4=; Print 2 - 4 End Sub第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)392. 與與Print方法有關(guān)的函數(shù)方法有關(guān)的函數(shù)(1) Tab函數(shù)函數(shù) 格式格式: Tab(n) 功能功能: 在指定的第在指定的第n個(gè)位置上輸出數(shù)據(jù)。個(gè)位置上輸出數(shù)據(jù)。 參數(shù)參數(shù)n: n當(dāng)前位置當(dāng)前位置: 打印位置為下一行的第打印位置為下一行的第n列列 n1: 打印位置為第打印位置為第1列列 n省略省略: 打印位置為下一個(gè)

33、打印區(qū)的起點(diǎn)打印位置為下一個(gè)打印區(qū)的起點(diǎn) (每每14個(gè)字符為一個(gè)打印區(qū)個(gè)字符為一個(gè)打印區(qū))第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)40例例: Private Sub Form_Activate() Print 12345678901234567890 Print Hello; Tab(10); World Print Hello; Tab; World Print Hello; Tab(4); World Print Tab(-5); Hello End Sub第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)41(2) Spc函數(shù)函數(shù) 格式格式: Spc(n) 功能功能: 跳過(guò)跳過(guò)n個(gè)空格

34、。個(gè)空格。 例例: Print HOW; Spc(3); ABOUT 結(jié)果結(jié)果: HOWABOUT注意注意: Spc函數(shù)、函數(shù)、Space函數(shù)、函數(shù)、Tab函數(shù)的區(qū)別函數(shù)的區(qū)別Space函數(shù)函數(shù):可以用在字符串允許出現(xiàn)的任何可以用在字符串允許出現(xiàn)的任何位置。位置。Spc函數(shù)函數(shù):只能用在打印語(yǔ)句中。只能用在打印語(yǔ)句中。Tab函數(shù)指定絕對(duì)位置；函數(shù)指定絕對(duì)位置； Space函數(shù)或函數(shù)或Spc函函數(shù)指定相對(duì)位置。數(shù)指定相對(duì)位置。第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)424.4 注釋、暫停與程序結(jié)束語(yǔ)句注釋、暫停與程序結(jié)束語(yǔ)句1. 注釋語(yǔ)句注釋語(yǔ)句 格式格式: | Rem 注釋內(nèi)容注釋內(nèi)容

35、功能功能: 給語(yǔ)句或程序段加上注釋，以提高給語(yǔ)句或程序段加上注釋，以提高可讀性。可讀性。 說(shuō)明說(shuō)明: Rem與與 “注釋內(nèi)容注釋內(nèi)容”之間至少空一之間至少空一個(gè)空格。個(gè)空格。第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)43例如：例如：Private Sub Form_Activate() Rem 本程序用于計(jì)算圓的面積本程序用于計(jì)算圓的面積 Dim R As Single, Area As Single R為半徑為半徑 R=Val(InputBox(請(qǐng)輸入半徑請(qǐng)輸入半徑, , 1) ) Area = 3.14 * R 2 : Rem 輸入半徑輸入半徑 以下將半徑和面積輸出到窗體上以下將半徑和

36、面積輸出到窗體上 Print R , AREAEnd Sub第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)442. 暫停語(yǔ)句暫停語(yǔ)句 格式格式: Stop 功能功能: 暫停程序的執(zhí)行。暫停程序的執(zhí)行。 說(shuō)明：用于程序調(diào)試。類似于執(zhí)行說(shuō)明：用于程序調(diào)試。類似于執(zhí)行“運(yùn)運(yùn)行行”菜單中的菜單中的“中斷中斷”命令命令3. 結(jié)束語(yǔ)句結(jié)束語(yǔ)句 格式格式: End 功能功能: 結(jié)束程序的執(zhí)行。結(jié)束程序的執(zhí)行。第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)454.5 順序結(jié)構(gòu)程序應(yīng)用舉例順序結(jié)構(gòu)程序應(yīng)用舉例*【例例4-5】雞兔同籠。已知籠中雞兔總頭數(shù)雞兔同籠。已知籠中雞兔總頭數(shù)為為h，總腳數(shù)為，總腳數(shù)為f，問(wèn)

37、雞兔各有多少只？，問(wèn)雞兔各有多少只？分析：分析：設(shè)雞有設(shè)雞有x只，兔有只，兔有y只，則方程式如下：只，則方程式如下： x+y=h 2x+4y=f解方程。解出求解方程。解出求x和和y的具體公式為：的具體公式為： x=(4h-f) / 2 y=(f-2h) / 2第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)46設(shè)計(jì)界面：設(shè)計(jì)界面：Label5、Label6的的BorderStyle屬性設(shè)置為屬性設(shè)置為1Text1Text1Text2Text2Command1Command1Label5Label5Label6Label6第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)47代碼如下：代碼如下：Private Sub Command1_Click() Dim h As Integer, f As Integer, x As Integer Dim y As Integer 輸入輸入 h = Val(Text1.Text) f = Val(Text2.Text) 計(jì)算計(jì)算 x = (4 * h - f) / 2 y = (f -