更多"窗体上画一个名称为Text1的文本框，然后编写如下事件过程： Pri"的相关试题:
[填空题]在窗体上画 1 个文本框，名称为 Text1，然后编写如下程序：
Private Sub Form_Load（ ）
Open "d:/temp/dat.txt" For Output As #1
Text1.Text = "" End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) If _________= 13 Then
If UCase(Text1.Text) = _________Then
Close #1
End
Else
Write #1, _________
Text1.Text = ""
End If
End If
End Sub
以上程序的功能是，在D盘temp目录下建立1个名为dat.txt的文件，在文本框中输入字符，每
次按回车键（回车符的ASCII码是13）都把当前文本框中的内容写入文件dat.txt，并清除文 本框中的内容；如果输入"END"，则结束程序。请填空。
[单项选择]在窗体上画1个文本框，名称为Text1，然后编写如下程序：
Private Sub Form Load（ ）
Open "C:/dat.txt" For Output As#1
Text1.Text=""
End Sub
Private Sub Text1_KeyPress(KeyAscii As integer)
If______=13 Then
If UCase(Text1.Text=______)Then
Close 1
End
Else
Write#1,Text1.Text
"Text1.Text=""
End If
End If
End Sub
程序的功能是，存C盘根目录下建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键(回车符的ASCII码是13)都把当前文本框中的内容写入文件dat.txt中，并清空文本框中的内容；如果输入“END”，则结束程序，请选择适合空白处的语句( )。
A. KeyAscii "END"
B. Text1.Text "END"
C. Text1.Text 13
D. KeyAscii 13
[单项选择]在窗体上画一个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load（ ） Show Text1.Text=" Text1.SetFocus End Sub Phvate Sub Form_MouseUp(Buuon As Integer,Shift As Integer,X As Single，Y As Single) Phnt“程序设计” End Sub Private Sub Textl_KeyDown(KeyCode As Integer,Shift As Integer) Print"Visual Basic"： End Sub 程序运行后，如果按“A”键，然后单击窗体，则在窗体上显示的内容是( )。
A. Visual Basic
B. 程序设计
C. A程序设计
D. VisualBasic程序设计
[单项选择]在窗体上画一个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load( ) Show Text1. Text = " " Text1. SetFocus End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y _ As Single) Print "程序设计" End Sub Private Sub Text1_Ke!tDown(KeyCode As Integer,Shift As Integer) Print "Visual Basic"; End Sub 程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是 ______。
A. Visual Basic
B. 程序设计
C. A程序设计
D. Visual Basic程序设计
