【正文】 fact = num Else If (num 12) Then MsgBox (數(shù)值太大 ) fact = num Else re = 1 While (num 0) re = re * num num = num 1 Wend fact = re End If End If End Function ? 4 調(diào)試運行 單擊工具欄上的啟動按鈕 ，或單擊“運行” — “啟動”命令，或者按 F5 鍵， 單擊 F5，運行結(jié)果如圖 36 所示， 廣東工程職業(yè)技術(shù)學院畢業(yè)論文 22 圖 36 運行界面 當單擊圖 36 運行界面中下面的按鈕時，會顯示如圖 37 所示的界面。這樣的變量只有在它屬于的模塊內(nèi)可見，不能從模塊外部對其進行訪問 。 第二 、關(guān)于字符串的 整理 （ 1）數(shù)字的整數(shù)部分不以“ 0”開頭（ 0.**除外），對于用戶輸入的多余的“ 0”程序自動將它刪除。如果出現(xiàn)第二個小數(shù)點，則此運算符不予接收。為了合理的完成用戶對表達式的輸入，程序本身應(yīng)該有一個存取字符串和易于接受的輸入方式。 Timer1 控制界面的顯示， Timer2控制界面的隱藏。 圖 33 添加 Command1 控件數(shù)組 對于控件數(shù)組有兩點說明， 控件數(shù)組內(nèi)的控件共享同樣的事件過程設(shè)置；這在很大程 度上減少了用來響應(yīng)控件的代碼， 可以在運行時動態(tài)地添加新元素到控件數(shù)組中。 圖 31 添加 TextBox 控件 廣東工程職業(yè)技術(shù)學院畢業(yè)論文 11 創(chuàng)建“數(shù)字”按鈕控件數(shù)組，首先創(chuàng)建一個按鈕 Command1，選定 之后用 Ctrl+C 將其復(fù)制到剪貼板上， 再用 Ctrl+V 粘貼一個新的控件，因為它與原控件有相同的 Name 屬性，所以會出現(xiàn)如圖 32 所示的警告信息。 創(chuàng)建工程，建立一個 標準 Exe 工程，并將工程保存為“實用 計算器”。有 5 個作為 四則 運算 （ + * / = ） 的操作按鈕，為數(shù)組控件 Command2。 （ 4） 調(diào)試運行。 圖 2— 1 “新建工程”對話框 （ 2） Visual Basic 集成開發(fā)環(huán)境的組成 廣東工程職業(yè)技術(shù)學院畢業(yè)論文 9 圖 2— 2 Visual Basic 集成開發(fā)環(huán)境 集成開發(fā)環(huán)境中主要包含 以下窗口：主窗口（ Main Windows）、工具箱（ Tool box）、 窗體（ Form）窗口、工程資源管理器（ Project Explorer）、屬性（ Properties）面板以及窗體布局（ Form Layout）面板等。 ? Visual Basic 的開發(fā)環(huán)境 Visual Basic 不僅是 一種編程語言，而且是集應(yīng)用程序開發(fā)、調(diào)試和測 于一體的集成開發(fā)環(huán)境（ IDE）。 Error 為特定值，指出已發(fā)生的過程中的錯誤狀態(tài)。變體型數(shù)據(jù)有三個特殊的值。 定長字符串是指事先定義字符 的長度（即字符串內(nèi)所含字符的個數(shù)），在程序運行過程中，始終保持其長度不變的字符串?？梢园阉鼈冝D(zhuǎn)換成數(shù)值型數(shù)據(jù)，此時， True 為 1， False 為 0。單精度 實型在計算機中用 4 個字節(jié)來表示的實數(shù)，其取值范圍為+/~+/。在計算機內(nèi)用 1 個字節(jié)表示，其取值范圍為廣東工程職業(yè)技術(shù)學院畢業(yè)論文 7 0~255。 （ 1） 數(shù)據(jù)類型 數(shù)值型數(shù)據(jù)（ Numeric），數(shù)值型數(shù)據(jù)可分為整型和實型兩大類。 VB 幫助窗口中顯示了有關(guān)的示例代碼，通過復(fù)制、粘貼操作可獲取大量的示例代碼，為用戶的學習和使用提供方便 。 （ 8） 多個應(yīng)用程序向?qū)? VB 提供了多種向?qū)В鐟?yīng)用程序向?qū)?、安裝向?qū)?、?shù)據(jù)對象向?qū)Ш蛿?shù)據(jù)窗體向?qū)?，通過它們可以快速地創(chuàng)建不同類型、不同功能的應(yīng)用程序。 （ 6） 支持對象的鏈接與嵌入技術(shù) VB 的核心是對對象的鏈接與嵌入 (OLE)技術(shù)的支持，它是訪問所有對象的一種方法。 VB 的集成開發(fā)環(huán)境為編程者提供了很大的方便。若用戶未進行任何操作 (未觸發(fā)事件 )，則程序就處于等待狀態(tài)。 （ 2） 事件驅(qū)動 在 Windows 環(huán)境下，程序是以事件驅(qū)動方式運行的，每個對象都能響應(yīng)多個不同的事件，每個事件都能驅(qū)動一段代碼 ——事件過程，該代碼決定了對象的功能。 （ 2） 事件驅(qū)動的編程機制 （ 3） 結(jié)構(gòu)化的程序設(shè)計語言 （ 4） 強大的數(shù)據(jù)庫功能和網(wǎng)絡(luò)開發(fā)功能。 Visual 意為“可視化”， Basic 指 BASIC 語言（ Beginner’s Allpurpose Symbolic Instruction Code）。 其中 Commandbutton 作為按鈕模塊， Textbox 作為顯示模塊， Timer 作為顯示或隱藏部分按鍵的模塊。二、每組控件組都有自己的 VB 代碼 ， 由 VB 語言實現(xiàn)各個控件按鈕的 功能 。 VB 工具 發(fā)展到今天，應(yīng)用范圍已涉及 綜合辦公軟件的開發(fā)、信息管理系統(tǒng) 等多個領(lǐng)域，可以實現(xiàn) 日常生活 各個領(lǐng)域 應(yīng)用軟件的 設(shè)計、 測試 等。 實現(xiàn)了基于 Visual Basic 軟件上 運行控制的設(shè)計方法 設(shè)計一個簡易的 計算器 ， 可視化界面給操作帶來很大的方便。計算器軟件系統(tǒng) 應(yīng)該能夠為用戶提供豐富的手段。 使用計算器 運算 ,具有著其他方式所無法比擬的優(yōu)點 .例如 查找方便、價格便宜、可保存信息 等。 關(guān)鍵詞 ： Visual Basic；計算器；對象；代碼 廣東工程職業(yè)技術(shù)學院畢業(yè)論文 2 ? Abstract With the continuous improvement of science and technology, puter science increasingly mature, it has access to all areas of human society, and play an increasingly important role. Calculator software system should be able to provide users with a rich means. Use a calculator for mathematical calculations, with an unmatched by other advantages. For example, to find convenient, cheap and save information. These advantages can greatly improve efficiency, is also the country39。設(shè)計者只要完成對 控件 的功能描述，就可以利用計算機和工具，進行設(shè)計處理 ，最終 實現(xiàn)理想 的 設(shè)計 效 果。于是本設(shè)計就是以這 兩個 個部分為核心內(nèi)容展開。 Commandbutton 按鈕實現(xiàn) 數(shù)字鍵和其他算法按鍵的功能 ； Textbox 實現(xiàn)計算過 程和結(jié)果的數(shù)字顯示； Timerbox 實現(xiàn)當計算器只用到四則的簡單運算時，窗體只顯示四種運算的基本按鍵，當用到科學計算時，再在窗體中顯示科學計算的控件按鈕。 Visual Basic 是基于 BASIC 的可視化程序設(shè)計語言，它繼承了 BASIC 語言簡單易懂的特點，采用面向?qū)ο?、事件?qū)動的編程機制，提供了直觀的可視化程序設(shè)計方法。 （ 5） 充分利用 Windows 資源 （ 6） 方便實用的程序向?qū)? Visual Basic 語言 具有以下一些特點： （ 1） 面向?qū)ο? VB 采用了面向?qū)ο蟮某绦蛟O(shè)計思想。通常稱這種機制為事件驅(qū)動。整個應(yīng)用程序就是由彼此獨立的事件過程構(gòu)成。 （ 4） 結(jié)構(gòu)化的程序設(shè)計語言 VB 具有豐富的數(shù)據(jù)類型，是一種符合結(jié)構(gòu)化程序設(shè)計思想的語言，而且簡單 易學。利用 OLE 技術(shù)，能夠開發(fā)集聲音、圖像、動畫、字處理、 Web 等對象于一體的程序。 （ 9） 支持動態(tài)交換、動態(tài)鏈接技術(shù)． 通過動態(tài)數(shù)據(jù)交換 (DDE)的編程技術(shù)， VB 開發(fā)的應(yīng)用程序能與其他 Windows應(yīng)用程序之間建立數(shù)據(jù)通信。 ? Visual Basic 語言基礎(chǔ) 在 Visual Basic 中，為解決各類實際問題要采用各種不同的數(shù)據(jù)類型。 整型表示的就是整數(shù)，整數(shù)運算速度快、精確，但表示數(shù)的范圍小。整型是指在計算機內(nèi)用兩個字節(jié)來存儲的整數(shù)，其取值范圍為32768~+32767，長整型是指在計算機內(nèi)用四個字節(jié)來存儲的整數(shù)，其取值范圍為 2147483648~2147483647。雙精度實型在計算機中用 8 個字節(jié)來表示的實數(shù)，其取值范圍為 +/~+/。也可以把其他類型的數(shù)據(jù)（數(shù)值型或由數(shù)字 組成的字符串型數(shù)據(jù)）轉(zhuǎn)換為邏輯型數(shù)據(jù)，此時，非 0 的數(shù)據(jù)轉(zhuǎn)換為 True， 0 轉(zhuǎn)換為False。變長字符串，字符串的長度不固定，隨著給字符 串變量賦值，它的長度可以發(fā)生變化。 Empty、 Null、 Error。 對象 型數(shù)據(jù)（ Object），對象型數(shù)據(jù)作為 32 位地址存儲，該地址可 引用當前應(yīng)用程序或其他應(yīng)用程序中的對象。 （ 1） 啟動 Visual Basic 廣東工程職業(yè)技術(shù)學院畢業(yè)論文 8 單擊“開始” —— “程序” —— “ Microsoft Visual Basic 中文版 命令，即可啟動 Visual Basic，彈出如下圖所示的“新建工程”對話框。 廣東工程職業(yè)技術(shù)學院畢業(yè)論文 10 ? 第三章 實用計算器的設(shè)計 Visual Basic 程序設(shè)計一般有五個步驟，具體如下： （ 1） 創(chuàng)建應(yīng)用程序的界面。 （ 5） 保 存工程及生成可執(zhí)行文件。 有 4 個作為函數(shù)運算（ sin cos tan cot）的操作按鈕，為數(shù)組控件 Command3。 將系統(tǒng)默認產(chǎn)生的窗體保存為 文件。 圖 32 提示創(chuàng)建控件數(shù)組 選擇“是”，然后連續(xù)粘貼 10 個，依次把按鈕的 Caption 設(shè)定為 0~9 以及一個小數(shù)點。 廣東工程職業(yè)技術(shù)學院畢業(yè)論文 12 添加“運算符”按鈕控件數(shù)組 ，同理創(chuàng)建運算符控件數(shù)組，如圖 34 所示， 其 中加減除乘等 于 的 Index 屬性為 0、 4 圖 34 添加 Command2 控件數(shù)組 添加其他 按鈕，添加 Command3 數(shù)組控件 sin、 cos、 tan、 cot，其 Index 屬性 為 0、 3。 本次實用計算器的總的窗體布置如圖 35 所示。思路歸納如下： 第一、 關(guān)于輸入的規(guī)范 （ 1） 數(shù)字和運算符必須交替輸入，而且必須是從數(shù)字開始。 （ 3）對于“ ”負號字符，只允許在數(shù)字開始處寫入。 （ 2）當開始輸入數(shù)字時，如果直接輸入小數(shù)點“ .”，則以“ 0.”代替。 初始化代碼 Private Sub Form_Load() dflag = 0 prev = 0 oflag = 0 ind = 0 opnre = 0 ang