簡單計算器VB完美教程.doc

簡單計算器完美教程方法及步驟：第一步：在窗口中放置控件。要點：十個數(shù)字按鈕為按鈕數(shù)組（畫一個，其余幾個拷貝出來），四個運算符為按鈕數(shù)組，其它控件及按鈕單獨建立（一個一個的畫出來）。第二步：配置各個控件的屬性，調(diào)整大小和位置第三步：編寫代碼備注：代碼可以直接從本文中拷貝過去，但不是太建議這樣子做，自己編寫的時候可以學(xué)到更多的知識。窗口屬性代碼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ù)計算（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 按運算符時存數(shù)據(jù)1ysf = Command2(Index).Caption 提取運算符Text1.Text = 清除文本框里的數(shù)據(jù)1，等待錄入數(shù)據(jù)2End SubPrivate Sub Command3_Click()Text1.Text = Text1.Text + .If InStr(Text1.Text, .) = 1 Then 小數(shù)點錄入的時候不能是第一位Text1.Text = End IfIf InStr(Text1.Text, .) Len(Text1.Text) Then 小數(shù)點出現(xiàn)的位置只有等于字長才讓錄入Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) 出現(xiàn)第二個小數(shù)點會刪除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 按“=”號后重復(fù)算代碼加1s2 = Val(Text1.Text) 提取數(shù)據(jù)2Select Case ysf 根據(jù)運算符進行運算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