零基礎(chǔ)VB制作簡(jiǎn)易計(jì)算器教程

1、零基礎(chǔ) vb制作簡(jiǎn)易計(jì)算器feb. 16, 2014 by 王斌(華寧一中 )作為一位初學(xué)者來(lái)說(shuō)，vb這個(gè)東西似乎有些難（誰(shuí)不難?。?，但是仔細(xì)琢磨之后，又覺(jué)得和我們的生活密切相關(guān)。我們可以使用它來(lái)制作一個(gè)簡(jiǎn)易的計(jì)算器哦！我自己大概只花了56 天的時(shí)間來(lái)粗略地學(xué)習(xí)來(lái)一下簡(jiǎn)易計(jì)算器的制作，特在此和各位分享一下我的心得。我也是第一次做這個(gè)東西，感覺(jué)編程序是那些高材生或技術(shù)人員才可以干的事情。其實(shí)，你也可以當(dāng)一次這樣的技術(shù)人員（是不是感覺(jué)自己的檔次提高了不少？哈哈?。?。特此申明：本人能力有限，所做的計(jì)算器只能進(jìn)行如下運(yùn)算加法：可連續(xù)相加次減法：可連續(xù)相減次乘法除法各可運(yùn)算次我們先從基礎(chǔ)的東西說(shuō)起一

2、、 啟動(dòng)：1 “開(kāi)始”按鈕 -“程序” -“microsoft visual basic6.0中文版”2選“新建”選項(xiàng)卡新建：建立新的工程現(xiàn)存：選擇和打開(kāi)現(xiàn)有的工程最新：最近使用過(guò)的工程3單擊“標(biāo)準(zhǔn)exe ”項(xiàng)，再單擊“打開(kāi)”按鈕二、退出：在菜單文件（f）項(xiàng)中選“退出”或單擊“關(guān)閉”按鈕建立一個(gè)vb應(yīng)用程序的一般步驟：1. 設(shè)計(jì)窗體，建立用戶界面的對(duì)象；2. 設(shè)置各對(duì)象的屬性；3. 為必要的對(duì)象進(jìn)行事件過(guò)程的編程；4. 程序運(yùn)行與調(diào)試；5. 保存文件和編譯。好，先來(lái)認(rèn)識(shí)一下我們即將要用到的工具吧，下面的這個(gè)叫工具箱我們開(kāi)始來(lái)制作它：一.顯示屏和按鍵1使用工具箱中右邊的第二個(gè)按鈕（文本框）在圖1

3、.2 上拖出一個(gè)框，為 text12.然后，再使用工具箱中右邊的第三個(gè)按鈕（命令按鈕）分別拖出你喜歡的形狀（我認(rèn)為還是正方形.長(zhǎng)方形最好）電腦就會(huì)自動(dòng)給它們編號(hào)command1.command2 等。此時(shí)，你使用鼠標(biāo)左鍵單擊它們中的任意一個(gè)，如：command9.在右邊的框中便會(huì)出現(xiàn)： （名稱）command9 你找到 caption ,將 command9 改寫(xiě)成你想要的數(shù)字你還可以設(shè)置一個(gè)清除鍵：clear。加號(hào)減號(hào)乘號(hào)除號(hào)的制作方法也和其他按鍵一樣的。二編寫(xiě)程序1. 用鼠標(biāo)左鍵雙擊上面這個(gè)圖中的打有一些黑色小點(diǎn)的區(qū)域，就會(huì)來(lái)到下面電腦是不會(huì)自己進(jìn)行運(yùn)算的，所以你要先自己把你要用到的東西告

4、訴它所以就要告訴它格式： dim 變量名 as 類型 我們則需要申明dim shu1 as single dim shu2 as single dim shu3 as single dim shu4 as single dim shu5 as single dim shu6 as single dim shu7 as single dim shu8 as single dim shu9 as single 另外，我們還要申明加法或減法進(jìn)行了幾次，所以又要申明dim yier as single (yier 是代表輸入第幾個(gè)數(shù)字) 還有，要對(duì)符號(hào)進(jìn)行申明格式： dim 變量名 as string

5、 dim fuhao as string 2.我們來(lái)對(duì)數(shù)字進(jìn)行編排，我們來(lái)看1 當(dāng)我們輸入第一個(gè)數(shù)字時(shí)，它就是1 當(dāng)我們輸入第二個(gè)數(shù)字時(shí)，它就是11 當(dāng)我們輸入第三個(gè)數(shù)字時(shí)，它就是111 此處，我們要用到一個(gè)結(jié)構(gòu)結(jié)構(gòu)為：if 條件 then 語(yǔ)句塊end if private sub command1_click() if yier = 1 then shu1 = shu1 * 10 + 1 text1.text = str(shu1) elseif yier = 2 then shu2 = shu2 * 10 + 1 text1.text = str(shu2) elseif yier =

6、3 then shu3 = shu3 * 10 + 1 text1.text = str(shu3) elseif yier = 4 then shu4 = shu4 * 10 + 1 text1.text = str(shu4) elseif yier = 5 then shu5 = shu5 * 10 + 1 text1.text = str(shu5) elseif yier = 6 then shu6 = shu6 * 10 + 1 text1.text = str(shu6) elseif yier = 7 then shu7 = shu7 * 10 + 1 text1.text =

7、 str(shu7) elseif yier = 8 then shu8 = shu8 * 10 + 1 text1.text = str(shu8) elseif yier = 9 then shu9 = shu9 * 10 + 1 text1.text = str(shu9) end if end sub 注意：每次輸入的數(shù)字要讓他在顯示屏中顯示出來(lái)即： text1.text = str(shu1) 其它的幾個(gè)數(shù)字的輸入只要把上面的“+1”改成“ +2”，“+3”， “+4”， “+5”, “+6”，“+7”，“ +8”，“ +9”即可3.clear鍵：就是所有的數(shù)字為0，text1.te

8、xt為 0 private sub form_load() text1.text = shu1 = 0 shu2 = 0 shu3 = 0 shu4 = 0 shu5 = 0 shu6 = 0 shu7 = 0 shu8 = 0 shu9 = 0 yier = 1 end sub 加號(hào)：每加一次，下一次相加是在這一次的基礎(chǔ)上再加一個(gè)數(shù)字所以：每加一次yier就加 1 private sub command3_click() fuhao = + if yier = 1 then yier = 2 elseif yier = 2 then yier = 3 elseif yier = 3 then

9、 yier = 4 elseif yier = 4 then yier = 5 elseif yier = 5 then yier = 6 elseif yier = 6 then yier = 7 elseif yier = 7 then yier = 8 elseif yier = 8 then yier = 9 end if end sub 減號(hào)也是如此，只需把fuhao = “+”改成 fuhao = “- “4.乘法和除法乘法： private sub command9_click() fuhao = * if yier = 1 then yier = 2 end if end su

10、b 除法：private sub command9_click() fuhao = / if yier = 1 then yier = 2 end if end sub 5. 等號(hào)private sub command5_click() if fuhao = + then text1.text = str(shu1 + shu2 + shu3 + shu4 + shu5 + shu6 + shu7 + shu8 + shu9) elseif fuhao = - then text1.text = str(shu1 - shu2 - shu3 - shu4 - shu5 - shu6 - shu7 - shu8 - shu9) elseif fuha