VB编程计算机

帮我看看哪里错了  谢谢

 

 

Dim a, b, c Private Sub Command10_Click() Label1.Caption = Label1.Caption + "0" End Sub Private Sub Command11_Click() Label1.Caption = Label1.Caption + "." End Sub Private Sub Command12_Click() c = Label1.Caption Label1.Caption = Val(a) + Val(b) End Sub Private Sub Command2_Click() Label1.Caption = Label1.Caption + "2" End Sub Private Sub Command3_Click() Label1.Caption = Label1.Caption + "3" End Sub Private Sub Command4_Click() Label1.Caption = Label1.Caption + "4" End Sub Private Sub Command5_Click() Label1.Caption = Label1.Caption + "5" End Sub Private Sub Command6_Click() Label1.Caption = Label1.Caption + "6" End Sub Private Sub Command7_Click() Label1.Caption = Label1.Caption + "7" End Sub Private Sub Command8_Click() Label1.Caption = Label1.Caption + "8" End Sub Private Sub Command9_Click() Label1.Caption = Label1.Caption + "9" End Sub Private Sub Label1_Click() a = Label1.Caption b = 1 Label1.Caption = "" End Sub Private Sub Command1_Click() Label1.Caption = Label1.Caption + "1" End Sub

 Command12_Click()

c = Label1.Caption

Label1.Caption = Val(a) + Val(b)

End Sub

a 和b有值吗？计算器程序吧，是不是太麻烦点了。0-9设个按键组，按+，-，*，\要记住是第一个数，往下是第二个数并进行运算。

不知道要什么结果，回答者不知道你最终的目的是什么，不知道下面回答的对不对！

Private Sub Label1_Click() a = Label1.Caption b = 1Label1.Caption = ""。。。。是不是这句“1Label1”前面多个1啊！ End Sub

或者是CaptionLabel1.Caption = Val(a) + Val(b)，，Val转换空值错误

发题目的时候最好回车空格都有，否则回答者很累！