【正文】 ivate事件 。 在不活動的窗體上不能使用 Print方法顯示信息 ， 在活動的窗體上能使用 Print方法 。 3. Click Click事件是當(dāng)程序運行后 ， 用鼠標(biāo)單擊窗體時觸發(fā)的事件 。 一旦觸發(fā)了 Click事件 ， 便執(zhí)行 Click事件過程 (如果有 Click事件過程 )。 DblClick事件是人為觸發(fā)事件 。 5. Resize Resize事件是當(dāng)程序運行后 ， 窗體的大小被改變時觸發(fā)的事件 。 一旦觸發(fā)了 Resize事件 ， 便執(zhí)行 Resize事件過程 (如果有 Resize事件過程 )。 窗體的常用方法 (Method) 方法是 VB系統(tǒng)提供的 ， 它隸屬于對象 ， 用來完成特定操作 。 1. Cls方法 Cls方法用來清除窗體上顯示的正文和繪制的圖形 。 例如： 清除窗體 1上顯示的正文和繪制的圖形 。 Print方法的一般格式： [窗體名 . ]Print [[輸出列表 ][。 窗體名可以是其他對象名稱 ， 如：圖片框 (PictureBox)、 打印機(jī) (printer)、 立即窗口 (Debug)等對象名 。 。 例如： ***** 在窗體 Form1顯示： ***** 用 Print顯示計算結(jié)果的例子： 3 * 4 在窗體 Form1顯示： 12 當(dāng) [輸出列表 ]中有多個輸出項時 ， 要使用分隔符 。 因分隔符不同 ， 顯示格式有分區(qū)格式和緊湊格式兩種 。14列為一個分區(qū) ， 每個數(shù)據(jù)項占一個分區(qū) 。 當(dāng)輸出項是字符數(shù)據(jù)時數(shù)據(jù)項之間不留空格；當(dāng)輸出是數(shù)值數(shù)據(jù)時 ， 數(shù)據(jù)前留一個前導(dǎo)空格或顯示一個負(fù)號 (當(dāng)是負(fù)數(shù)時顯示負(fù)號 )， 每個數(shù)據(jù)項之后留一個尾隨空格 。 例如： 10050。 下面是用 Print顯示用逗號分隔兩個輸出項的例子： Print 10050， 100 50 在窗體 Form1顯示： 10050 True， 用 1到 14列顯示字符串 ， 當(dāng)字符串長度小于 14時用空格填充 ， 從第 15列開始顯示布爾值 。 100 + 50， 100*50。 100 + 50， 100*50。 程序設(shè)計 在窗體 Form1顯示：面向?qū)ο蟪绦蛟O(shè)計 ， 占一行顯示 ， 且中間無空格 。 程序設(shè)計 在窗體 Form1占兩行顯示：面向?qū)ο蟪绦蛟O(shè)計 ， 中間無空行 。 ? 例 Print方法演示 設(shè)計一個窗體 ， 窗體的標(biāo)題為 “ Print方法演示 ” 綜 合 運 用 ? 例 加載圖形 設(shè)計一個窗體，窗體的標(biāo)題為 “ 加載圖形 ” ，在界面設(shè)計時為窗體加載一幅任意圖形。 ? 例 控制菜單框圖標(biāo) 設(shè)計一個窗體，窗體的標(biāo)題為 “ 控制菜單框圖標(biāo) ” ，在界面設(shè)計時，將窗體的背景顏色設(shè)置成白色，將窗體的前景顏色設(shè)置成紅色，并為窗體的控制菜單框加載一幅圖形。 第 3章 命令按鈕與函數(shù) （時間： 2次課， 4學(xué)時） 第 3章 命令按鈕與函數(shù) ? 教學(xué)提示： 本章介紹 VB常用的標(biāo)準(zhǔn)函數(shù) 、 表達(dá)式和命令按鈕 ， VB常用標(biāo)準(zhǔn)函數(shù)和表達(dá)式是程序設(shè)計語言基礎(chǔ) 。 在學(xué)習(xí)中要注意函數(shù)的功能和調(diào)用方法 。 命令按鈕是 VB程序設(shè)計最常使用的控件 ， 程序中出現(xiàn)最多的事件過程是命令按鈕的事件過程 。 掌握算數(shù)運算符 、 關(guān)系運算符 、 邏輯運算符的和 VB表達(dá)式的作用和書寫規(guī)范 。 第 3章 命令按鈕與函數(shù) 引例 計算面積和周長 ? 運算符和表達(dá)式 ? 常用標(biāo)準(zhǔn)函數(shù) ? 命令按鈕 (CommandButton)控件 ? 綜合運用 運算符和表達(dá)式 ? 算術(shù)運算符和算術(shù)表達(dá)式 ? 字符串運算符和字符串表達(dá)式 ? 關(guān)系運算符和關(guān)系表達(dá)式 ? 邏輯運算符和邏輯表達(dá)式 ? 日期運算符和日期表達(dá)式 ? 運算符的優(yōu)先級 算術(shù)運算符和算術(shù)表達(dá)式 ? 在 VB中，算術(shù)運算符有：乘方號 (^)、取負(fù)號 ()、乘號 (*)、除號 (/)、整除號 (\)、求余運算符 (Mod)、加號 (+)和減號 ()。 例如： Private Sub Command1_Click() Print 9 \ 3 * 3 End Sub 輸出結(jié)果為 1。 Private Sub Command1_Click() Print 9 / 3 * 3 End Sub 輸出結(jié)果為 9。 字符串運算符和字符串表達(dá)式 在 VB中 ， 字符串運算符有：加號 (+)和字符串連接運算符號 (amp。兩個運算符的作用相同 ， 都是將兩個字符串連接成一個字符串 。 程序設(shè)計 結(jié)果仍是一個字符串： 可視化程序設(shè)計 ? 可視化 + 程序設(shè)計 結(jié)果仍是一個字符串： 可視化程序設(shè)計 加號 (+)， 究竟完成加法運算還是字符串的連接 ， 取決于參加運算的兩個操作數(shù) ， 當(dāng)兩個操作數(shù)都是數(shù)值類型時完成加法運算 。 要區(qū)分?jǐn)?shù)值型和字符串類型 ， 如： 123 + 456 結(jié)果仍是一個字符串： 123456 關(guān)系運算符和關(guān)系表達(dá)式 ? 在 VB中 ， 關(guān)系運算符有：大于號 ()、 小于號 ()、 大于等于號 (=)、 小于等于號 (=)、 等于號 (=)和不等于號 (或 )。 ? 關(guān)系表達(dá)式的一般格式： 表達(dá)式 關(guān)系運算符 表達(dá)式 ? 運算 運算符 關(guān)系表達(dá)式舉例 說明 大于 32+2結(jié)果為 False 先計算 2+2 小于 AB結(jié)果為 True 符合字典順序 大于等于 = A=a結(jié)果為 False 小寫大于大寫 小于等于 = abc = abd結(jié)果為 True 等于 = a = a 結(jié)果為 False 空格是有效字符 不等于 或 12/20/2022 12/19/2022 結(jié)果為 True 日期靠后的為大 邏輯運算符和邏輯表達(dá)式 ? 在 VB中 ， 常用的邏輯運算符有：非 (Not)、 與 (And)、 或 (Or)和異或 (Xor)。 ? 邏輯表達(dá)式的一般格式： 表達(dá)式 邏輯運算符 表達(dá)式 運算 運算符 邏輯表達(dá)式 非 Not Not(53) 結(jié)果為 False 與 And True And True結(jié)果為 True 或 Or False Or False結(jié)果為 False 異或 Xor True Xor False結(jié)果為 True ? 例如： A + B = C And X = Y 是邏輯表達(dá)式，在求解該表達(dá)式時，先完成算術(shù)運算，再解決關(guān)系運算，最后進(jìn)行邏輯運算。 ? 例如： Not L1 And Not L2 是邏輯表達(dá)式，在求解該表達(dá)式時，先解決邏輯非運算，再進(jìn)行邏輯與運算。 日期運算符和日期表達(dá)式 ? 日期型數(shù)據(jù)只有加 “ +”和減 “ ”兩個運算符。 運算符的優(yōu)先級 ? 在含有各種運算符混合運算的表達(dá)式中 ， 運算符運算優(yōu)先級規(guī)定為：首先進(jìn)行數(shù)值運算和字符串運算 ， 其次進(jìn)行關(guān)系運算 ， 最后完成邏輯運算 ， 同級運算自左到右順序完成 ， 括號可以改變優(yōu)先順序 。 例如： (1 2 ) O r A + B / C + ( C D ) * 2 P 1 O r L 2 A nd N ot A ( B C ) / D (1 ) 括號 (2 ) 括號 (3 )/ (4 ) * (5 )/ (6 )+ (7 )+ (8 ) (9 ) (1 0 ) N ot (1 1 ) A nd 常用標(biāo)準(zhǔn)函數(shù) ? 常用數(shù)學(xué)函數(shù) ? 常用轉(zhuǎn)換函數(shù) ? 常用字符串函數(shù) ? 常用日期時間函數(shù) ? InputBox函數(shù) 常用數(shù)學(xué)函數(shù) ? 常用數(shù)學(xué)函數(shù)主要包括三角函數(shù)、指數(shù)函數(shù)、對數(shù)函數(shù)、平方根函數(shù)、絕對值函數(shù)等 ? 函數(shù) 說明 舉例 結(jié)果 ? Sin(n) 計算 n的正弦值 Sin(0) 0 ? Cos(n) 計算 n的余弦值 Cos(0) 1 ? Tan(N) 計算 N的正切值 Tan(0) 0 ? Abs(N) 計算 N的絕對值 Abs(2) 2 ? Atn(N) 計算 N的反正切值 Atn(0) 0 ? Exp(N) 計算 e的 N次冪 Exp(0) 1 ? Log(N) 計算 N的自然對數(shù) Log(1) 0 ? Sgn(N) 計算 N的符號值 Sgn(2) 1 ? Sqr(N) 計算 N的平方根 Sqr(4) 2 ? Rnd[(N)] 產(chǎn)生 [0， 1)之間隨機(jī)數(shù) Rnd [0， 1) ? 運行下面程序 ， 會發(fā)現(xiàn)運行程序輸出的 3個隨機(jī)數(shù)確實隨機(jī)并滿足在 0～ 1之間 。 Private Sub Command1_Click() Print Rnd : Print Rnd : Print Rnd End Sub ? 在調(diào)用隨機(jī)函數(shù)之前先使用 Randomize語句 ， 此后再使用隨機(jī)函數(shù)便可產(chǎn)生逼真的隨機(jī)數(shù) 。 Private Sub Command1_Click() Print Sqr(Abs(4)) End Sub 常用轉(zhuǎn)換函數(shù) ? 常用轉(zhuǎn)換函數(shù)主要包括數(shù)值型數(shù)據(jù)與字符型數(shù)據(jù)之間的轉(zhuǎn)換，以及數(shù)值型數(shù)據(jù)之間的轉(zhuǎn)換。 Option Explicit Private Sub Command1_Click() Const Vg = 300000000 Const Pi = Dim OA, AB, OB, S1 OA = Vg / 3000 / 2 AB = OA * Sin(30 * Pi / 180) OB = OA * Cos(30 * Pi / 180) S1 = Pi * OB * OB Print 飛機(jī)的高度是： + Str(AB) + m Print 雷達(dá)仰角為 30176。 Private Sub Command1_Click() Print Chr(Asc(A)) Print Asc(ABCDEF) Print Trim(Str(Asc(ABCDEF))) Print 顯示在上一行 + Chr(13) + Chr(10) + 顯示在下一行 End Sub 常用字符串函數(shù) ? 在字符存儲和處理中， VB Unicode編碼。 函數(shù) 說明 舉例 結(jié)果 Ltrim(C) 刪除字符串左邊的前導(dǎo)空格 Ltrim(“ abc) abc Rtrim(C) 刪除字符串右邊的尾隨空格 Rtrim(abc ) abc Trim(C) 刪除字符串前導(dǎo)和尾隨的空格 Trim(“ abc ) abc Left(C,N) 從字符串的左邊取出 N個字符 Left(abc,2) ab Right(C,N) 從字符串的右邊取出 N個字符 Right(abc,2) bc Mid(C,M,N) 從字符串的 M位右取出 N個字符 Mid(abcd,2,2) bc InStr(C1,C2) 返回字符串 2在字符串 1的位置 InStr(abc,bc) 2 Len(C) 返回字符串的長度 Len(abc) 3 Space(N) 產(chǎn)生 N個空格字符組成的字符串 Space(2) “ Lcase(C) 大寫字母轉(zhuǎn)換成小寫字母 Lcase(AbC) abc Ucase(C) 小寫字母轉(zhuǎn)換成大寫字母 Ucase(abc) ABC Private Sub Command1_Click() str1 =