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