北京電大visualbasic程序設計第3章應用程序接口設計及代碼編寫-資料下載頁

　　

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