【正文】 End If oflag = 1 If Command1(index).Caption . Then If 0 Then = amp。 根據(jù)上面的分析可以操作除“ =”按鈕的其他所有按鈕，具體的過(guò)程代碼分塊編寫(xiě)如下： 模塊變量定義 Dim i As Integer Dim opnre As Integer Dim prev As Double Dim oflag As Integer Dim ind As Integer Dim dflag As Integer Public ang As Double 用 Dim 語(yǔ)句在一個(gè)模塊的說(shuō)明部分說(shuō)明了一個(gè)變量，即創(chuàng)建了一個(gè)私有的模塊及變量。 （ 2）當(dāng)開(kāi)始輸入數(shù)字時(shí)，如果直接輸入小數(shù)點(diǎn)“ .”，則以“ 0.”代替。 （ 5） 每點(diǎn)擊退格鍵“ Backspace”一次，刪除一個(gè)已寫(xiě)入的字符，當(dāng)回退到頭廣東工程職業(yè)技術(shù)學(xué)院畢業(yè)論文 15 部的時(shí)候，點(diǎn)擊退格鍵不再起作用。 （ 3）對(duì)于“ ”負(fù)號(hào)字符，只允許在數(shù)字開(kāi)始處寫(xiě)入。 （ 2）不能在一個(gè)數(shù)字中出現(xiàn)兩個(gè)小數(shù)點(diǎn)。思路歸納如下： 第一、 關(guān)于輸入的規(guī)范 （ 1） 數(shù)字和運(yùn)算符必須交替輸入，而且必須是從數(shù)字開(kāi)始。 表 31 計(jì)算器窗體及各個(gè)控件的主要屬性 控件類(lèi)型 控件名 主要屬性 Form Form1 Caption=“實(shí)用計(jì)算器” TexBox Text1 Text=“ 0” Alignment=1 – Right Justify Locekd=True CommandButton Command1(0) Caption=“ 0” Command1(1) Caption=“ 1” Command1(2) Caption=“ 2” Command1(3) Caption=“ 3” Command1(4) Caption=“ 4” Command1(5) Caption=“ 5” Command1(6) Caption=“ 6” Command1(7) Caption=“ 7” Command1(8) Caption=“ 8” Command1(9) Caption=“ 9” Command1(10) Caption=“ .” Command2(0) Caption= ―+‖ Command2(1) Caption= ―‖ Command2(2) Caption= ―/‖ Command2(3) Caption= ―*‖ Command2(4) Caption= ―=‖ Command3(0) Caption= ―sin‖ Command3(1) Caption= ―cos‖ Command3(2) Caption= ―tan‖ Command3(3) Caption= ―cot‖ 廣東工程職業(yè)技術(shù)學(xué)院畢業(yè)論文 14 續(xù)表： 控件類(lèi)型 控件名 主要屬性 CommandButton Command4（ 0） Caption=“ 1/x” Command4（ 1） Caption=“ x^2” Command4（ 2） Caption=“ SQL” Command4（ 3） Caption=“ log” Command4（ 4） Caption=“ N!” Command5 Caption=“ +/” Command6 Caption=“ Backspace” Command7 Caption=“ clr” Command8 Caption=“ ” Timer Timer1 Enabled=“ False” Timer2 Enabled=“ False” ? 3 編寫(xiě)代碼 因?yàn)閷?shí)用計(jì)算器的程序是實(shí)現(xiàn)簡(jiǎn)單的表達(dá)式計(jì)算，所以在沒(méi)有按下“ =”按 鈕之前，所做的工作就是表達(dá)式的 輸入與顯示， 這一部分主要講解通過(guò)按鈕響應(yīng)獲取表達(dá)式。 本次實(shí)用計(jì)算器的總的窗體布置如圖 35 所示。 添加 mand5 控件 /+，添加 Command6 控件 Backspace，添加 Command7控件 Clr，添加 Command8 控件為 隱藏 /顯示界面的按鈕。 廣東工程職業(yè)技術(shù)學(xué)院畢業(yè)論文 12 添加“運(yùn)算符”按鈕控件數(shù)組 ，同理創(chuàng)建運(yùn)算符控件數(shù)組，如圖 34 所示， 其 中加減除乘等 于 的 Index 屬性為 0、 4 圖 34 添加 Command2 控件數(shù)組 添加其他 按鈕，添加 Command3 數(shù)組控件 sin、 cos、 tan、 cot，其 Index 屬性 為 0、 3。其中這里的 Index 作為響應(yīng)程序的傳入?yún)?shù)。 圖 32 提示創(chuàng)建控件數(shù)組 選擇“是”，然后連續(xù)粘貼 10 個(gè)，依次把按鈕的 Caption 設(shè)定為 0~9 以及一個(gè)小數(shù)點(diǎn)。 添加 TextBox 控件，雙擊標(biāo)準(zhǔn)工具箱的 TextBox 控件，然后調(diào)整其大 小和位置（如圖 31），把控件的 Caption 設(shè)置為“ 0” ；對(duì)齊方式（ Alignment）設(shè)為右對(duì)齊（ 1— Right Justify）。 將系統(tǒng)默認(rèn)產(chǎn)生的窗體保存為 文件。其中 Command5 為“負(fù)數(shù)”的控件， Command6 為“退格”控件， Command7 為“清零”控件， Command8為隱藏界面的控件。 有 4 個(gè)作為函數(shù)運(yùn)算（ sin cos tan cot）的操作按鈕，為數(shù)組控件 Command3。 在 29 個(gè) CommandButton 控件中，有10 個(gè)作為 數(shù)字 按鈕（包括小數(shù)點(diǎn)按鈕），為數(shù)組控件 Command1。 （ 5） 保 存工程及生成可執(zhí)行文件。 （ 3） 編寫(xiě)代碼。 廣東工程職業(yè)技術(shù)學(xué)院畢業(yè)論文 10 ? 第三章 實(shí)用計(jì)算器的設(shè)計(jì) Visual Basic 程序設(shè)計(jì)一般有五個(gè)步驟，具體如下： （ 1） 創(chuàng)建應(yīng)用程序的界面。該選項(xiàng)卡中列出 Visua 能建立的應(yīng)用程序類(lèi)型 現(xiàn)存：用于選擇并打開(kāi)現(xiàn)有的工程 最新：列出最近打開(kāi)過(guò)的工程幾其所在的文件夾。 （ 1） 啟動(dòng) Visual Basic 廣東工程職業(yè)技術(shù)學(xué)院畢業(yè)論文 8 單擊“開(kāi)始” —— “程序” —— “ Microsoft Visual Basic 中文版 命令，即可啟動(dòng) Visual Basic，彈出如下圖所示的“新建工程”對(duì)話框。對(duì)象型在 Visual Basic 的較高層次的編程中實(shí)用。 對(duì)象 型數(shù)據(jù)（ Object），對(duì)象型數(shù)據(jù)作為 32 位地址存儲(chǔ)，該地址可 引用當(dāng)前應(yīng)用程序或其他應(yīng)用程序中的對(duì)象。 Null 通常用于數(shù)據(jù)庫(kù)應(yīng)用程序，表示未知數(shù)據(jù)或丟失的數(shù)據(jù)。 Empty、 Null、 Error。一個(gè)變體型的變量能夠存儲(chǔ)所有系統(tǒng)定義類(lèi)型的數(shù)據(jù)， 可以隨為它所賦值的值的類(lèi)型而改變自身類(lèi)型，系統(tǒng)默認(rèn)的數(shù)據(jù)類(lèi)型是變體型。變長(zhǎng)字符串，字符串的長(zhǎng)度不固定，隨著給字符 串變量賦值，它的長(zhǎng)度可以發(fā)生變化。在 Visual Basic 中，字符串分為定長(zhǎng) 字符串和變長(zhǎng)字符串兩種類(lèi)型。也可以把其他類(lèi)型的數(shù)據(jù)（數(shù)值型或由數(shù)字 組成的字符串型數(shù)據(jù)）轉(zhuǎn)換為邏輯型數(shù)據(jù)，此時(shí)，非 0 的數(shù)據(jù)轉(zhuǎn)換為 True， 0 轉(zhuǎn)換為False。它采用定點(diǎn)表示形式，在計(jì)算機(jī)中一般用 8 個(gè)字節(jié)來(lái)表示，其取值范圍為~ 邏輯型數(shù)據(jù)（ Boolean），邏輯型數(shù)據(jù)有兩個(gè)值： True（真）和 False （假） 邏輯型數(shù)據(jù)在計(jì)算機(jī)內(nèi)用 2 個(gè)字節(jié)保存。雙精度實(shí)型在計(jì)算機(jī)中用 8 個(gè)字節(jié)來(lái)表示的實(shí)數(shù)，其取值范圍為 +/~+/。根據(jù)所表示的數(shù)的范圍和精度不同，又可以分為單精度實(shí)型（ Single）、雙精度實(shí)型（ Double）、貨幣型（ Currency）三種類(lèi)型。整型是指在計(jì)算機(jī)內(nèi)用兩個(gè)字節(jié)來(lái)存儲(chǔ)的整數(shù)，其取值范圍為32768~+32767，長(zhǎng)整型是指在計(jì)算機(jī)內(nèi)用四個(gè)字節(jié)來(lái)存儲(chǔ)的整數(shù)，其取值范圍為 2147483648~2147483647。 字節(jié)型為無(wú)符號(hào) 整數(shù)。 整型表示的就是整數(shù)，整數(shù)運(yùn)算速度快、精確，但表示數(shù)的范圍小。 Visual Basic 提供的標(biāo)準(zhǔn)數(shù)據(jù)類(lèi)型有數(shù)值型、邏輯型、日期型、字符串型、可變型、對(duì)象型等。 ? Visual Basic 語(yǔ)言基礎(chǔ) 在 Visual Basic 中，為解決各類(lèi)實(shí)際問(wèn)題要采用各種不同的數(shù)據(jù)類(lèi)型。 （ l0） 聯(lián)機(jī)幫助功能 在 VB 中，利用幫助菜單和 F1 功能鍵，用戶(hù)可隨時(shí)方便地得到所需要的幫助信息。 （ 9） 支持動(dòng)態(tài)交換、動(dòng)態(tài)鏈接技術(shù)． 通過(guò)動(dòng)態(tài)數(shù)據(jù)交換 (DDE)的編程技術(shù)， VB 開(kāi)發(fā)的應(yīng)用程序能與其他 Windows應(yīng)用程序之間建立數(shù)據(jù)通信。利用這種技術(shù)可以動(dòng)態(tài)創(chuàng)建和編輯 Web 頁(yè)面，使用戶(hù)在 VB 中開(kāi)發(fā)多功能的網(wǎng)絡(luò)應(yīng)用軟件。利用 OLE 技術(shù)，能夠開(kāi)發(fā)集聲音、圖像、動(dòng)畫(huà)、字處理、 Web 等對(duì)象于一體的程序。 （ 5） 強(qiáng)大的數(shù)據(jù)庫(kù)訪問(wèn)功能 VB 利用數(shù)據(jù)控件可以訪問(wèn)多種數(shù)據(jù)庫(kù)， VB 6． O 提供的 ADO 控件，不但可以用最少的代碼實(shí)現(xiàn)數(shù)據(jù)庫(kù)操作和控制，也可以取代 Data 控件和 RDO 控件。 （ 4） 結(jié)構(gòu)化的程序設(shè)計(jì)語(yǔ)言 VB 具有豐富的數(shù)據(jù)類(lèi)型，是一種符合結(jié)構(gòu)化程序設(shè)計(jì)思想的語(yǔ)言，而且簡(jiǎn)單 易學(xué)。在這個(gè)環(huán)境中，編程者可設(shè)計(jì)界面、編寫(xiě)代碼、調(diào)試程序，直至把應(yīng)用程序編譯成可在 Windows 中運(yùn)行的可執(zhí)行文件，并為它生成安裝程序。整個(gè)應(yīng)用程序就是由彼此獨(dú)立的事件過(guò)程構(gòu)成。例如，單擊一個(gè)命令按鈕，就觸發(fā)了按鈕的 Click(單擊 )事件，該廣東工程職業(yè)技術(shù)學(xué)院畢業(yè)論文 6 事件中的代碼就會(huì)被執(zhí)行。通常稱(chēng)這種機(jī)制為事件驅(qū)動(dòng)。面向?qū)ο蟮木幊叹秃孟翊罘e木一樣，程序員可根據(jù)程序和界面設(shè)計(jì)要求，直接在屏幕上 ―畫(huà) 出窗口、菜單、按鈕等不同類(lèi)型的對(duì)象，并為每個(gè)對(duì)象設(shè)置屬性。 （ 5） 充分利用 Windows 資源 （ 6） 方便實(shí)用的程序向?qū)? Visual Basic 語(yǔ)言 具有以下一些特點(diǎn)： （ 1） 面向?qū)ο? VB 采用了面向?qū)ο蟮某绦蛟O(shè)計(jì)思想。 Visual Basic 的主要特點(diǎn) （ 1） 面對(duì)對(duì)象的可視化設(shè)計(jì)平臺(tái)。 Visual Basic 是基于 BASIC 的可視化程序設(shè)計(jì)語(yǔ)言，它繼承了 BASIC 語(yǔ)言簡(jiǎn)單易懂的特點(diǎn)，采用面向?qū)ο?、事件?qū)動(dòng)的編程機(jī)制，提供了直觀的可視化程序設(shè)計(jì)方法。無(wú)論是大型企業(yè)應(yīng)用系統(tǒng)，還是遍及全球的 Inter 的分布式應(yīng)用程序，都可以利用Visual Basic 來(lái)實(shí)現(xiàn) 。 Commandbutton 按鈕實(shí)現(xiàn) 數(shù)字鍵和其他算法按鍵的功能 ； Textbox 實(shí)現(xiàn)計(jì)算過(guò) 程和結(jié)果的數(shù)字顯示； Timerbox 實(shí)現(xiàn)當(dāng)計(jì)算器只用到四則的簡(jiǎn)單運(yùn)算時(shí)，窗體只顯示四種運(yùn)算的基本按鍵，當(dāng)用到科學(xué)計(jì)算時(shí)，再在窗體中顯示科學(xué)計(jì)算的控件按鈕。 本設(shè)計(jì)大體由 窗體 、 CommandButton、 Textbox、 Timer 四個(gè)模塊構(gòu)成。于是本設(shè)計(jì)就是以這 兩個(gè) 個(gè)部分為核心內(nèi)容展開(kāi)。 ? 系統(tǒng)的設(shè)計(jì) 系統(tǒng)設(shè)計(jì)的總體思路 實(shí)現(xiàn)這個(gè) 實(shí)用計(jì)算器，要考慮的主要是以下 兩 個(gè)方面的內(nèi)容：一、設(shè)置每個(gè)控件按鈕的屬性。設(shè)計(jì)者只要完成對(duì) 控件 的功能描述，就可以利用計(jì)算機(jī)和工具，進(jìn)行設(shè)計(jì)處理 ，最終 實(shí)現(xiàn)理想 的 設(shè)計(jì) 效 果。 利用 VB 設(shè)計(jì) 是電子設(shè)計(jì)的發(fā)展趨勢(shì)，利用 VB 工具可以代替設(shè)計(jì)者完成電子系統(tǒng)設(shè)計(jì)中的大部分工作。 關(guān)鍵詞 ： Visual Basic；計(jì)算器；對(duì)象；代碼 廣東工程職業(yè)技術(shù)學(xué)院畢業(yè)論文