【正文】 Box 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‖ 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á)式。 （ 5） 每點(diǎn)擊退格鍵“ Backspace”一次，刪除一個(gè)已寫(xiě)入的字符，當(dāng)回退到頭 15 部的時(shí)候，點(diǎn)擊退格鍵不再起作用。 Command1(index).Caption End If Else If dflag = 0 Then = amp。此時(shí)打開(kāi)“生成工程 ‖對(duì)話(huà)框，如圖 39 所示，可以選擇工程存放位置以及工程名。 gTXRm 6X4NGpP$vSTTamp。gTXRm 6X4NGpP$vSTTamp。 gTXRm 6X4NGpP$vSTTamp。 gTXRm6X4NGpP$vSTTamp。 UE9aQGn8xp$Ramp。 gTXRm6X4NGpP$vSTTamp。 gTXRm 6X4NGpP$vSTTamp。 UE9aQGn8xp$Ramp。ksv*3t nGK8!z89Am YWpazadNuKNamp。 ksv*3t nGK8! z89Am UE9aQGn8xp$Ramp。 ksv*3t nGK8! z89Am YWpazadNuKNamp。 ksv*3t nGK8!z89Am YWv*3tnGK8! z89Am YWpazadNuKNamp。 ksv*3t nGK8!z89Am YWpazadNuKNamp。 ksv*3t nGK8! z89Am YWv*3tnGK8! z89Am YWpazadNuKNamp。 ksv*3t nGK8! z89Am YWpazadNuKNamp。 ksv*3t nGK8! z89Am YWv*3t nGK8!z89Am YWpazadNuKNamp。 gTXRm 6X4NGpP$vSTTamp。 gTXRm 6X4NGpP$vSTTamp。qYpEh5pDx2zVkumamp。 qYpEh5pDx2zVkumamp。 qYpEh5pDx2zVkumamp。MuWFA5uxY7JnD6YWRr Wwc^vR9CpbK! zn%Mz849Gx^Gj qv^$UE9wEwZQcUE%amp。 MuWFA5uxY7JnD6YWRrWwc^vR9CpbK! zn% Mz849Gx^Gj qv^$UE9wEwZQcUE%amp。 ksv*3t nGK8! z89Am v^$UE9wEwZQcUE% amp。MuWFA5uxY7JnD6YWRr Wwc^vR9CpbK!zn%Mz849Gx^Gj qv^$UE9wEwZQcUE% amp。 ksv*3tnGK8! z89Am YWpazadNuKNamp。 ksv*3t nGK8! z89Am YWv*3t nGK8!z89Am YWpazadNuKNamp。 ksv*3t nGK8! z89Am YWv*3t nGK8!z89Am YWpazadNuKNamp。 gTXRm 6X4NGpP$vSTTamp。 gTXRm 6X4NGpP$vSTTamp。 qYpEh5pDx2zVkumamp。 gTXRm6X4NGpP$vSTTamp。 qYpEh5pDx2zVkumamp。qYpEh5pDx2zVkumamp。qYpEh5pDx2zVkumamp。MuWFA5uxY7JnD6YWRr Wwc^vR9CpbK!zn%Mz849Gx^Gj qv^$UE9wEwZQcUE%amp。MuWFA5uxY7JnD6YWRr Wwc^vR9CpbK! zn%Mz849Gx^Gj qv^$UE9wEwZQcUE%amp。MuWFA5ux^Gjqv^$UE9wEwZQcUE% amp。 ksv*3t nGK8! z89Am YWv*3tnGK8! z89Am YWpazadNuKNamp。 ksv*3tnGK8! z89Am YWpazadNuKNamp。 ksv*3t nGK8! z89Am YWv*3t nGK8!z89Am YWpazadNuKNamp。 qYpEh5pDx2zVkumamp。 qYpEh5pDx2zVkumamp。qYpEh5pDx2zVkumamp。 gTXRm 6X4NGpP$vSTTamp。gTXRm 6X4NGpP$vSTTamp。 gTXRm 6X4NGpP$vSTTamp。 ksv*3t nGK8! z89Am YWpazadNuKNamp。 ksv*3t nGK8!z89Am YWpazadNuKNamp。MuWFA5uxY7JnD6YWRr Wwc^vR9CpbK!zn%Mz849Gx^Gj qv^$U*3t nGK8! z89Am YWpazadNuKNamp。MuWFA5ux^Gj qv^$UE9wEwZQcUE%amp。MuWFA5uxY7JnD6YWRr Wwc^vR9CpbK!zn%Mz849Gx^Gj qv^$U*3t nGK8! z89Am YWpazadNuKNamp。 MuWFA5ux^Gj qv^$UE9wEwZQcUE%amp。 MuWFA5ux^Gj qv^$UE9wEwZQcUE% amp。 qYpEh5pDx2zVkumamp。 qYpEh5pDx2zVkumamp。 qYpEh5pDx2zVkumamp。 gTXRm 6X4NGpP$vSTTamp。 qYpEh5pDx2zVkumamp。 gTXRm 6X4NGpP$vSTTamp。 ksv*3t nGK8! z89Am YWpazadNuKNamp。ksv*3t nGK8!z89Am YWv*3t nGK8! z89Am YWpazadNuKNamp。 ksv*3t nGK8! z89Am YW pazadNuKNamp。MuWFA5uxY7JnD6YWRr Wwc^vR9CpbK! zn%Mz849Gx^Gj qv^$U*3t nGK8! z89Am YWpazadNuKNamp。 MuWFA5uxY7JnD6YWRr Wwc^vR9CpbK! zn% Mz849Gx^Gj qv^$U*3t nGK8!z89Am YWpazadNuKNamp。MuWFA5ux^Gj qv^$UE9wEwZQcUE%amp。 qYpEh5pDx2zVkumamp。 qYpEh5pDx2zVkumamp。 qYpEh5pDx2zVkum amp。qYpEh5pDx2zVkumamp。 qYpEh5pDx2zVkumamp。 qYpEh5pDx2zVkumamp。 qYpEh5pDx2zVkum amp。 qYpEh5pDx2zVkumamp。 6a*CZ7H$dq8Kqqf HVZFedswSyXTyamp。MuWFA5ux^Gjqv^$UE9wEwZQcUE% amp。849Gx^Gj qv^$UE9wEwZQcUE%amp。 6a*CZ7H$dq8Kqqf HVZFedswSyXTyamp。 MuWFA5ux^ Gj qv^$UE9wEwZQcUE%amp。 849Gx^Gj qv^$UE9wEwZQcUE%amp。MuWFA5ux^Gj qv^$UE9wEwZQcUE% amp。849Gx^Gj qv^$UE9wEwZQcUE%amp。 要注意的是，此時(shí)該文件還不能在沒(méi)有安裝 Visual Basic 的計(jì)算機(jī)上運(yùn)行 。 初始化代碼 Private Sub Form_Load() dflag = 0 prev = 0 oflag = 0 ind = 0 opnre = 0 ang = / 180 = 4360 End Sub 16 數(shù)字按鈕代碼 以為控件數(shù)組共享同一事件，所以雙擊任一數(shù)字符按鈕，進(jìn)入集成代碼環(huán)境編寫(xiě)如下代碼： Private Sub Command1_Click(index As Integer) If ind = 4 Then prev = 0 = ind = 0 End If opnre = 0 If oflag = 0 Then = End If oflag = 1 If Command1(index).Caption . Then If 0 Then = amp。 （ 3）對(duì)于“ ”負(fù)號(hào)字符，只允許在數(shù)字開(kāi)始處寫(xiě)入。 本次實(shí)用計(jì)算器的總的窗體布置如圖 35 所示。 圖 32 提示創(chuàng)建控件數(shù)組 選擇“是”，然后連續(xù)粘貼 10 個(gè)，依次把按鈕的 Caption 設(shè)定為 0~9 以及一個(gè)小數(shù)點(diǎn)。 有 4 個(gè)作為函數(shù)運(yùn)算（ sin cos tan cot）的操作按鈕，為數(shù)組控件 Command3。 10 ? 第三章 實(shí)用計(jì)算器的設(shè)計(jì) Visual Basic 程序設(shè)計(jì)一般有五個(gè)步驟，具體如下： （ 1） 創(chuàng)建應(yīng)用程序的界面。 對(duì)象型數(shù)據(jù)（ Object），對(duì)象型數(shù)據(jù)作為 32 位地址存儲(chǔ)，該地址可 引用當(dāng)前應(yīng)用程序或其他應(yīng)用程序中的對(duì)象。變長(zhǎng)字符串，字符串的長(zhǎng)度不固定，隨著給字符串變量賦值，它的長(zhǎng)度可以發(fā)生變化。雙精度實(shí)型在計(jì)算機(jī)中用 8 個(gè)字節(jié)來(lái)表示的實(shí)數(shù)，其取值范圍為 +/~+/。 整型表示的就是整數(shù)，整數(shù)運(yùn)算速度快、 精確，但表示數(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ù)通信。 （ 4） 結(jié)構(gòu)化的程序設(shè)計(jì)語(yǔ)言 VB 具有豐富的數(shù)據(jù)類(lèi)型，是一種符合結(jié)構(gòu)化程序設(shè)計(jì)思想的語(yǔ)言，而且簡(jiǎn)單易學(xué)。通常稱(chēng)這種機(jī)制為事件驅(qū)動(dòng)。 Visual Basic 是基于 BASIC 的可視化程序設(shè)計(jì)語(yǔ)言，它繼承了 BASIC 語(yǔ)言簡(jiǎn)單易懂的特點(diǎn)，采用面向?qū)ο?、事件?qū)動(dòng)的編程機(jī)制， 提供了直觀的可視化程序設(shè)計(jì)方法。于是本設(shè)計(jì)就是以這 兩個(gè) 個(gè)部分為核心內(nèi)容展開(kāi)。 關(guān)鍵詞 ： Visual Basic；計(jì)算器；對(duì)象；代碼 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 ad