最新VB編寫簡易計算器(附圖).doc

《最新VB編寫簡易計算器(附圖).doc》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。

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

2、值自動設(shè)為“1”，并且大小與第一個按鈕相同，只需修改其Caption屬性為數(shù)字“1”并將其拖至合適位置即可。此后繼續(xù)使用“粘貼”的方法建立其他控件組中其余按鈕，共20個按鈕，每建立一個，就將它拖到合適處，并修改相應(yīng)的Caption屬性值。收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系管理員刪除__________________________________________________2、各控件組其屬性設(shè)置如下：控件名稱功能/屬性窗體Form1簡易計算器按鈕Command1Command1（0）～Command1（9）即：Capt

3、ion0～9按鈕Command2小數(shù)點“.”按鈕Command3等于號“=”按鈕Command4退格按鈕Command5清除按鈕Command6Command6（0）～Command6（3）即：Caption+、-、*、/按鈕Command7負數(shù)按鈕Command8平方設(shè)置效果如下圖所示：收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系管理員刪除__________________________________________________二、編寫代碼Dims1AsSingle,s2AsSingle,ysfAsString'定義兩個單

4、精度數(shù)變量用與存放參與運算的數(shù),一個字符型存放運算符PrivateSubCommand1_Click(IndexAsInteger)Text1.Text=Text1.Text&Command1(Index).Caption'將command1的單擊事件與文本框顯示的內(nèi)容連接EndSubPrivateSubCommand2_Click()Text1.Text=Text1.Text+"."If(InStr(Text1.Text,".")=1)Then'第一位不能為小數(shù)Text1.Text=""EndIfIfInStr(T

5、ext1.Text,".")

6、不能為零!"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é)束ExitSubEndIf收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系管理員刪除_________________________________

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

8、ick()IfLeft(Text1.Text,1)<>"-"Then'判斷作為負數(shù)Text1.Text="-"&Text1.TextElseText1.Text=Right(Text1.Text,Len(Text1.Text)-1)EndIfEndSubPrivateSubCommand8_Click()Text1.Text=Text1.Tex