VB实例代码计算器VIP免费

首先，需建立如下控件： 标签：Label1 命令按钮： 名称 Caption值 Cback ← Cclear CE Cstart C Csin Sin Ccos Cos Csqrt Sqrt Csign +/- Cpoint Cpoint Cequal = 控件数组：（命令按钮） Calcu(1) + Calcu(2) - Calcu(3) * Calcu(4) / Cnum(0) 0 Cnum(1) 1 ... Cnum(9) 9 然后在代码窗口写源码： Option Explicit Dim Num1, Num2 As Double Dim PointIn As Boolean Dim Inputing As Boolean Dim Operation1 As Integer Private Sub Calcu_Click(i As Integer) If Inputing = False Then '在前次运算提交之后尚未输入新的数据 Operation1 = i '运算符重置 Num1 = Label1 '将显示栏里的数据赋值给第一个操作数 Exit Sub End If Inputing = False '将当前状态置为非输入数据阶段 If Num1 <> 0 Then '非首次计算 Num2 = Label1 '将显示栏里的数据赋值给第二个操作数 Calculate (Operation1) '计算前一次运算并显示结果 Else '首次计算 Num1 = Label1 '将显示栏里的数据赋值给第一个操作数 End If Operation1 = i '提交运算符 End Sub Private Sub Cback_Click() Dim TheLen As Integer TheLen = Len(Label1) If TheLen > 2 Then If Right(Label1, 1) = "." Then Label1 = Left(Label1, TheLen - 2) & "." Else Label1 = Left(Label1, TheLen - 1) End If Else Cclear_Click End If End Sub Private Sub Cclear_Click() Label1 = "0." Num2 = 0 PointIn = False End Sub Private Sub Ccos_Click() Calculate (6) Inputing = False End Sub Private Sub Cequal_Click() If Inputing Then '如果刚输入过数据'Or Operation1 > 0 Then Num2 = Label1 '将显示栏里的数据赋值给第二个操作数 End If Inputing = False '将当前状态置为非输入数据阶段 Calculate (Operation1) '计算提交的运算并显示结果 Num1 = 0 Operation1 = 0 End Sub Private Sub Calculate(Oprt As Integer) Select Case Oprt Case 1 Num1 = Num1 + Num2 ShowResult (Num1) Case 2 Num1 = Num1 - Num2 ShowResult (Num1) Case 3 Num1 = Num1 * Num2 ShowResult (Num1) Case 4 Num1 = Num1 / Num2 ShowResult (Num1...