用VB制作计算器的问题

来源：百度知道 编辑：UC知道 时间：2024/06/18 06:31:17
各位大家好，有一个问题，一直以来不明白，就是我做的计算器可以实现基本的加法，减法，乘法，除法运算，但是我想要实现连续的加法，减法，乘法，除法，我不知道该在哪里增加代码，还请高手指点一二。

累死我了 这是我刚做的10 以下的连续计算
例如 在text1.text中输入 1-2*3 点击Command1
看看是不是能得到结果。。。

还有写地方有错误 下班了 下次再改 ！！！

Private Sub Command1_Click()
Dim b()
Dim a()
Dim n As Integer
Dim CC As String
Dim bb As String
Dim aa As Integer
Dim dd As Long
bb = Trim(Text1.Text)
aa = Len(bb)
ReDim a(aa + 2)
ReDim b(aa + 2)
For n = 1 To aa
a(n) = Mid(bb, n, 1)
Next

For n = 1 To aa
Select Case Asc(a(n))
Case 42 '*
If n <= 2 Then
a(n - 2) = "+"
End If
If n = aa - 1 Then
a(n + 2) = "+"
End If
If Asc(a(n - 2)) = 42 Or Asc(a(n - 2)) = 47 Then
If Asc(a(n + 2)) = 42 Or Asc(a(n + 2)) = 47 Then

If Asc(a(n - 2)) = 45 Then
a(n - 1) = 0 - a(n - 1)
End If

b(n) = a(n - 1) * a(n + 1)
a(n + 1) = b(n)
b(n) = 0
Else

If Asc(a(n - 2)) = 45 Then
a(n - 1