怎么Text2.Text没有响应变化
本帖最后由 bcrun 于 2013-03-25 17:28:42 编辑

Private Sub Form_Load()
Text1.Text = "8"
Text2.Text = "2"
Text3.Text = "4"
End Sub

Private Sub Text1_Change()
Dim a As Single
Dim b As Single
Dim c As Single

On Error GoTo errhandler

a = CSng(Text1.Text)
b = CSng(Text2.Text)
c = a / b
Text3.Text = CStr(c)
errhandler:
End Sub

Private Sub Text2_Change()
Dim a As Single
Dim b As Single
Dim c As Single

On Error GoTo errhandler

a = CSng(Text1.Text)
b = CSng(Text2.Text)
c = a / b
Text3.Text = CStr(c)
errhandler:
End Sub

Private Sub Text3_Change()
Dim a As Single
Dim b As Single
Dim c As Single

On Error GoTo errhandler

a = CSng(Text3.Text)
b = CSng(Text1.Text)
c = b / a
Text2.Text = CStr(c)
errhandler:
End Sub

Text3无法输入值，Text2没有变化
[解决办法]
没有问题。

Text3 输入后，仍会刷新为 a/b 的商。这是你的代码预期的结果。