VB編寫簡易計算器(附圖).docx

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