【正文】 鈕 Private Sub Command4 Click () If = “” Then = + “2” Else = + “2” End if End Sub （ 4） 、 數(shù)字 “ 3”按鈕 Private Sub Command5 Click () If = “” Then = + “3” Else = + “3” End if End Sub （ 5） 、 數(shù)字 “ 4”按鈕 Private Sub Command6 Click () If = “” Then = + “4” Else = + “4” End if End Sub （ 6） 、 數(shù)字 “ 5”按鈕 Private Sub Command7 Click () If = “” Then = + “5” Else = + “5” End if End Sub （ 7） 、 數(shù)字 “ 6”按鈕 Private Sub Command8 Click () If = “” Then = + “6” Else = + “6” End if End Sub （ 8） 、 數(shù)字 “ 7”按鈕 Private Sub Command9 Click () If = “” Then = + “7” Else = + “7” End if End Sub （ 9） 、 數(shù)字 “ 8”按鈕 Private Sub Command10 Click () If = “” Then = + “8” Else = + “8” End if End Sub （ 10） 、 數(shù)字 “ 9”按鈕 Private Sub Command11 Click () If = “” Then = + “9” Else = + “9” End if End Sub TextFirst文本框的 Change事件 Private Sub TextFirstChange () = End Sub TextSecond文本框的 Change事件 Private Sub TextSecondChange () = TextSecond End Sub 正負(fù)號(hào) （ +/） 命令按鈕的 Change事件 Private Sub Command2 Click () If = “” Then =1* Val() Else =1*val() End if End Sub 加、減、乘、除命令按鈕的 Click 事件 Private Sub Command12 Click() = “加 ” End Sub Private Sub Command13 Click() = “減 ” End Sub Private Sub Command14 Click() = “乘 ” End Sub Private Sub Command15 Click() = “除 ” End Sub 計(jì)算結(jié)果命令按鈕的 Click 事件 Private Sub Command16 Click () Dim MyResult As Double Select Case Case “加 ” MyResult=Val()+ Val() Case “減 ” MyResult=Val() Val() Case “乘 ” MyResult=Val()* Val() Case “除 ” MyResult=Val() / Val() End Select = “” = “” = MyResult = End Sub 清空命令按鈕的 Click 事件 Private Sub Command17 Click() = “” = “” = “” End Sub 退出命令按鈕的 Click 事件 Private Sub Command18 Click() Unload Me End Sub 幫助菜單的調(diào)用 1 問(wèn)題思考：完成本題的關(guān)鍵是什么 ？ 二 、 可視化界面的設(shè)計(jì)： VB可視化程序設(shè)計(jì)包括：用戶界面的設(shè)計(jì)；編寫代碼程序 。 窗體是應(yīng)用程序的對(duì)外接口 ， 是其他控件的載體和容器 ， 窗體設(shè)計(jì)通?？煞譃椋? 單窗體 （ 一個(gè)應(yīng)用程序中只包含一個(gè)窗體 ） 設(shè)計(jì)；多窗體 （ 一個(gè)應(yīng)用程序中包含多個(gè)窗體 ） 設(shè)計(jì)；MDI窗體 （ 多文檔窗體 ， 由一個(gè)父窗體和眾多子窗體組成 ） 設(shè)計(jì) 。 多窗體的設(shè)計(jì) ： 添加窗體 → 設(shè)置啟動(dòng)窗體 → 窗體的裝載與卸載 添加應(yīng)用程序所需的所有的窗體模塊，設(shè)置啟動(dòng)窗體及多窗體之間的調(diào)用，按單窗體設(shè)計(jì)方法設(shè)計(jì)每個(gè)窗體。 窗體的裝載與卸載語(yǔ)句： Load語(yǔ)句 （ 即把窗體或其他對(duì)象裝入內(nèi)存 ） ； UnLoad語(yǔ)句 （ 即把窗體或其他對(duì)象內(nèi)存中卸載 ） 。 MDI（ 多文檔窗體 ） 的設(shè)計(jì)： 首先創(chuàng)建父窗體 → 創(chuàng)建子窗體 MDI父窗體的兩個(gè)重要屬性是： ActiveForm(返回具有焦點(diǎn)或最后被激活的子窗體 ) ； ActiveControl（ 返回活動(dòng)子窗體上擁有焦點(diǎn)的控件 ） 實(shí)例見(jiàn) P62圖 三 、 可視化界面的高級(jí)設(shè)計(jì)： 菜單 （ Menu） 設(shè)計(jì) : 分為下拉式菜單 、 彈出式菜單兩種 。 菜單控件中只包含一個(gè)事件即單擊 （ Click） 事件 ， 練習(xí)實(shí)驗(yàn)書 P24P28的操作并寫出報(bào)告 （ 請(qǐng)參閱烏海電大在線： 中有關(guān)內(nèi)容 ） 幾個(gè)基本控件的使用： 框架 （ Fram） 、 單選鈕 （ OptionButton） 、 復(fù)選框 （ CheckBox） 、 列表框 （ ListBox） 、 組合框 （ ComboBox） 、 工具欄 （ ToolBar） 、 狀態(tài)欄（ StatusBar） 、 圖標(biāo)列表 （ LmagList） 、 通用對(duì)話框 （ CommonDialogControls） 等控件 .在使用時(shí)這里要注意它們的主要屬性 、 方法 、 事件 。 四 、 代碼設(shè)計(jì)基礎(chǔ)： 變量的聲明： 變量 是程序運(yùn)行期間其值可以變化的量 ， 變量在使用前必須要先聲明 。 聲明分為：顯示聲明和隱性聲明 。 顯示聲明基本語(yǔ)句結(jié)構(gòu)是： Dim變量名 As 數(shù)據(jù)類型 。 隱性聲明是由 VB自動(dòng)將變量聲明為變體形 。 基本數(shù)據(jù)類型： 見(jiàn)書 P78表 變量的作用域?yàn)椋哼^(guò)程級(jí)變量；窗體級(jí)與模塊級(jí)變量 （ 用 Dim或 Private聲明 ） ；全局變量 （ 用Public聲明 ） 常量： 在程序運(yùn)行過(guò)程中其值保持不變的量 ， 通?？煞譃榉?hào)常量和文字常量?jī)纱箢?。 符號(hào)常量的一般語(yǔ)法是： Const變量名 As 數(shù)據(jù)類型 [= 表達(dá)式 ] 運(yùn)算符和表達(dá)式： 算術(shù)運(yùn)算符；關(guān)系運(yùn)算符；邏輯運(yùn)算符；字符串連接符 。 （ 要注意它們的 優(yōu)先級(jí)別的高低 ） 常用函數(shù)： 數(shù)值型函數(shù)；字符串函數(shù)；日期函數(shù)；格式化函數(shù) 。 （ 注意它們的意義與返回值 ） 流程控制語(yǔ)句： 順序結(jié)構(gòu)（最簡(jiǎn)單、最基本的結(jié)構(gòu)，執(zhí)行時(shí)按語(yǔ)句在程序中的先后順序依次執(zhí)行）； 選擇結(jié)構(gòu) （ 或稱為分支結(jié)構(gòu) ， 有 if語(yǔ)句和 Select Case語(yǔ)句 ） ；循環(huán)結(jié)構(gòu) （ 有 For語(yǔ)句和 Do語(yǔ)句 ） . 例如 ：判斷從文本框 Text1中輸入的數(shù)據(jù) ， 若該數(shù)據(jù)滿足條件：除以 3余 除以 5余 除以 7余 4，則輸出；否則將焦點(diǎn)定位在文本框 Text1中 ， 選種文本框中文本 。 程序如下： Private Sub CommandClick () X = Val () If x mod 3=2 And x mod 5=3 And x mod 7 = 4 Then Print x Else = 0 = Len() End if End Sub 進(jìn)入程序 例如 ：有關(guān) For… .Next語(yǔ)句的程序簡(jiǎn)例 Private Sub CommandClick () I = 0 For g = 10 to 19 Step 3 I = I+1 Next g Print I End Sub 進(jìn)入程序 (注意：工程化思想與編程風(fēng)格 ) 請(qǐng)同學(xué)們探討本章有疑惑的問(wèn)題并 將問(wèn)題發(fā)到 或到烏海電大在線討論區(qū)進(jìn)行討論。 本章結(jié)束 ？