vb編寫簡易計算器(附圖)

《vb編寫簡易計算器(附圖)》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。

1、用VB6.0編寫簡易計算器效果圖：廢話不多說，直接上步驟一、創(chuàng)建控件組1、創(chuàng)建控件組的方法??首先創(chuàng)建一個命令按鈕，調(diào)整其大?。ㄓX得合適就行），名稱為Command1，Caption屬性為數(shù)字0；然后進行“復(fù)制”和“粘貼”，當(dāng)選擇“粘貼”時，出現(xiàn)對話框提示已有一個同名控件，詢問是否創(chuàng)建控件組，選擇“是”后，即創(chuàng)建了一個名為“Command”的控件組。這時，第一個按鈕的Index屬性值默認為“0”，第二個的Index屬性值自動設(shè)為“1”，并且大小與第一個按鈕相同，只需修改其Caption屬性為數(shù)字“1”并將其拖至合適位置即可。

2、此后繼續(xù)使用“粘貼”的方法建立其他控件組中其余按鈕，共20個按鈕，每建立一個，就將它拖到合適處，并修改相應(yīng)的Caption屬性值。2、各控件組其屬性設(shè)置如下：控件名稱功能/屬性窗體Form1簡易計算器按鈕Command1Command1（0）～Command1（9）即：Caption0～9按鈕Command2小數(shù)點“.”按鈕Command3等于號“=”按鈕Command4退格按鈕Command5清除按鈕Command6Command6（0）～Command6（3）即：Caption+、-、*、/按鈕Command7負數(shù)按鈕C

3、ommand8平方設(shè)置效果如下圖所示：二、編寫代碼Dims1AsSingle,s2AsSingle,ysfAsString'定義兩個單精度數(shù)變量用與存放參與運算的數(shù),一個字符型存放運算符PrivateSubCommand1_Click(IndexAsInteger)Text1.Text=Text1.Text&Command1(Index).Caption'將command1的單擊事件與文本框顯示的內(nèi)容連接EndSubPrivateSubCommand2_Click()Text1.Text=Text1.Text+"."If(I

4、nStr(Text1.Text,".")=1)Then'第一位不能為小數(shù)Text1.Text=""EndIfIfInStr(Text1.Text,".")

5、Text=s1-s2Case"*"Text1.Text=s1*s2Case"/"Ifs2=0ThenMsgBox"分母不能為零!"Text1.Text=""ElseText1.Text=s1/s2EndIfEndSelectText1=IIf(Left(Text1.Text,1)=".",0&Text1.Text,Text1.Text)'這個很關(guān)鍵，如果沒有這個的話，得出小于1的小數(shù)前面沒有0EndSubPrivateSubCommand4_Click()IfText1.Text=""Then'文本為空就結(jié)束ExitSubE

6、ndIfText1.Text=Left(Text1.Text,Len(Text1.Text)-1)'文本退一格EndSubPrivateSubCommand5_Click()Text1.Text=""'清除當(dāng)前框內(nèi)文本EndSubPrivateSubCommand6_Click(IndexAsInteger)s1=Val(Text1.Text)'將s1隱藏起來ysf=Command6(Index).CaptionText1.Text=""EndSubPrivateSubCommand7_Click()IfLeft(Text1

7、.Text,1)<>"-"Then'判斷作為負數(shù)Text1.Text="-"&Text1.TextElseText1.Text=Right(Text1.Text,Len(Text1.Text)-1)EndIfEndSubPrivateSubCommand8_Click()Text1.Text=Text1.Text*Text1.Text'平方EndSub各位朋友，可以將紅色代碼復(fù)制到相應(yīng)位置，不清楚的可以全選復(fù)制，但是一定要按照我的步驟和給的名稱來哦！還可以再添加按鈕PrivateSubCommand9_Click()'這是退

8、出代碼EndEndSub三、測試，成功的話給個好評哦！謝謝各位下載與支持！這個可以編寫作為作業(yè)哦！