vb簡單計算器編程代碼(附圖)-資料下載頁
2025-05-15 23:36本頁面
【正文】 點”按扭，如果未點擊過在點前添加，否則在點后添加 If dotflag = False Then = Left(, Len() 1) amp。 Index amp。 . Else = amp。 Index End If formatTextEnd SubPrivate Sub cmbSign_Click(Index As Integer)39?；謴?fù)未點擊點“?！钡臓顟B(tài)dotflag = FalseisEqual = False 39?；謴?fù)等號在本次運算中未單擊過狀態(tài)first = fuhao = cmbSign(Index).Caption = 0.End SubPrivate Sub cmbZF_Click()If Left(Trim(), 1) = Then = Mid(, 2)Else = amp。 Trim()End IfEnd Sub 對文本框進行取負運算Private Sub Command1_Click()Dim isDot As Boolean Dim i As Integer For i = 1 To Len(Trim()) If Mid(Trim(Str(Sqr(Val()))), i, 1) = . Then isDot = True Exit For End If Next i If isDot = False Then = Str(Sqr(Val())) amp。 . Else = Str(Sqr(Val())) End IfEnd Sub 對文本框的內(nèi)容進行開方運算Private Sub Command4_Click()second = Val()If isEqual = False Then lianyong = Val()Else first = secondEnd If = Str(pute(first, lianyong, fuhao))formatTextisEqual = TrueEnd Sub 等號的運算，并結(jié)束此次運算Private Sub Form_Load() dotflag = False isEqual = False lianyong = 0End Sub 判斷等號是否連用Public Function pute(f As Double, s As Double, fuhao As String) As DoubleSelect Case fuhaoCase + pute = f + sCase pute = f sCase * pute = f * sCase / pute = f / sCase Else MsgBox 不明白End SelectEnd Function 對文本框的內(nèi)容進行加、減、乘、除的運算 Public Sub formatText()Dim i As IntegerDim isDot As BooleanisDot = False For i = 1 To Len() If Mid(Trim(), i, 1) = . Then isDot = True Exit For End If Next i If isDot = False Then = + . End If If Left(, 1) = 0 Then = Mid(, 2)End IfIf Left(Trim(), 1) = . Then = 0 amp。 Trim()End IfIf Left(Trim(), 2) = . Then = 0 amp。 Mid(Trim(), 2)End IfEnd Sub五、程序調(diào)試結(jié)果及程序改進意見1)如何判斷小數(shù)點是否按下？當小數(shù)點沒有按下是，文本框的內(nèi)容最后一個字符是：“.”，當小數(shù)點按下時，文本框內(nèi)容最后一個字符是輸入的內(nèi)容。2）如何對按鈕添加彩色圖形？在畫圖板上做出所需要彩色圖形的圖片，再把圖片應(yīng)用到控件按鈕上。3）如何判斷除數(shù)不能為0，當除數(shù)為0時如何操作？當除數(shù)為0時，單擊等于運算時會顯示除數(shù)不能為0，當除數(shù)為0時改變文本框的內(nèi)容使除數(shù)不為0.歡迎您的光臨，！希望您提出您寶貴的意見，你的意見是我進步的動力。贈語； 如果我們做與不做都會有人笑，如果做不好與做得好還會有人笑，那么我們索性就做得更好，來給人笑吧！ 現(xiàn)在你不玩命的學(xué)，以后命玩你。我不知道年少輕狂，我只知道勝者為王。不要做金錢、權(quán)利的奴隸；應(yīng)學(xué)會做“金錢、權(quán)利”的主人。什么時候離光明最近？那就是你覺得黑暗太黑的時候。最值得欣賞的風(fēng)景，是自己奮斗的足跡。壓力不是有人比你努力，而是那些比你牛幾倍的人依然比你努力。14
公司管理相關(guān)推薦
鄂ICP備17016276號-1