畢業(yè)設(shè)計(論文)-基于VB實用計算器的設(shè)計

1、 基于VB實用計算器的設(shè)計 Design of practical Calculator base on VB 作者姓名： 學(xué)科專業(yè)：電子設(shè)備技術(shù) 學(xué)院(系部)：機電工程系 指導(dǎo)教師： 2010年12月Ø 摘要隨著科學(xué)技術(shù)的不斷提高,計算機科學(xué)日漸成熟 ,它已進入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。計算器軟件系統(tǒng)應(yīng)該能夠為用戶提供豐富的手段。使用計算器運算,具有著其他方式所無法比擬的優(yōu)點.例如查找方便、價格便宜、可保存信息等。這些優(yōu)點能夠極大地提高效率,也是國家的科學(xué)化、信息化管理,與世界接軌的重要條件。本文著重分析計算器的運算法則與代碼的關(guān)系以及控件數(shù)組的創(chuàng)建和使用技巧，并

2、在Microsoft公司出品的一個面向?qū)ο蟮目梢暬_發(fā)工具Visual Basic上，采用VB語言及窗體界面的設(shè)計方法，界面設(shè)計直接在屏幕上顯示出窗口、文本框、按鈕等區(qū)別類型對象并為每個對象設(shè)置屬性。實現(xiàn)了基于Visual Basic 6.0軟件上運行控制的設(shè)計方法設(shè)計一個簡易的計算器，可視化界面給操作帶來很大的方便。關(guān)鍵詞： Visual Basic；計算器；對象；代碼 Ø AbstractWith the continuous improvement of science and technology, computer science increasingly mature,

3、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 i

4、nformation. These advantages can greatly improve efficiency, is also the country's scientific, information management, an important condition for integration with the world. This article focuses on analysis of algorithms and code calculator relationship and control the creation and use of an arr

5、ay of skills and Microsoft companies produce go in an object-oriented visual development tools, Visual Basic, using the VB language and interface design of form methods, interface design directly on the screen shown window, text boxes, buttons, etc. for each different type of object and object to se

6、t properties. Achieved based on Visual Basic 6.0 software, running on the control design method to design a simple calculator, visual interface to the operator great convenience.Keywords：Visual Basic, Calculator, Object, Code目錄摘要1Abstract2第一章 緒論41.1設(shè)計的功能41.2系統(tǒng)的設(shè)計41.2.1 系統(tǒng)設(shè)計的總體思路41.2.2 總體方案的設(shè)計4第二章VB設(shè)

7、計系統(tǒng)52.1 Visual Basic 語言基礎(chǔ)62.2 Visual Basic 6.0的開發(fā)環(huán)境7第三章 實用計算器的設(shè)計103.1設(shè)置窗體布局103.2設(shè)置屬性133.3編寫代碼. 143.4 調(diào)試運行.213.5 保存工程及生成可執(zhí)行文件.22 第四章 總結(jié)25參考文獻.26致 謝27Ø 第一章 緒論² 1.1 設(shè)計的功能Visual Basic 6.0編程語言是由Micrsoft 公司推出的當今最優(yōu)秀、最流行的可視化快速軟件開發(fā)工具之一。利用VB設(shè)計是電子設(shè)計的發(fā)展趨勢，利用VB工具可以代替設(shè)計者完成電子系統(tǒng)設(shè)計中的大部分工作。VB工具發(fā)展到今天，應(yīng)用范圍已涉及

8、綜合辦公軟件的開發(fā)、信息管理系統(tǒng)等多個領(lǐng)域，可以實現(xiàn)日常生活各個領(lǐng)域應(yīng)用軟件的設(shè)計、測試等。設(shè)計者只要完成對控件的功能描述，就可以利用計算機和工具，進行設(shè)計處理，最終實現(xiàn)理想的設(shè)計效果。本設(shè)計是基于Visual Basic 6.0，用Visual Basic 程序設(shè)計語言實現(xiàn)的，集科學(xué)性，先進性，創(chuàng)新性，實用性于一體，并在功能強大的VB 6.0應(yīng)用軟件系統(tǒng)實現(xiàn)實用計算器的功能，包括常見的四則運算和部分科學(xué)計算方法。² 1.2 系統(tǒng)的設(shè)計l 1.2.1 系統(tǒng)設(shè)計的總體思路實現(xiàn)這個實用計算器，要考慮的主要是以下兩個方面的內(nèi)容：一、設(shè)置每個控件按鈕的屬性。二、每組控件組都有自己的VB代碼，

9、由VB語言實現(xiàn)各個控件按鈕的功能。于是本設(shè)計就是以這兩個個部分為核心內(nèi)容展開。l 1.2.2 總體方案的設(shè)計根據(jù)設(shè)計要求該實用計算器能實現(xiàn)四則運算和部分科學(xué)計算法等按鈕的控制，根據(jù)各組控件按鈕源代碼的不同，來實現(xiàn)按下不同的按鍵實現(xiàn)不同的計算過程或結(jié)果功能。本設(shè)計大體由窗體、CommandButton、Textbox、Timer四個模塊構(gòu)成。其中Commandbutton作為按鈕模塊，Textbox作為顯示模塊，Timer作為顯示或隱藏部分按鍵的模塊。Commandbutton按鈕實現(xiàn)數(shù)字鍵和其他算法按鍵的功能；Textbox實現(xiàn)計算過程和結(jié)果的數(shù)字顯示；Timerbox實現(xiàn)當計算器只用到四則的

10、簡單運算時，窗體只顯示四種運算的基本按鍵，當用到科學(xué)計算時，再在窗體中顯示科學(xué)計算的控件按鈕。 Ø 第二章 VB設(shè)計系統(tǒng)Visual Basic是Microsoft公司出品的一個面向?qū)ο蟮目梢暬_發(fā)工具。無論是大型企業(yè)應(yīng)用系統(tǒng)，還是遍及全球的Internet的分布式應(yīng)用程序，都可以利用Visual Basic來實現(xiàn)。Visual意為“可視化”，Basic指BASIC語言（Beginners All-purpose Symbolic Instruction Code）。Visual Basic是基于BASIC的可視化程序設(shè)計語言，它繼承了BASIC語言簡單易懂的特點，采用面向?qū)ο?、事?/p>

11、驅(qū)動的編程機制，提供了直觀的可視化程序設(shè)計方法。在以Windows操作系統(tǒng)為平臺的眾多可視化編程工具中，Visual Basic 6.0是微軟公司于1998年推出的可視化編程工具，是目前面對對象開發(fā)的主要語言之一，具有易用性、通用性和開發(fā)效率高等特點，這使得Visual Basic 6.0特別適合于進行一般應(yīng)用程序的開發(fā)，成為最流行的Windows 應(yīng)用程序開發(fā)語言之一。Visual Basic 6.0的主要特點（1） 面對對象的可視化設(shè)計平臺。（2） 事件驅(qū)動的編程機制（3） 結(jié)構(gòu)化的程序設(shè)計語言（4） 強大的數(shù)據(jù)庫功能和網(wǎng)絡(luò)開發(fā)功能。（5） 充分利用Windows 資源（6） 方便實用的程

12、序向?qū)isual Basic語言具有以下一些特點： （1）面向?qū)ο?VB采用了面向?qū)ο蟮某绦蛟O(shè)計思想。它的基本思路是把復(fù)雜的程序設(shè)計問題分解為一個個能夠完成獨立功能的相對簡單的對象集合，所謂“對象”就是一個可操作的實體，如窗體、窗體中的命令按鈕、標簽、文本框等。面向?qū)ο蟮木幊叹秃孟翊罘e木一樣，程序員可根據(jù)程序和界面設(shè)計要求，直接在屏幕上“畫"出窗口、菜單、按鈕等不同類型的對象，并為每個對象設(shè)置屬性。 （2）事件驅(qū)動 在Windows環(huán)境下，程序是以事件驅(qū)動方式運行的，每個對象都能響應(yīng)多個不同的事件，每個事件都能驅(qū)動一段代碼事件過程，該代碼決定了對象的功能。通常稱這種機制為事件驅(qū)動。

13、事件可由用戶的操作觸發(fā)，也可以由系統(tǒng)或應(yīng)用程序觸發(fā)。例如，單擊一個命令按鈕，就觸發(fā)了按鈕的Click(單擊)事件，該事件中的代碼就會被執(zhí)行。若用戶未進行任何操作(未觸發(fā)事件)，則程序就處于等待狀態(tài)。整個應(yīng)用程序就是由彼此獨立的事件過程構(gòu)成。 （3）軟件的集成式開發(fā) VB為編程提供了一個集成開發(fā)環(huán)境。在這個環(huán)境中，編程者可設(shè)計界面、編寫代碼、調(diào)試程序，直至把應(yīng)用程序編譯成可在Windows中運行的可執(zhí)行文件，并為它生成安裝程序。VB的集成開發(fā)環(huán)境為編程者提供了很大的方便。 （4）結(jié)構(gòu)化的程序設(shè)計語言 VB具有豐富的數(shù)據(jù)類型，是一種符合結(jié)構(gòu)化程序設(shè)計思想的語言，而且簡單易學(xué)。此外作為一種程序設(shè)計語

14、言，VB還有許多獨到之處。 （5）強大的數(shù)據(jù)庫訪問功能 VB利用數(shù)據(jù)控件可以訪問多種數(shù)據(jù)庫，VB 6O提供的ADO控件，不但可以用最少的代碼實現(xiàn)數(shù)據(jù)庫操作和控制，也可以取代Data控件和RDO控件。 （6）支持對象的鏈接與嵌入技術(shù) VB的核心是對對象的鏈接與嵌入(OLE)技術(shù)的支持，它是訪問所有對象的一種方法。利用OLE技術(shù)，能夠開發(fā)集聲音、圖像、動畫、字處理、Web等對象于一體的程序。 （7）網(wǎng)絡(luò)功能 VB 6O提供了DltTML(DynamictTML)設(shè)計工具。利用這種技術(shù)可以動態(tài)創(chuàng)建和編輯Web頁面，使用戶在VB中開發(fā)多功能的網(wǎng)絡(luò)應(yīng)用軟件。 （8）多個應(yīng)用程序向?qū)?VB提供了多種向?qū)В?/p>

15、如應(yīng)用程序向?qū)А惭b向?qū)?、?shù)據(jù)對象向?qū)Ш蛿?shù)據(jù)窗體向?qū)?，通過它們可以快速地創(chuàng)建不同類型、不同功能的應(yīng)用程序。 （9）支持動態(tài)交換、動態(tài)鏈接技術(shù) 通過動態(tài)數(shù)據(jù)交換(DDE)的編程技術(shù)，VB開發(fā)的應(yīng)用程序能與其他Windows應(yīng)用程序之間建立數(shù)據(jù)通信。通過動態(tài)鏈接庫技術(shù)，在VB程序中可方便地調(diào)用用C語言或匯編語言編寫的函數(shù)，也可調(diào)用Windows的應(yīng)用程序接口(API)函數(shù)。 （l0）聯(lián)機幫助功能 在VB中，利用幫助菜單和F1功能鍵，用戶可隨時方便地得到所需要的幫助信息。VB幫助窗口中顯示了有關(guān)的示例代碼，通過復(fù)制、粘貼操作可獲取大量的示例代碼，為用戶的學(xué)習和使用提供方便。² 2.1 Vi

16、sual Basic語言基礎(chǔ)在Visual Basic 6.0中，為解決各類實際問題要采用各種不同的數(shù)據(jù)類型。數(shù)據(jù)類型不同，它所表達的數(shù)據(jù)范圍、精度、所占的存儲空間和可以進行的運算均不相同。Visual Basic 6.0 提供的標準數(shù)據(jù)類型有數(shù)值型、邏輯型、日期型、字符串型、可變型、對象型等。（1） 數(shù)據(jù)類型l 數(shù)值型數(shù)據(jù)（Numeric），數(shù)值型數(shù)據(jù)可分為整型和實型兩大類。整型表示的就是整數(shù)，整數(shù)運算速度快、精確，但表示數(shù)的范圍小。根據(jù)所表示的數(shù)的范圍不同，又可分為字節(jié)型（Byte）、整型（Integer）、長整型（Long）三種類型。字節(jié)型為無符號整數(shù)。在計算機內(nèi)用1個字節(jié)表示，其取值范

17、圍為0255。整型是指在計算機內(nèi)用兩個字節(jié)來存儲的整數(shù)，其取值范圍為-32768+32767，長整型是指在計算機內(nèi)用四個字節(jié)來存儲的整數(shù)，其取值范圍為-。 實型表示的就是實數(shù)，實數(shù)采用浮點表示形式，表示數(shù)的范圍大，有誤差，且運算速度慢。根據(jù)所表示的數(shù)的范圍和精度不同，又可以分為單精度實型（Single）、雙精度實型（Double）、貨幣型（Currency）三種類型。單精度實型在計算機中用4個字節(jié)來表示的實數(shù)，其取值范圍為+/-1.401298E-45+/-3.402823E38。雙精度實型在計算機中用8個字節(jié)來表示的實數(shù)，其取值范圍為+/-4.47D-324+/-1.32D308。貨幣型是一

18、種特殊的實數(shù)，是專門為處理貨幣而設(shè)計的數(shù)據(jù)類型。它采用定點表示形式，在計算機中一般用8個字節(jié)來表示，其取值范圍為-477.5808477.5807l 邏輯型數(shù)據(jù)（Boolean），邏輯型數(shù)據(jù)有兩個值：True（真）和False（假）邏輯型數(shù)據(jù)在計算機內(nèi)用2個字節(jié)保存?？梢园阉鼈冝D(zhuǎn)換成數(shù)值型數(shù)據(jù)，此時，True為-1，F(xiàn)alse為0。也可以把其他類型的數(shù)據(jù)（數(shù)值型或由數(shù)字組成的字符串型數(shù)據(jù)）轉(zhuǎn)換為邏輯型數(shù)據(jù)，此時，非0的數(shù)據(jù)轉(zhuǎn)換為True，0轉(zhuǎn)換為False。l 日期型數(shù)據(jù)（Date），日期型數(shù)據(jù)在計算機中一般用8個字節(jié)的浮點表示，l 字符串型數(shù)據(jù)（String），字符串型數(shù)據(jù)是用雙引號括起來的

19、一串字符組合，引號內(nèi)的字符可以是字母、各種符號和漢字。在Visual Basic 6.0中，字符串分為定長字符串和變長字符串兩種類型。定長字符串是指事先定義字符的長度（即字符串內(nèi)所含字符的個數(shù)），在程序運行過程中，始終保持其長度不變的字符串。變長字符串，字符串的長度不固定，隨著給字符串變量賦值，它的長度可以發(fā)生變化。l 變體型數(shù)據(jù)（Variant），變體型數(shù)據(jù)是一種特殊的數(shù)據(jù)類型，也呈可變型數(shù)據(jù)。一個變體型的變量能夠存儲所有系統(tǒng)定義類型的數(shù)據(jù)，可以隨為它所賦值的值的類型而改變自身類型，系統(tǒng)默認的數(shù)據(jù)類型是變體型。變體型數(shù)據(jù)有三個特殊的值。Empty、Null、Error。Empty為還沒有為變

20、量賦值，它不同于數(shù)值0、長度為0的字符串” 和空值Null，后三者都有特定的值。Null通常用于數(shù)據(jù)庫應(yīng)用程序，表示未知數(shù)據(jù)或丟失的數(shù)據(jù)。Error為特定值，指出已發(fā)生的過程中的錯誤狀態(tài)。l 對象型數(shù)據(jù)（Object），對象型數(shù)據(jù)作為32位地址存儲，該地址可引用當前應(yīng)用程序或其他應(yīng)用程序中的對象。可以用Set語句指定一個聲明為Object的變量，以引用應(yīng)用程序能識別的任何實際對象。對象型在Visual Basic 6.0的較高層次的編程中實用。² 2.2 Visual Basic 6.0的開發(fā)環(huán)境Visual Basic 6.0不僅是一種編程語言，而且是集應(yīng)用程序開發(fā)、調(diào)試和測于一體

21、的集成開發(fā)環(huán)境（IDE）。（1） 啟動Visual Basic 6.0單擊“開始”“程序”“Microsoft Visual Basic 6.0 中文版命令，即可啟動Visual Basic，彈出如下圖所示的“新建工程”對話框。該對話框中有三個選項卡： 新建：創(chuàng)建新工程。該選項卡中列出Visua lBasic6.0能建立的應(yīng)用程序類型 現(xiàn)存：用于選擇并打開現(xiàn)有的工程 最新：列出最近打開過的工程幾其所在的文件夾。 圖21 “新建工程”對話框（2）Visual Basic 6.0 集成開發(fā)環(huán)境的組成 圖22 Visual Basic 6.0集成開發(fā)環(huán)境集成開發(fā)環(huán)境中主要包含以下窗口：主窗口（Mai

22、n Windows）、工具箱（Tool box）、窗體（Form）窗口、工程資源管理器（Project Explorer）、屬性（Properties）面板以及窗體布局（Form Layout）面板等。 Ø 第三章 實用計算器的設(shè)計Visual Basic 6.0程序設(shè)計一般有五個步驟，具體如下：（1） 創(chuàng)建應(yīng)用程序的界面。（2） 設(shè)置屬性。（3） 編寫代碼。（4） 調(diào)試運行。（5） 保存工程及生成可執(zhí)行文件。² 3.1 設(shè)置窗體布局在實用計算器的設(shè)計中，該程序的窗體當中含有1個TextBox控件、29個CommandButton控件和2個Timer控件。在29個Comma

23、ndButton控件中，有10個作為數(shù)字按鈕（包括小數(shù)點按鈕），為數(shù)組控件Command1。有5個作為四則運算（+ - * / = ）的操作按鈕，為數(shù)組控件Command2。有4個作為函數(shù)運算（sin cos tan cot）的操作按鈕，為數(shù)組控件Command3。有5個作為倒數(shù)、開方、乘方、階乘、對數(shù)的運算按鈕，為數(shù)組控件Command4。其中Command5為“負數(shù)”的控件，Command6為“退格”控件，Command7為“清零”控件，Command8為隱藏界面的控件。l 1、創(chuàng)建工程，建立一個標準Exe工程，并將工程保存為“實用計算器”。將系統(tǒng)默認產(chǎn)生的窗體保存為form1.frm文件

24、。默認窗體的Name屬性為form1，Caption屬性為“實用計算器”。l 2、添加TextBox控件，雙擊標準工具箱的TextBox控件，然后調(diào)整其大小和位置（如圖3-1），把控件的Caption設(shè)置為“0” ；對齊方式（Alignment）設(shè)為右對齊（1Right Justify）。 圖3-1 添加TextBox 控件l 3、創(chuàng)建“數(shù)字”按鈕控件數(shù)組，首先創(chuàng)建一個按鈕Command1，選定之后用Ctrl+C將其復(fù)制到剪貼板上，再用Ctrl+V粘貼一個新的控件，因為它與原控件有相同的Name屬性，所以會出現(xiàn)如圖3-2所示的警告信息。 圖3-2 提示創(chuàng)建控件數(shù)組選擇“是”，然后連續(xù)粘貼10個

25、，依次把按鈕的Caption設(shè)定為09以及一個小數(shù)點。結(jié)果如圖3-3所示。其中這里的Index作為響應(yīng)程序的傳入?yún)?shù)。 圖3-3 添加Command1控件數(shù)組對于控件數(shù)組有兩點說明，1、控件數(shù)組內(nèi)的控件共享同樣的事件過程設(shè)置；這在很大程度上減少了用來響應(yīng)控件的代碼，2、可以在運行時動態(tài)地添加新元素到控件數(shù)組中。l 4、添加“運算符”按鈕控件數(shù)組，同理創(chuàng)建運算符控件數(shù)組，如圖3-4所示，其中加減除乘等于的Index屬性為0、1、2、3、4 圖 3-4 添加Command2控件數(shù)組l 5、添加其他按鈕，添加Command3數(shù)組控件sin、cos、tan、cot，其Index屬性為0、1、2、3。添

26、加command4數(shù)組控件1/x、 x2、SQL、log、N！，其Index屬性依次為0、1、2、3、4。添加command5控件-/+，添加Command6控件Backspace，添加Command7控件Clr，添加Command8控件為隱藏/顯示界面的按鈕。Timer1控制界面的顯示，Timer2控制界面的隱藏。l 6、本次實用計算器的總的窗體布置如圖3-5所示。² 3、2設(shè)置屬性 下表3-1列出了實用計算器窗體及其各個控件的主要屬性設(shè)置。 表3-1 計算器窗體及各個控件的主要屬性控件類型 控件名 主要屬性 FormForm1Caption=“實用計算器”TexBoxText1T

27、ext=“0”Alignment=1 Right JustifyLocekd=TrueCommandButtonCommand1(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=“.”C

28、ommand2(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” 續(xù)表： 控件類型 控件名 主要屬性CommandButtonCommand4（0）Caption=“1/x”Command4（1）Caption=“x2”Command4

29、（2）Caption=“SQL”Command4（3）Caption=“l(fā)og”Command4（4）Caption=“N!”Command5Caption=“+/-”Command6Caption=“Backspace”Command7Caption=“clr”Command8Caption=“ ”TimerTimer1Enabled=“False”Timer2Enabled=“False”² 3、3 編寫代碼因為實用計算器的程序是實現(xiàn)簡單的表達式計算，所以在沒有按下“=”按鈕之前，所做的工作就是表達式的輸入與顯示，這一部分主要講解通過按鈕響應(yīng)獲取表達式。為了合理的完成用戶對表達式

30、的輸入，程序本身應(yīng)該有一個存取字符串和易于接受的輸入方式。思路歸納如下：第一、關(guān)于輸入的規(guī)范（1） 數(shù)字和運算符必須交替輸入，而且必須是從數(shù)字開始。如果從運算符開始，則此運算符不予接收；如果連續(xù)輸入兩個運算符，則用后一個沖掉前面一個；如果一個數(shù)字剛輸入負號則不接收運算符。 （2）不能在一個數(shù)字中出現(xiàn)兩個小數(shù)點。如果出現(xiàn)第二個小數(shù)點，則此運算符不予接收。 （3）對于“-”負號字符，只允許在數(shù)字開始處寫入。 （4）連續(xù)輸入負號字符，則負號字符寫入和刪去交替。 （5）每點擊退格鍵“Backspace”一次，刪除一個已寫入的字符，當回退到頭部的時候，點擊退格鍵不再起作用。 第二、關(guān)于字符串的整理 （1

31、）數(shù)字的整數(shù)部分不以“0”開頭（0.*除外），對于用戶輸入的多余的“0”程序自動將它刪除。 （2）當開始輸入數(shù)字時，如果直接輸入小數(shù)點“.”，則以“0.”代替。 （3）每次加入一個運算符在運算符的兩側(cè)各加一個空格。 根據(jù)上面的分析可以操作除“=”按鈕的其他所有按鈕，具體的過程代碼分塊編寫如下：l 模塊變量定義Dim i As IntegerDim opnre As IntegerDim prev As DoubleDim oflag As IntegerDim ind As IntegerDim dflag As IntegerPublic ang As Double用Dim語句在一個模塊的說

32、明部分說明了一個變量，即創(chuàng)建了一個私有的模塊及變量。這樣的變量只有在它屬于的模塊內(nèi)可見，不能從模塊外部對其進行訪問。l 初始化代碼Private Sub Form_Load() dflag = 0 prev = 0 oflag = 0 ind = 0 opnre = 0 Clipboard.Clear ang = 3.1415926 / 180 Form1.Height = 4360End Subl 數(shù)字按鈕代碼以為控件數(shù)組共享同一事件，所以雙擊任一數(shù)字符按鈕，進入集成代碼環(huán)境編寫如下代碼：Private Sub Command1_Click(index As Integer) If ind

33、= 4 Then prev = 0 Text1.Text = " " ind = 0 End If opnre = 0 If oflag = 0 Then Text1.Text = " " End If oflag = 1 If Command1(index).Caption <> "." Then If Text1.Text <> " 0" Then Text1.Text = Text1.Text & Command1(index).Caption Else Text1.Text

34、= " " & Command1(index).Caption End If Else If dflag = 0 Then Text1.Text = Text1.Text & "." dflag = 1 Else MsgBox ("輸入錯誤") End If End If End Subl 運算符代碼Private Sub Command2_Click(index As Integer) If opnre = 0 Or index = 4 Then If ind = 0 Then prev = prev + Val(T

35、ext1.Text) ElseIf ind = 1 Then prev = prev - Val(Text1.Text) ElseIf ind = 2 Then If Val(Text1.Text) = 0 Then MsgBox ("0不能為除數(shù)") Exit Sub Else prev = prev / Val(Text1.Text) End If ElseIf ind = 3 Then prev = prev * Val(Text1.Text) End If Text1.Text = Str(prev) oflag = 0 End If opnre = 1 ind =

36、 index dflag = 0End Subl 三角函數(shù)運算符代碼Private Sub Command3_Click(index As Integer)Select Case index Case 0 Text1.Text = Str(Sin(ang * Val(Text1.Text) Case 1 Text1.Text = Str(Cos(ang * Val(Text1.Text) Case 2 If (Cos(Val(Text1.Text) <> 0 Then Text1.Text = Str(Sin(ang * Val(Text1.Text) / Cos(ang * Va

37、l(Text1.Text) Else MsgBox ("非法除以0") End If Case 3 Text1.Text = Str(Atn(Val(Text1.Text) / ang) End SelectEnd Subl 倒數(shù)、平方、開方、對數(shù)、階乘代碼Private Sub Command4_Click(index As Integer) Dim re As Long Dim temp As Long temp = Val(Text1.Text) Select Case index Case 2 If temp > 0 Or temp = 0 Then Text

38、1.Text = Str(Sqr(Val(Text1.Text) Else MsgBox (" 負數(shù)不能開根") End If Case 0 temp = Val(Text1.Text) If temp <> 0 Then Text1.Text = Str(1 / temp) Else MsgBox (" ILLEGAL DIVIDE 0 ") End If Case 1 Text1.Text = Text1.Text * Text1.Text Case 3 Dim nn As Long nn = InputBox("輸入底數(shù)&qu

39、ot;, "對數(shù)", "10") If Val(Text1.Text) > 0 Then Text1.Text = Str(Log(Val(Text1.Text) / Log(nn) Else MsgBox (" ILLEGAL. LOG NON POSITIVE ") End If Case 4 Text1.Text = Str(fact(Val(Text1.Text) End SelectEnd Subl 正負號代碼Private Sub Command5_Click()Text1.Text = -Text1.TextEnd

40、 Subl 退格鍵代碼Private Sub Command6_Click()If Text1.Text <> "" ThenText1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 1)End IfEnd Subl 清零代碼Private Sub Command7_Click()Text1.Text = "0"dflag = 0ind = 4End Subl 隱藏/顯示界面按鈕代碼Private Sub Command8_Click()If Form1.Height > 5000 ThenTimer2.Enabled = TrueElseTimer1.Enabled = TrueEnd IfEnd Subl 顯示界面代碼Private Sub Timer1_Timer()If Form1.Height < 6160 ThenForm1.Height = Form1