VB學(xué)習(xí)基礎(chǔ)——編寫計算器

《VB學(xué)習(xí)基礎(chǔ)——編寫計算器》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。

1、一．設(shè)計要求1．能夠完成浮點數(shù)的加，減，乘，除；（平方等）2．能夠?qū)崿F(xiàn)退格和清除功能；3．初始值為0.0；4．小數(shù)點不能重復(fù)輸入；5．高位數(shù)的0不出現(xiàn)；二．控件屬性列表1、創(chuàng)建控件組的方法a、首先創(chuàng)建一個命令按鈕，調(diào)整其大小—寬、高為495，名稱為Command1，aption屬性為數(shù)字0。b、然后進行“復(fù)制”和“粘貼”，當(dāng)選擇“粘貼”時，出現(xiàn)對話框提示已有一個同名控件，詢問是否創(chuàng)建控件組，選擇“是”后，即創(chuàng)建了一個名為“Command”的控件組。這時，第一個按鈕的Index屬性值默認為“0”，第二個的Index屬性值自動設(shè)為“1”，并且大小與第一個按鈕相同，

2、只需修改其Caption屬性為數(shù)字“1”并將其拖至合適位置即可。此后繼續(xù)使用“粘貼”的方法建立其他控件組中其余按鈕，共19個按鈕，每建立一個，就將它拖到合適處，并修改相應(yīng)的Caption屬性值。c、建立其他控件2、各控件屬性設(shè)置如下：控件名稱Caption控件名稱Caption窗體Form1計算器按鈕Command2（0）+按鈕Command3退格按鈕Command2（1）-按鈕Command4.按鈕Command2（2）?*按鈕Command5=按鈕Command2（3）/按鈕command6+按鈕Command7±按鈕Command1（0）～Command

3、1（9）Caption0～9各個屬性修改后得到如圖所示的界面三程序如下Dimshu1AsSingle,shu2AsSingle,suanfuAsString'定義兩個單精度數(shù)變量用與存放參與運算的數(shù),一個字符型存放運算符PrivateSubCommand1_Click(IndexAsInteger)Text1.Text=Text1.Text&Command1(Index).Caption'將command1的單擊事件與文本框顯示的內(nèi)容連接EndSubPrivateSubCommand2_Click(IndexAsInteger)shu1=Val(Text1.T

4、ext)'將shu1隱藏起來suanfu=Command2(Index).CaptionText1.Text=""EndSubPrivateSubCommand4_Click()Text1.Text=Text1.Text+"."If(InStr(Text1.Text,".")=1)Then'第一位不能為小數(shù)Text1.Text=""EndIfIfInStr(Text1.Text,".")

5、ivateSubCommand5_Click()'開始加減乘除的運算shu2=Val(Text1.Text)SelectCasesuanfuCase"+"Text1.Text=shu1+shu2Case"-"Text1.Text=shu1-shu2Case"*"Text1.Text=shu1*shu2Case"/"Ifshu2=0ThenMsgBox"分母不能為零!",1+32+0,"錯誤"'錯誤提示框圖下所示Text1.Text=""ElseText1.Text=shu1/shu2EndIfEndSelectEndSubPrivateSubCommand3_

6、Click()'假如輸入錯誤,可每次退后一格IfText1.Text=""ThenExitSubEndIfText1.Text=Left(Text1.Text,Len(Text1.Text)-1)EndSubPrivateSubCommand6_Click()Text1.Text=""'清除EndSubPrivateSubCommand7_Click()'平方運算Text1.Text=Text1.Text*Text1.TextEndSubPrivateSubCommand8_Click()IfLeft(Text1.Text,1)<>"-"ThenText1.T

7、ext="-"&Text1.TextElseText1.Text=Right(Text1.Text,Len(Text1.Text)-1)EndIfEndSub