簡單計(jì)算器VB完美教程.doc

簡單計(jì)算器完美教程方法及步驟：第一步：在窗口中放置控件。要點(diǎn)：十個(gè)數(shù)字按鈕為按鈕數(shù)組（畫一個(gè)，其余幾個(gè)拷貝出來），四個(gè)運(yùn)算符為按鈕數(shù)組，其它控件及按鈕單獨(dú)建立（一個(gè)一個(gè)的畫出來）。第二步：配置各個(gè)控件的屬性，調(diào)整大小和位置第三步：編寫代碼備注：代碼可以直接從本文中拷貝過去，但不是太建議這樣子做，自己編寫的時(shí)候可以學(xué)到更多的知識(shí)。窗口屬性代碼Dim s1 As Single, s2 As Single, ysf As String, cfs As SinglePrivate Sub Command1_Click(Index As Integer)If cfs 0 Then 輸入數(shù)字之前判斷是否為重復(fù)計(jì)算（cfs重復(fù)算）Text1.Text = 重復(fù)算就清零之前的顯示cfs = 0 重復(fù)算代碼清零End IfText1.Text = Text1.Text & Command1(Index).Caption 數(shù)字框按鈕與文本框關(guān)聯(lián)If Len(Text1.Text) 13 Then 限制錄入13位數(shù)字MsgBox 數(shù)字不能大于13位Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)End IfEnd SubPrivate Sub Command2_Click(Index As Integer)s1 = Text1.Text 按運(yùn)算符時(shí)存數(shù)據(jù)1ysf = Command2(Index).Caption 提取運(yùn)算符Text1.Text = 清除文本框里的數(shù)據(jù)1，等待錄入數(shù)據(jù)2End SubPrivate Sub Command3_Click()Text1.Text = Text1.Text + .If InStr(Text1.Text, .) = 1 Then 小數(shù)點(diǎn)錄入的時(shí)候不能是第一位Text1.Text = End IfIf InStr(Text1.Text, .) Len(Text1.Text) Then 小數(shù)點(diǎn)出現(xiàn)的位置只有等于字長才讓錄入Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) 出現(xiàn)第二個(gè)小數(shù)點(diǎn)會(huì)刪除End IfEnd SubPrivate Sub Command4_Click()If Text1.Text = ThenExit SubEnd IfText1.Text = Left(Text1.Text, Len(Text1.Text) - 1) 刪除最后一位數(shù)End SubPrivate Sub Command5_Click()cfs = cfs + 1 按“=”號(hào)后重復(fù)算代碼加1s2 = Val(Text1.Text) 提取數(shù)據(jù)2Select Case ysf 根據(jù)運(yùn)算符進(jìn)行運(yùn)算Case +Text1.Text = s1 + s2Case -Text1.Text = s1 - s2Case *Text1.Text = s1 * s2Case /If s2 = 0 Then 避免除以零MsgBox 分母不能為零Text1.Text = ElseText1.Text = s1 / s2End IfEnd SelectIf Left(Text1.Text, 1) = . ThenText1.Text = o & Te