VB减法问题

来源：百度知道 编辑：UC知道 时间：2024/07/04 02:36:09
Command1.Caption = Command1.Caption - Val(Text1.Text) - Val(Text2.Text)
Command1.Caption的数值并不固定
为什么算出来的是Command1.Caption=20-2-2=14 或 Command1.Caption=20-12-0=17
代码
Private Sub Command1_Click()
Command1.Caption = 10
End Sub

Private Sub Command2_Click()
Command1.Caption = 20
End Sub

Private Sub Text1_Change()
Command1.Caption = Command1.Caption - Val(Text1.Text) - Val(Text2.Text)
End Sub

Private Sub Text2_Change()
Command1.Caption = Command1.Caption - Val(Text1.Text) - Val(Text2.Text)
End Sub
急求答案 正确加分
1楼没明白我的意思 我就是要这样所以才问的啊
简单点说就是两个TEXT 两个COMMAND
COMMAND1默认为10 点击COMMAND2后COMMAND1则变为20
COMMAND1=COMMAND1-TEXT1-TEXT2 COMMAND1是根据TEXT的变化而变化的 不用点任何按钮直接出现结果

Private Sub Command1_Click()
Command1.Caption = 10
Command1.Tag = 10
End Sub

Private Sub Command2_Click()
Command1.Caption = 20
Command1.Tag = 20
End Sub

Private Sub Text1_Change()
Command1.Caption = Command1.Tag - Val(Text1.Text) - Val(Text2.Text)
End Sub

Private Sub Text2_Change()
Command1.Caption = Command1.Tag - Val(Text1.Text) - Val(Text2.Text)
End Sub

问题不是十分明显吗？
在Text1中输入2，Command1.Caption的值是20-2-0=18，在Text2中输入2，Command1.Caption的值是18-2-2=14

在Text1中输入12，Command1.Caption的值是20-1-12-0=7，在Text2中输入0，Command1.Caption的值是7-12-0=-5

在Text1中输入12，Command1.Caption的值是20-1-12-0=7，在Text2中输入-0，Command1.Caption的值是7-12-12-0=-17

如果要得到正确答案，用Command2求值：

Private Sub Command1_Click()
Command1.Caption = 10
End Sub

Private Sub Command2_Click()
If Text1.Text = "" And Text1.Text = "" Then
Command1.Caption = 20
Else