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

1、基于vb實用計算器的設計 design of practical calculator base on vb 摘要隨著科學技術(shù)的不斷提高,計算機科學日漸成熟 ,它已進入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。計算器軟件系統(tǒng)應該能夠為用戶提供豐富的手段。使用計算器運算,具有著其他方式所無法比擬的優(yōu)點.例如查找方便、價格便宜、可保存信息等。這些優(yōu)點能夠極大地提高效率,也是國家的科學化、信息化管理,與世界接軌的重要條件。本文著重分析計算器的運算法則與代碼的關(guān)系以及控件數(shù)組的創(chuàng)建和使用技巧，并在microsoft公司出品的一個面向?qū)ο蟮目梢暬_發(fā)工具visual basic上，采用vb語言及窗體界

2、面的設計方法，界面設計直接在屏幕上顯示出窗口、文本框、按鈕等區(qū)別類型對象并為每個對象設置屬性。實現(xiàn)了基于visual basic 6.0軟件上運行控制的設計方法設計一個簡易的計算器，可視化界面給操作帶來很大的方便。關(guān)鍵詞： visual basic；計算器；對象；代碼 abstractwith the continuous improvement of science and technology, computer science increasingly mature, it has access to all areas of human society, and play an inc

3、reasingly 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,

4、 is also the countrys 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 array of skills and microsoft companies produce go in an object-orie

5、nted 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 set properties. achieved based on visual basic 6.0 software, runnin

6、g 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設計的功能41.2系統(tǒng)的設計41.2.1 系統(tǒng)設計的總體思路41.2.2 總體方案的設計4第二章vb設計系統(tǒng)52.1 visual basic 語言基礎(chǔ)62.2 visual basic 6.0的開發(fā)環(huán)境7第三章 實用計算器的設計1

7、03.1設置窗體布局103.2設置屬性133.3編寫代碼. 143.4 調(diào)試運行.213.5 保存工程及生成可執(zhí)行文件.22 第四章 總結(jié)25參考文獻.26致 謝27 第一章 緒論 1.1 設計的功能visual basic 6.0編程語言是由micrsoft 公司推出的當今最優(yōu)秀、最流行的可視化快速軟件開發(fā)工具之一。利用vb設計是電子設計的發(fā)展趨勢，利用vb工具可以代替設計者完成電子系統(tǒng)設計中的大部分工作。vb工具發(fā)展到今天，應用范圍已涉及綜合辦公軟件的開發(fā)、信息管理系統(tǒng)等多個領(lǐng)域，可以實現(xiàn)日常生活各個領(lǐng)域應用軟件的設計、測試等。設計者只要完成對控件的功能描述，就可以利用計算機和工具，進行設

8、計處理，最終實現(xiàn)理想的設計效果。本設計是基于visual basic 6.0，用visual basic 程序設計語言實現(xiàn)的，集科學性，先進性，創(chuàng)新性，實用性于一體，并在功能強大的vb 6.0應用軟件系統(tǒng)實現(xiàn)實用計算器的功能，包括常見的四則運算和部分科學計算方法。 1.2 系統(tǒng)的設計l 1.2.1 系統(tǒng)設計的總體思路實現(xiàn)這個實用計算器，要考慮的主要是以下兩個方面的內(nèi)容：一、設置每個控件按鈕的屬性。二、每組控件組都有自己的vb代碼，由vb語言實現(xiàn)各個控件按鈕的功能。于是本設計就是以這兩個個部分為核心內(nèi)容展開。l 1.2.2 總體方案的設計根據(jù)設計要求該實用計算器能實現(xiàn)四則運算和部分科學計算法等按

9、鈕的控制，根據(jù)各組控件按鈕源代碼的不同，來實現(xiàn)按下不同的按鍵實現(xiàn)不同的計算過程或結(jié)果功能。本設計大體由窗體、commandbutton、textbox、timer四個模塊構(gòu)成。其中commandbutton作為按鈕模塊，textbox作為顯示模塊，timer作為顯示或隱藏部分按鍵的模塊。commandbutton按鈕實現(xiàn)數(shù)字鍵和其他算法按鍵的功能；textbox實現(xiàn)計算過程和結(jié)果的數(shù)字顯示；timerbox實現(xiàn)當計算器只用到四則的簡單運算時，窗體只顯示四種運算的基本按鍵，當用到科學計算時，再在窗體中顯示科學計算的控件按鈕。 第二章 vb設計系統(tǒng)visual basic是microsoft公司出

10、品的一個面向?qū)ο蟮目梢暬_發(fā)工具。無論是大型企業(yè)應用系統(tǒng)，還是遍及全球的internet的分布式應用程序，都可以利用visual basic來實現(xiàn)。visual意為“可視化”，basic指basic語言（beginners all-purpose symbolic instruction code）。visual basic是基于basic的可視化程序設計語言，它繼承了basic語言簡單易懂的特點，采用面向?qū)ο?、事件?qū)動的編程機制，提供了直觀的可視化程序設計方法。在以windows操作系統(tǒng)為平臺的眾多可視化編程工具中，visual basic 6.0是微軟公司于1998年推出的可視化編程工具，

11、是目前面對對象開發(fā)的主要語言之一，具有易用性、通用性和開發(fā)效率高等特點，這使得visual basic 6.0特別適合于進行一般應用程序的開發(fā)，成為最流行的windows 應用程序開發(fā)語言之一。visual basic 6.0的主要特點（1） 面對對象的可視化設計平臺。（2） 事件驅(qū)動的編程機制（3） 結(jié)構(gòu)化的程序設計語言（4） 強大的數(shù)據(jù)庫功能和網(wǎng)絡開發(fā)功能。（5） 充分利用windows 資源（6） 方便實用的程序向?qū)isual basic語言具有以下一些特點： （1）面向?qū)ο?vb采用了面向?qū)ο蟮某绦蛟O計思想。它的基本思路是把復雜的程序設計問題分解為一個個能夠完成獨立功能的相對簡單的對

12、象集合，所謂“對象”就是一個可操作的實體，如窗體、窗體中的命令按鈕、標簽、文本框等。面向?qū)ο蟮木幊叹秃孟翊罘e木一樣，程序員可根據(jù)程序和界面設計要求，直接在屏幕上“畫出窗口、菜單、按鈕等不同類型的對象，并為每個對象設置屬性。 （2）事件驅(qū)動 在windows環(huán)境下，程序是以事件驅(qū)動方式運行的，每個對象都能響應多個不同的事件，每個事件都能驅(qū)動一段代碼事件過程，該代碼決定了對象的功能。通常稱這種機制為事件驅(qū)動。事件可由用戶的操作觸發(fā)，也可以由系統(tǒng)或應用程序觸發(fā)。例如，單擊一個命令按鈕，就觸發(fā)了按鈕的click(單擊)事件，該事件中的代碼就會被執(zhí)行。若用戶未進行任何操作(未觸發(fā)事件)，則程序就處于等待

13、狀態(tài)。整個應用程序就是由彼此獨立的事件過程構(gòu)成。 （3）軟件的集成式開發(fā) vb為編程提供了一個集成開發(fā)環(huán)境。在這個環(huán)境中，編程者可設計界面、編寫代碼、調(diào)試程序，直至把應用程序編譯成可在windows中運行的可執(zhí)行文件，并為它生成安裝程序。vb的集成開發(fā)環(huán)境為編程者提供了很大的方便。 （4）結(jié)構(gòu)化的程序設計語言 vb具有豐富的數(shù)據(jù)類型，是一種符合結(jié)構(gòu)化程序設計思想的語言，而且簡單易學。此外作為一種程序設計語言，vb還有許多獨到之處。 （5）強大的數(shù)據(jù)庫訪問功能 vb利用數(shù)據(jù)控件可以訪問多種數(shù)據(jù)庫，vb 6o提供的ado控件，不但可以用最少的代碼實現(xiàn)數(shù)據(jù)庫操作和控制，也可以取代data控件和rdo

14、控件。 （6）支持對象的鏈接與嵌入技術(shù) vb的核心是對對象的鏈接與嵌入(ole)技術(shù)的支持，它是訪問所有對象的一種方法。利用ole技術(shù)，能夠開發(fā)集聲音、圖像、動畫、字處理、web等對象于一體的程序。 （7）網(wǎng)絡功能 vb 6o提供了dlttml(dynamicttml)設計工具。利用這種技術(shù)可以動態(tài)創(chuàng)建和編輯web頁面，使用戶在vb中開發(fā)多功能的網(wǎng)絡應用軟件。 （8）多個應用程序向?qū)?vb提供了多種向?qū)В鐟贸绦蛳驅(qū)?、安裝向?qū)А?shù)據(jù)對象向?qū)Ш蛿?shù)據(jù)窗體向?qū)?，通過它們可以快速地創(chuàng)建不同類型、不同功能的應用程序。 （9）支持動態(tài)交換、動態(tài)鏈接技術(shù) 通過動態(tài)數(shù)據(jù)交換(dde)的編程技術(shù)，vb開發(fā)的應

15、用程序能與其他windows應用程序之間建立數(shù)據(jù)通信。通過動態(tài)鏈接庫技術(shù)，在vb程序中可方便地調(diào)用用c語言或匯編語言編寫的函數(shù)，也可調(diào)用windows的應用程序接口(api)函數(shù)。 （l0）聯(lián)機幫助功能 在vb中，利用幫助菜單和f1功能鍵，用戶可隨時方便地得到所需要的幫助信息。vb幫助窗口中顯示了有關(guān)的示例代碼，通過復制、粘貼操作可獲取大量的示例代碼，為用戶的學習和使用提供方便。 2.1 visual basic語言基礎(chǔ)在visual basic 6.0中，為解決各類實際問題要采用各種不同的數(shù)據(jù)類型。數(shù)據(jù)類型不同，它所表達的數(shù)據(jù)范圍、精度、所占的存儲空間和可以進行的運算均不相同。visual

16、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é)表示，其取值范圍為0255。整型是指在計算機內(nèi)用兩個字節(jié)來存儲的整數(shù)，其取值范圍為-32768+32767，長整型是指在計算機內(nèi)用四個字節(jié)來存儲的整數(shù)，其取值范圍為-21474836482147483647。 實型表示

17、的就是實數(shù)，實數(shù)采用浮點表示形式，表示數(shù)的范圍大，有誤差，且運算速度慢。根據(jù)所表示的數(shù)的范圍和精度不同，又可以分為單精度實型（single）、雙精度實型（double）、貨幣型（currency）三種類型。單精度實型在計算機中用4個字節(jié)來表示的實數(shù)，其取值范圍為+/-1.401298e-45+/-3.402823e38。雙精度實型在計算機中用8個字節(jié)來表示的實數(shù)，其取值范圍為+/-4.94065645841247d-324+/-1.79769313486232d308。貨幣型是一種特殊的實數(shù)，是專門為處理貨幣而設計的數(shù)據(jù)類型。它采用定點表示形式，在計算機中一般用8個字節(jié)來表示，其取值范圍為-9

18、22337203685477.5808922337203685477.5807l 邏輯型數(shù)據(jù)（boolean），邏輯型數(shù)據(jù)有兩個值：true（真）和false（假）邏輯型數(shù)據(jù)在計算機內(nèi)用2個字節(jié)保存?？梢园阉鼈冝D(zhuǎn)換成數(shù)值型數(shù)據(jù)，此時，true為-1，false為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ù)是用雙引號括起來的一串字符組合，引號內(nèi)的字符可以是字母、各種符號和漢字。在visual

19、 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為還沒有為變量賦值，它不同于數(shù)值0、長度為0的字符串” 和空值null，后三者都

20、有特定的值。null通常用于數(shù)據(jù)庫應用程序，表示未知數(shù)據(jù)或丟失的數(shù)據(jù)。error為特定值，指出已發(fā)生的過程中的錯誤狀態(tài)。l 對象型數(shù)據(jù)（object），對象型數(shù)據(jù)作為32位地址存儲，該地址可引用當前應用程序或其他應用程序中的對象?？梢杂胹et語句指定一個聲明為object的變量，以引用應用程序能識別的任何實際對象。對象型在visual basic 6.0的較高層次的編程中實用。 2.2 visual basic 6.0的開發(fā)環(huán)境visual basic 6.0不僅是一種編程語言，而且是集應用程序開發(fā)、調(diào)試和測于一體的集成開發(fā)環(huán)境（ide）。（1） 啟動visual basic 6.0單擊“開始

21、”“程序”“microsoft visual basic 6.0 中文版命令，即可啟動visual basic，彈出如下圖所示的“新建工程”對話框。該對話框中有三個選項卡： 新建：創(chuàng)建新工程。該選項卡中列出visua lbasic6.0能建立的應用程序類型 現(xiàn)存：用于選擇并打開現(xiàn)有的工程 最新：列出最近打開過的工程幾其所在的文件夾。 圖21 “新建工程”對話框（2）visual basic 6.0 集成開發(fā)環(huán)境的組成 圖22 visual basic 6.0集成開發(fā)環(huán)境集成開發(fā)環(huán)境中主要包含以下窗口：主窗口（main windows）、工具箱（tool box）、窗體（form）窗口、工程資源

22、管理器（project explorer）、屬性（properties）面板以及窗體布局（form layout）面板等。 第三章 實用計算器的設計visual basic 6.0程序設計一般有五個步驟，具體如下：（1） 創(chuàng)建應用程序的界面。（2） 設置屬性。（3） 編寫代碼。（4） 調(diào)試運行。（5） 保存工程及生成可執(zhí)行文件。 3.1 設置窗體布局在實用計算器的設計中，該程序的窗體當中含有1個textbox控件、29個commandbutton控件和2個timer控件。在29個commandbutton控件中，有10個作為數(shù)字按鈕（包括小數(shù)點按鈕），為數(shù)組控件command1。有5個作為四則

23、運算（+ - * / = ）的操作按鈕，為數(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文件。默認窗體的name屬性為form1，caption屬性為“實用計算器”。l 2、添加textbox控件，

24、雙擊標準工具箱的textbox控件，然后調(diào)整其大小和位置（如圖3-1），把控件的caption設置為“0” ；對齊方式（alignment）設為右對齊（1right justify）。 圖3-1 添加textbox 控件l 3、創(chuàng)建“數(shù)字”按鈕控件數(shù)組，首先創(chuàng)建一個按鈕command1，選定之后用ctrl+c將其復制到剪貼板上，再用ctrl+v粘貼一個新的控件，因為它與原控件有相同的name屬性，所以會出現(xiàn)如圖3-2所示的警告信息。 圖3-2 提示創(chuàng)建控件數(shù)組選擇“是”，然后連續(xù)粘貼10個，依次把按鈕的caption設定為09以及一個小數(shù)點。結(jié)果如圖3-3所示。其中這里的index作為響應程序

25、的傳入?yún)?shù)。 圖3-3 添加command1控件數(shù)組對于控件數(shù)組有兩點說明，1、控件數(shù)組內(nèi)的控件共享同樣的事件過程設置；這在很大程度上減少了用來響應控件的代碼，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。添加command4數(shù)組控件1/x、 x2、sql、log、n！，其index屬性依次為0、1、2、3、4。

26、添加command5控件-/+，添加command6控件backspace，添加command7控件clr，添加command8控件為隱藏/顯示界面的按鈕。timer1控制界面的顯示，timer2控制界面的隱藏。l 6、本次實用計算器的總的窗體布置如圖3-5所示。 3、2設置屬性 下表3-1列出了實用計算器窗體及其各個控件的主要屬性設置。 表3-1 計算器窗體及各個控件的主要屬性控件類型 控件名 主要屬性 formform1caption=“實用計算器”texboxtext1text=“0”alignment=1 right justifylocekd=truecommandbuttoncom

27、mand1(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)cap

28、tion= “/”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（2）caption=“sql”command4（3）caption=“l(fā)og”command4（4）caption=

29、“n!”command5caption=“+/-”command6caption=“backspace”command7caption=“clr”command8caption=“ ”timertimer1enabled=“false”timer2enabled=“false” 3、3 編寫代碼因為實用計算器的程序是實現(xiàn)簡單的表達式計算，所以在沒有按下“=”按鈕之前，所做的工作就是表達式的輸入與顯示，這一部分主要講解通過按鈕響應獲取表達式。為了合理的完成用戶對表達式的輸入，程序本身應該有一個存取字符串和易于接受的輸入方式。思路歸納如下：第一、關(guān)于輸入的規(guī)范（1） 數(shù)字和運算符必須交替輸入，而且

30、必須是從數(shù)字開始。如果從運算符開始，則此運算符不予接收；如果連續(xù)輸入兩個運算符，則用后一個沖掉前面一個；如果一個數(shù)字剛輸入負號則不接收運算符。 （2）不能在一個數(shù)字中出現(xiàn)兩個小數(shù)點。如果出現(xiàn)第二個小數(shù)點，則此運算符不予接收。 （3）對于“-”負號字符，只允許在數(shù)字開始處寫入。 （4）連續(xù)輸入負號字符，則負號字符寫入和刪去交替。 （5）每點擊退格鍵“backspace”一次，刪除一個已寫入的字符，當回退到頭部的時候，點擊退格鍵不再起作用。 第二、關(guān)于字符串的整理 （1）數(shù)字的整數(shù)部分不以“0”開頭（0.*除外），對于用戶輸入的多余的“0”程序自動將它刪除。 （2）當開始輸入數(shù)字時，如果直接輸入小

31、數(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語句在一個模塊的說明部分說明了一個變量，即創(chuàng)建了一個私有的模塊及變量。這樣的變量只有在它屬于的模塊內(nèi)可見，不能從模塊外部對其進行訪問。l 初始化代碼

32、private sub form_load() dflag = 0 prev = 0 oflag = 0 ind = 0待添加的隱藏文字內(nèi)容3 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 = 4 then prev = 0 text1.text = ind = 0 end if opnre =

33、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 = & command1(index).caption end if else if dflag = 0 then text1.text = text1.text & . dflag = 1 else msgbox (輸入錯誤) end if end if

34、end subl 運算符代碼private sub command2_click(index as integer) if opnre = 0 or index = 4 then if ind = 0 then prev = prev + val(text1.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

35、 elseif ind = 3 then prev = prev * val(text1.text) end if text1.text = str(prev) oflag = 0 end if opnre = 1 ind = 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(tex

36、t1.text) case 2 if (cos(val(text1.text) 0 then text1.text = str(sin(ang * val(text1.text) / cos(ang * val(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

37、as long temp = val(text1.text) select case index case 2 if temp 0 or temp = 0 then text1.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.

38、text case 3 dim nn as long nn = inputbox(輸入底數(shù), 對數(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 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