我用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
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吧!还有你有设计函数或是定义