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