在窗体上画一个文本框,名称为Text1,然后编写如下程序: Private Sub Form_Load() Open "d:empdat.txt" For Output As 1 Text1.Text="" End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If (8) =13 Then If UCase(Text1.Text)= (9
主观题
在窗体上画一个文本框,名称为Text1,然后编写如下程序: Private Sub Form_Load() Open "d:empdat.txt" For Output As 1 Text1.Text="" End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If (8) =13 Then If UCase(Text1.Text)= (9