1、研1,第五章 順 序 結(jié) 構(gòu),事件驅(qū)動：將代碼劃分成一些過程 過程結(jié)構(gòu)：過程內(nèi)部代碼由三種基本結(jié)構(gòu)組成 即：順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu) 順序結(jié)構(gòu)：執(zhí)行過程的次序從左到右，從上到下 例：Private Sub Command1_Click() Const Pi = 3.14 H = Val(Text1.Text)： R = Val(Text2.Text) Text3.Text = Pi * R 2 * H End Sub,研2,5.1 賦值語句Let,格式：Let = 功能：計(jì)算 值，將值賦給 說明： （1）= 號的含義:賦值 （2）=號左側(cè)只能是變量 變量可以是自定義變量或?qū)傩宰兞?A=12

2、3.45 Label1.Caption=標(biāo)簽 （3）引用變量的值不會改變變量現(xiàn)行值 （4）變量未賦值時(shí),數(shù)值變量值為0,字符變量值為 （5）與應(yīng)類型相容 注:數(shù)值類型賦值結(jié)果為變量的類型,研3,例1: Dim a As Single, k As Integer a = 3.14 k = 3.6 Print a, k 輸出結(jié)果： 3.14 4 例2：執(zhí)行下列賦值語句后，變量A的數(shù)據(jù)類型（設(shè)A沒有定義數(shù)據(jù)類型） A=6=5 A=5+3 A=5+3 A=#11/26/99# A=#11/26/99# A=NOT 58,用VarType函數(shù)可以測試變量的類型 如: Print VarType(A),研

3、4,5.2 輸出數(shù)據(jù):使用標(biāo)簽、文本框、 Print方法、消息框 5.2.1 使用標(biāo)簽、文本框輸出 方法：標(biāo)簽名.Caption= 文本框名.Text= 可設(shè)置標(biāo)簽的Backbolor,BorderStyle屬性改變其外觀 可將文本框的Locked屬性設(shè)置成True，成為只讀。 5.2.2 使用Print方法輸出 1.格式： . Print , | ; :窗體 如 Form1.Print 1; 2; 3 圖片框 如 Picture1.Print 1; 2; 3 打印機(jī) 如 Printer.Print 1; 2; 3 立即窗口 如 Debug .Print 1; 2; 3 省略時(shí)為當(dāng)前窗體。 逗

4、號：后面的內(nèi)容在下一區(qū)段輸出(每區(qū)段14個(gè)字符) 分號：后面的內(nèi)容緊接著輸出。 對于數(shù)值，前面留一個(gè)符號位， 后面留一個(gè)空格位,研5,例1：Private Sub Form_Activate() Print 2+4=; 2 + 4 Print 2-4=; 2 - 4 End Sub 結(jié)果：2+4= 6 2-4=-2,如果將分號改成逗號： 結(jié)果：2+4= 6 2-4= -2,例2：Private Sub Form_Load() Form1.Show Print 12345678901234567890 Print 2+4=; 2 + 4, Print 2-4=; 2 - 4 End Sub 結(jié)果

5、：12345678901234567890 2+4= 6 2-4=-2,輸入Print時(shí)可以使用？代替，VB將其自動轉(zhuǎn)換成Print,研6,2. 與Print方法有關(guān)的函數(shù) (1)Tab(n):將當(dāng)前輸出位置設(shè)置為第n列，后跟分號 當(dāng)n小于當(dāng)前顯示位置時(shí)，自動移到下一行 例：Print 12345678901234567890 Print HOW; Tab(6); ABOUT 結(jié)果：12345678901234567890 HOW ABOUT 例：Print 12345678901234567890 Print HOW; Tab(3); ABOUT 結(jié)果：1234567890123456789

6、0 HOW ABOUT (2) Spc(n)：跳過n個(gè)空格 例： Print HOW; Spc(3); ABOUT 結(jié)果：HOWABOUT,研7,3. CurrentX 和 CurrentY 屬性(設(shè)計(jì)時(shí)不可用) CurrentX:下一次打印的 水平坐標(biāo)(緹) CurrentY:下一次打印的垂直坐標(biāo)(緹) 坐標(biāo)從對象（如窗體）的左上角開始測量,Private Sub Form_Click() CurrentX = 0 CurrentY = 0 Print A CurrentX = 1500 CurrentY = 1000 Print B End Sub,研8,例：Private Sub For

7、m_Click() CurrentX = 2000:CurrentY = 500 Print 當(dāng)前水平坐標(biāo)為; CurrentX Print 當(dāng)前垂直坐標(biāo)為; CurrentY End Sub,研9,5.2.3 使用消息框輸出 一、消息對話框： 格式1： MsgBox , 格式2： =MsgBox(,) 功能：在對話框中顯示消息，等待用戶單擊按鈕，并返回一個(gè) 整數(shù),告訴用戶單擊哪一個(gè)按鈕。 ：要顯示的文本，可以用Chr(13)換行 ：對話框標(biāo)題內(nèi)容 ：對話框中出現(xiàn)的按鈕和圖標(biāo) 按鈕：P178表11-1 圖標(biāo)：P178表11-2 默認(rèn)按鈕：P178表11-3 返回值：P178表11-4,研10,

8、例： Private Sub Command1_Click() a = MsgBox(消息內(nèi)容) End Sub,例： 換行 Private Sub Command1_Click() a = MsgBox(消息內(nèi)容1 & Chr(13) & 消息內(nèi)容2) End Sub,研11,例： Private Sub Command1_Click() a = MsgBox(消息內(nèi)容, , 標(biāo)題內(nèi)容) End Sub,例：按鈕0到5或符號常量 Private Sub Command1_Click() a = MsgBox(消息內(nèi)容, 1, 標(biāo)題內(nèi)容) End Sub,研12,例： 圖標(biāo)16、32、48、6

9、4或符號常量 Private Sub Command1_Click() a = MsgBox(消息內(nèi)容, 16, 標(biāo)題內(nèi)容) End Sub,例：默認(rèn)按鈕0，256，512 Private Sub Command1_Click() a = MsgBox(消息內(nèi)容, 2 + 256, 標(biāo)題內(nèi)容) Print a End Sub,按回車打印4,研13,例11-6：設(shè)計(jì)如下圖所示界面，輸入各科成績，求平均分。 當(dāng)某項(xiàng)成績?yōu)榭諘r(shí)，給出警告，并根據(jù)用戶回答確定”或“取消”做不同的處理。,研14,a=Val(Text1.Text) b=Val(Text2.Text) c=Val(Text3.Text) I

10、f Trim(Text1.Text) = Or Trim(Text2.Text) = Or Trim(Text3.Text) = Then x=MsgBox(數(shù)據(jù)不全 & Chr(13) & 按取消重輸 & Chr(13) & 按確定默認(rèn)為零, 1 + 48, 請選擇) If x = 1 Then 返回1表示按確定按鈕 Text4.Text = (a + b + c) / 3 Else 返回1表示按確定按鈕 Text1.SetFocus End If Else Text4.Text = (a + b + c) / 3 End If,研15,5.3 輸入數(shù)據(jù) 通過賦值語句、通過鍵盤輸入 5.3.

11、1 用文本框 5.3.2 用InputBox函數(shù) 格式： =InPutBox(,) 功能：在一對話框中顯示提示，等待用戶輸入正文或按下按鈕，并返回包含文本框內(nèi)容的字符串。 ：要在對話框中顯示的提示信息，可以用 Chr(13)換行 ：對話框標(biāo)題內(nèi)容 ：對話框中默認(rèn)出現(xiàn)在輸入文本框中的值 返回值：字符串,研16,例：Private Sub Form_Activate() Dim R As String, AREA As Single R = InputBox(請輸入半徑, 計(jì)算圓的面積, 1) AREA = 3.14 * Val(R) 2 Print Val(R), AREA End Sub,單擊

12、“確定”，文本框中的文本返回到變量R中 單擊“取消”，返回一個(gè)零長度的字符串,研17,5.4 其他語句 5.4.1 注釋語句 格式：Rem| 功能：用于給程序加注解 說明：Rem與 之間至少空一個(gè)空格 例:Private Sub Form_Activate() Rem 本程序用于計(jì)算圓的面積 Dim R As String, AREA As Single R為半徑， R = InputBox(請輸入半徑, , 1): Rem 輸入半徑 AREA = 3.14 * Val(R) 2 以下將半徑和面積輸出到窗體上 Print Val(R), AREA End Sub 5.4.2 End語句 格式：End 功能