计算器做到一半，帮忙看下代码。多谢

计算器做到一半，帮忙看下代码。谢谢
本帖最后由 u010497433 于 2013-04-28 20:54:06 编辑 语法都没错，但是就是计算不了。检查了半天还是没结果，求助啊.Command1~12分别是0.CE123456789,13~28分别是运算符，其中只有14是等于号。

Dim a, b!
Private Sub Command1_Click()
Text1.Text = Text1.Text + Command1.Caption
End Sub

Private Sub Command13_Click()
a = Val(Text1.Text)
Key = Command13.Caption
Text1.Text = ""
End Sub

Private Sub Command14_Click()
Select Case Key
    Case "+": Text2.Text = a + Val(Text1.Text)
    Case "-": Text2.Text = a - Val(Text1.Text)
    Case "*": Text2.Text = a * Val(Text1.Text)
    Case "/": Text2.Text = a / Val(Text1.Text)
    Case "Mod": Text2.Text = a Mod Val(Text1.Text)
    Case "^": Text2.Text = a ^ Val(Text1.Text)
    Case "<": Text2.Text = a < Val(Text1.Text)
    Case ">": Text2.Text = a > Val(Text1.Text)
    Case "<>": Text2.Text = a <> Val(Text1.Text)
    Case "Not": Text2.Text = Not a
    Case "And": Text2.Text = a And Val(Text1.Text)
    Case "Or": Text2.Text = a Or Val(Text1.Text)
    Case "Xor": Text2.Text = a Xor Val(Text1.Text)
    Case "Like": b = "*" & Trim(Text1.Text) & "*"
        If (Str(a) Like b) Then Text2.Text = True Else Text2.Text = False
End Select
End Sub

Private Sub Command15_Click()
a = Val(Text1.Text)
Key = Command15.Caption
Text1.Text = ""
End Sub

Private Sub Command16_Click()
a = Val(Text1.Text)
Key = Command16.Caption
Text1.Text = ""
End Sub

Private Sub Command17_Click()
a = Val(Text1.Text)
Key = Command17.Caption
Text1.Text = ""
End Sub

Private Sub Command18_Click()
Text1.Text = -Val(Text1.Text)
End Sub

Private Sub Command19_Click()
a = Val(Text1.Text)
Key = Command19.Caption
Text1.Text = ""
End Sub

Private Sub Command20_Click()
a = Val(Text1.Text)
Key = Command20.Caption
Text1.Text = ""
End Sub

Private Sub Command22_Click()
a = Val(Text1.Text)
Key = Command22.Caption
Text1.Text = ""
End Sub

Private Sub Command23_Click()
a = Val(Text1.Text)
Key = Command23.Caption
Text1.Text = ""
End Sub

Private Sub Command24_Click()
a = Val(Text1.Text)
Key = Command24.Caption
Text1.Text = ""
End Sub

Private Sub Command25_Click()
a = Val(Text1.Text)
Key = Command25.Caption
Text1.Text = ""
End Sub

Private Sub Command21_Click() 
 
a = Val(Text1.Text)
Key = Command21.Caption
Text1.Text = ""
End Sub

Private Sub Command2_Click()
Text1.Text = Text1.Text + Command2.Caption
If InStr(Text1.Text, ".") < Len(Text1.Text) Then
    Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End If
End Sub

Private Sub Command26_Click()
a = Val(Text1.Text)
Key = Command26.Caption
Text1.Text = ""
End Sub

Private Sub Command27_Click()
a = Val(Text1.Text)
Key = Command27.Caption
Text1.Text = ""
End Sub

Private Sub Command28_Click()
a = Val(Text1.Text)
Key = Command28.Caption
Text1.Text = ""
End Sub

Private Sub Command3_Click()
Text1.Text = ""
End Sub

Private Sub Command4_Click()
Text1.Text = Text1.Text + Command4.Caption
End Sub

Private Sub Command5_Click()
Text1.Text = Text1.Text + Command5.Caption
End Sub

Private Sub Command6_Click()
Text1.Text = Text1.Text + Command6.Caption
End Sub

Private Sub Command7_Click()
Text1.Text = Text1.Text + Command7.Caption
End Sub

Private Sub Command8_Click()
Text1.Text = Text1.Text + Command8.Caption
End Sub

Private Sub Command9_Click()
Text1.Text = Text1.Text + Command9.Caption
End Sub

Private Sub Command10_Click()
Text1.Text = Text1.Text + Command10.Caption
End Sub

Private Sub Command11_Click()
Text1.Text = Text1.Text + Command11.Caption
End Sub

Private Sub Command12_Click()
Text1.Text = Text1.Text + Command12.Caption
End Sub