VB计算器程序《用VB实现简易计算器》 一．内容要求：1. 加、减、乘、除，清零等一定要有；2. 乘方、开方等可自选；3

Option Explicit
Dim counta As Double, countb As Double, sum As String, bl As BooleanPrivate Sub Command1_Click(Index As Integer)
If bl = True Then
Text1.Text = ""
bl = False
End If
Text1.Text = Text1.Text + Command1(Index).Caption
End SubPrivate Sub Command2_Click(Index As Integer)
If Text1.Text = "" Then
MsgBox "请输入数值后再点击此符号！谢谢！", , "提示"
Exit Sub
Else
counta = Val(Text1.Text)
sum = Command2(Index).Caption
Text1.Text = ""
End If
End Sub
Private Sub Command3_Click()
bl = True
If Text1.Text = "" Then
MsgBox "请输入数值再点击！谢谢！", , "提示"
Exit Sub
Else
countb = Val(Text1.Text)
Select Case sum
Case "+"
Text1.Text = Str(counta + countb)
Case "-"
Text1.Text = Str(counta - countb)
Case "*"
Text1.Text = Str(counta * countb)
Case "/"
If Text1.Text = "0" Then
MsgBox "除数不能为零", vbCritical, "出错提示"
Text1.Text = ""
Text1.SetFocus
Else
Text1.Text = Str(counta / countb)
End If
End Select
End If
End Sub
Private Sub Command4_Click()
Text1.Text = ""
End SubPrivate Sub Command5_Click()
End
End SubPrivate Sub Form_Unload(Cancel As Integer) '卸载窗体事件
MsgBox "程序中内容均有自己完成，现在才发现编程是那么的不容易！此程序还不完善！但也算一个半成品吧！邮箱：zhangleizhb@sogou.com QQ:909507090 谢谢！", , "提示"
End Sub
Private Sub mnuban_Click()
MsgBox "版本v1.2", , "提示"
End SubPrivate Sub mnubule_Click()
Form1.BackColor = vbBlue
End SubPrivate Sub mnuexit_Click()
End
End Sub
Private Sub mnuhelp_Click()
MsgBox "对不起！程序简单没有帮助！", , "提示"
End SubPrivate Sub mnured_Click()
Form1.BackColor = vbRed
End SubPrivate Sub mnuzhe_Click()
MsgBox "地狱黑雪！QQ:909507090", , "提示"End SubPrivate Sub Timer1_Timer()
If Label2.Left + Label2.Width