VB实时错误424 我按书中抄写的

来源:百度知道 编辑:UC知道 时间:2024/06/29 23:55:25
Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Dim a, b, c As Single
a = Text1.Text
b = Text2.Text
c = Val(a) + Val(b)
lable3.Caption = c
End Sub

Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
lable3.Caption = ""
End Sub
我可是原封不动的 炒的啊 我都输入NNNNNN遍嘞
高手或有此类问题的都来看
谢谢
我现在没有分 但 日后有份了 额一定 补上!

晕死~~~~~难道你没看到吗?
你把"label"写成了"lable"

Label3.Caption = c
这一句打错了

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Dim a, b, c As Single
a = Text1.Text
b = Text2.Text
c = Val(a) + Val(b)
Label1.Caption = c '这句错了,和你自己的对比一下
End Sub

Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Label1.Caption = "" '这句也错了,和你自己的对比一下
End Sub

Private Sub Command1_Click()
    End
End Sub

Private Sub Command2_Click()
    Dim a, b, c As Single
    a = Text1.Text
    b = Text2.Text
    c = Val(a) + Val(b)
    Label3.Caption = c '这里
En