零基礎(chǔ)VB制作簡易計算器教程

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

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

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

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 另外，我們還要申明加法或減法進行了幾次，所以又要申明dim yier as single (yier 是代表輸入第幾個數(shù)字) 還有，要對符號進行申明格式： dim 變量名 as string

5、 dim fuhao as string 2.我們來對數(shù)字進行編排，我們來看1 當我們輸入第一個數(shù)字時，它就是1 當我們輸入第二個數(shù)字時，它就是11 當我們輸入第三個數(shù)字時，它就是111 此處，我們要用到一個結(jié)構(gòu)結(jié)構(gòu)為：if 條件 then 語句塊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ù)字要讓他在顯示屏中顯示出來即： text1.text = str(shu1) 其它的幾個數(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 加號：每加一次，下一次相加是在這一次的基礎(chǔ)上再加一個數(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 減號也是如此，只需把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. 等號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