VB編寫(xiě)簡(jiǎn)易計(jì)算器(附圖).docx

用VB6.0編寫(xiě)簡(jiǎn)易計(jì)算器效果圖：廢話不多說(shuō)，直接上步驟一、創(chuàng)建控件組1、創(chuàng)建控件組的方法首先創(chuàng)建一個(gè)命令按鈕，調(diào)整其大?。ㄓX(jué)得合適就行），名稱為Command1，Caption 屬性為數(shù)字 0 ；然后進(jìn)行“復(fù)制”和“粘貼”，當(dāng)選擇“粘貼”時(shí)，出現(xiàn)對(duì)話框提示已有一個(gè)同名控件，詢問(wèn)是否創(chuàng)建控件組，選擇“是”后，即創(chuàng)建了一個(gè)名為“Command”的控件組。這時(shí)，第一個(gè)按鈕的Index屬性值默認(rèn)為“0”，第二個(gè)的Index屬性值自動(dòng)設(shè)為“1”，并且大小與第一個(gè)按鈕相同，只需修改其 Caption 屬性為數(shù)字“1”并將其拖至合適位置即可。此后繼續(xù)使用“粘貼”的方法建立其他控件組中其余按鈕，共20個(gè)按鈕，每建立一個(gè)，就將它拖到合適處，并修改相應(yīng)的Caption屬性值。2、各控件組其屬性設(shè)置如下：控件名稱功能/屬性窗體Form 1簡(jiǎn)易計(jì)算器按鈕Command1Command1（0） Command1（9）即：Caption 0 9按鈕Command2小數(shù)點(diǎn)“.”按鈕Command3等于號(hào)“=”按鈕Command4退格按鈕Command5清除按鈕Command6Command6（0） Command6（3）即：Caption +、-、*、/按鈕Command7負(fù)數(shù)按鈕Command8平方設(shè)置效果如下圖所示：二、編寫(xiě)代碼Dim s1 As Single, s2 As Single, ysf As String定義兩個(gè)單精度數(shù)變量用與存放參與運(yùn)算的數(shù),一個(gè)字符型存放運(yùn)算符Private Sub Command1_Click(Index As Integer)Text1.Text = Text1.Text & Command1(Index).Caption將command1的單擊事件與文本框顯示的內(nèi)容連接End SubPrivate Sub Command2_Click()Text1.Text = Text1.Text + .If (InStr(Text1.Text, .) = 1) Then 第一位不能為小數(shù) Text1.Text = End IfIf InStr(Text1.Text, .) Len(Text1.Text) Then 防止出現(xiàn)兩個(gè)小數(shù)點(diǎn) Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)End IfEnd SubPrivate Sub Command3_Click()s2 = Val(Text1.Text) 開(kāi)始加減乘除運(yùn)算 Select Case ysf Case + Text1.Text = s1 + s2 Case - Text1.Text = s1 - s2 Case * Text1.Text = s1 * s2 Case / If s2 = 0 Then MsgBox 分母不能為零! Text1.Text = Else Text1.Text = s1 / s2 End If End SelectText1 = IIf(Left(Text1.Text, 1) = ., 0 & Text1.Text, Text1.Text) 這個(gè)很關(guān)鍵，如果沒(méi)有這個(gè)的話，得出小于1的小數(shù)前面沒(méi)有0End SubPrivate Sub Command4_Click()If Text1.Text = Then 文本為空就結(jié)束Exit SubEnd IfText1.Text = Left(Text1.Text, Len(Text1.Text) - 1) 文本退一格End SubPrivate Sub Command5_Click()Text1.Text = 清除當(dāng)前框內(nèi)文本End SubPrivate Sub Command6_Click(Index As Integer)s1 = Val(Text1.Text) 將s1隱藏起來(lái)ysf = Command6(Index).CaptionText1.Text = End SubPrivate Sub Command7_Click()If Left(Text1.Text, 1) - Then 判斷作為負(fù)數(shù)Text1.Text = - & Text1.TextElseText1.Text = Right(Text1.Text, Len(Text1.Text) - 1)End IfEnd SubPrivate Sub Command8_Click()Text1.Text = Text1.Text * Text1.Text 平方End Sub各位朋友，可以將紅色代碼復(fù)制到相應(yīng)位置，不清楚的可以全選復(fù)制，但是一定要按照我