VB编程计算器

来源：百度知道 编辑：UC知道 时间：2024/06/15 17:50:52
请高手帮我看看我这个代码问题在哪里，为什么我的这个计算器出来的结果总是0啊……多谢！
Dim a As Double
Dim result As Double
Private Sub Form1_load()
a = 0: store = 0: n = 0
s1 = 0: s2 = 0: s3 = 0: s4 = 0
End Sub
Private Sub Command1_Click()
Text1 = Text1 + " 1"
a = a * 10 + 1
End Sub
Private Sub Command2_Click()
Text1 = Text1 + " 2"
a = a * 10 + 2
End Sub
Private Sub Command3_Click()
Text1 = Text1 + " 3"
a = a * 10 + 3
End Sub
Private Sub Command4_Click()
Text1 = Text1 + " 4"
a = a * 10 + 4
End Sub
Private Sub Command5_Click()
Text1 = Text1 + " 5"
a = a * 10 + 5
End Sub
Private Sub Command6_Click()
Text1 = Text1 + " 6"
a = a * 10 + 6
End Sub
Private Sub Command7_Click()
Text1 = Text1 + " 7"
a = a * 10 + 7
End Sub
Private Sub Command8_Click()
Text1 = Text1 + " 8"
a = a

Dim a As Double
Dim result As Double
改为

Private result
Private a
Private store
Private n
Private s1
Private s2
Private s3
Private s4

S1等变量都是局部变量,所以Command17_click里,就不能执行条件了,于是text1result是没有赋值的嘛

Dim s1, s2, s3, s4 As Integer
就可以了