vb编程中的为什么text中无法输入数字？

Private Sub Command1_Click()
Label4.Caption = Val(Text1.Text) + Val(Text2.Text)

End Sub

Private Sub Command2_Click()
Label4.Caption = Val(Text1.Text) - Val(Text2.Text)
End Sub

Private Sub Command3_Click()
Label4.Caption = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub Command4_Click()
Label4.Caption = Val(Text1.Text) / Val(Text2.Text)
End Sub

Private Sub Command5_Click()
WindowState = 1
End Sub

Private Sub Command6_Click()
End
End Sub

Private Sub Text1_Change()
Text1.Text = ""
End Sub

Private Sub Text2_Change()
Text2.Text = ""
End Sub

以上是我编得程序，到底哪里出问题了？就是运行时，输入不了数字

Private Sub Text1_Change()
Text1.Text = ""
End Sub

Private Sub Text2_Change()
Text2.Text = ""
End Sub
这两个代码干掉
Change是当Text框中发生改变时就要激发这个事件 所以你让两个Text框中的内容全部都Text1(2).text=""了

加上 text1.locked=false text2.locked=false

enabled属性呢？

我暂时保留我的看法！