求VB计算器代码

来源：百度知道 编辑：UC知道 时间：2024/05/02 21:50:46
请高手们 明确 我要的是一个
当我们在文本框1内输入1+1 则在文本框2就会出现2
依次类推 2+2 4
还有我还想需要连续的如：1+1+1+1 则2要出现4
不单单是2数之合
现在我只要求有加法，我需要有乘法与除法
请高们们，写代码来‘‘‘

Option Explicit

Private StoredValue As Double

Private Const opNone = 0
Private Const opAdd = 1
Private Const opSubtract = 2
Private Const opMultiply = 3
Private Const opDivide = 4
Private Operator As Integer

Private NewEntry As Boolean

' Remove the last character.
Private Sub DeleteCharacter()
Dim txt As String
Dim min_len As Integer

txt = txtDisplay.Text
If Left$(txt, 1) = "-" Then
min_len = 2
Else
min_len = 1
End If

If Len(txt) > min_len Then
txtDisplay.Text = Left$(txt, Len(txt) - 1)
Else
txtDisplay.Text = "0"
End If
End Sub

' Clear the current entry, saved value, and operator.
Private Sub cmdClear_Click()
cmdClearEntry_Click
StoredValue = 0
Operator = opNone
End Sub

' Clear the current entry.
Private Sub cmdC