我用VB做一个计算机 可是不知道错在哪 高手修改下

来源:百度知道 编辑:UC知道 时间:2024/06/05 09:25:25
Private Sub Command1_Click()
Label1.Caption = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command2_Click()
Label1.Caption = Val(Text3.Text) - Val(Text4.Text)
End Sub

Private Sub Command3_Click()
Label1.Caption = Val(Text5.Text) * Val(Text6.Text)
End Sub

Private Sub Command4_Click()
Label1.Caption = Val(Text7.Text) / Val(Text8.Text)
End Sub

你用这么多文本框做什么?只要两个就好了,你如果想同时计算八个文本框,那么你就需要四个label

错误提示是什么?

错误提示是什么?

应该没错......可能是Text8.Text=0

别的没错,设置下text8不能为0吧!

设置下text8不能为0吧!还有你有设计函数或是定义