减法---求助打算看下哪里错误了
求助打算看下哪里错误了Private Sub Command1_Click()
Dim x1 As Single
Dim x2 As Single
Dim x3 As Single
Dim x4 As Single
Text5.Text = Text3.Text - Text2.Text
Text6.Text = Text4.Text - Text1.Text
End Sub
Private Sub Text1_Change()
Text1.Text = Str(x1)
End Sub
Private Sub Text2_Change()
Text2.Text = Str(x2)
End Sub
Private Sub Text3_Change()
Text3.Text = Str(x3)
End Sub
Private Sub Text4_Change()
Text4.Text = Str(x4)
End Sub
