vb 初学者关于两个文本框相互锁定的问题，高手不要坐视不管哦。

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If Text1.Text = "" Then
Text1.Enabled = True
Text2.Enabled = True
Text2.Text = ""
Else
Text2.Text = "请按“计算”"
Text2.Enabled = False
End If
End Sub

Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
If Text2.Text = "" Then
Text1.Enabled = True
Text2.Enabled = True
Text1.Text = ""
Else
Text1.Text = "请按“计算”"
Text1.Enabled = False
End If
End Sub

Private Sub 计算_Click()
If Text1.Enabled Then
Text2.Text = Val(Text1.Text) - 1
Else
Text1.Text = Val(Text2.Text) - 1
End If
End Sub

Private Sub 清空_Click()
Text1.Enabled = True
Text2.Enabled = True
Text1.Text = ""
Text2.Text = ""
End Sub