在窗体上画1个文本框，名称为Text1，然后编写如下程序：程序的功能是，在c盘根目录下建立1个名为dat．txt的文件，在文本框中输入字符，每次按回车键(回车符的ASCII码是13)都把当前文本框中的内容写入文件dat．txt中，并清空文本框中的内容；如果输入“END”，则结束程序，请选择适合空白处的语句（ ）。

A． KeyAscii ”END”

B． Text1．Text ”END”

C． Text1．Text 13

D． KeyAscii 13

[试题]在窗体上画1个文本框，名称为Text1，然后编写如下程序：Private Sub Form_Load（）Open"d:/temp/dat.txt"For Output As#1Text1.Text=""E．nd SubPrivate Sub Text1_KeyPress（KeyAscii As Integer）lf(13)=13 ThenIf UCase（Text1.Text）=______ThenC．lose 1E．ndE．lseWrite#1,______Text1.Text=""

[试题]（12）在窗体上画一个文本框，名称为 Text1，然后编写如下程序：Private Sub Form_Load( )Open "d:/temp/dat.txt" For Output As #1Text1.Text=""E．nd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 ThenIf UCase(Text1.Text)= (14) ThenC．lose #1E．ndE．lseWrite #1, (15)

[单选题]在窗体上画—个名称为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_KeyDown(KeyCode As Integer,

[单选题]在窗体上画—个名称为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_KeyDown(KeyCode As Integer

[单选题]在窗体上画1个文本框，其名称为Text1，然后编写如下过程：Private Sub Text1_KeyDown（KeyCode As Integer,Shift As Integer）Print Chr（KeyCode）E．nd SubPrivate Sub Text1_KeyUp（KeyCode As Integer，Shift As Integer）Print Chr（KeyCode+2）E．nd Sub程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为。A．AA．B．AB．

[单选题]在窗体上画1个文本框，其名称为Text1，然后编写如下过程： Pfivme Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode＋2) End Sub 程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为______。

[单选题]在窗体上画1个文本框，其名称为Text1，然后编写如下过程：Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode)E．nd SubPrivate Sub Text1_Key Up(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode+2)E．nd Sub程序运行后，把焦点移到文本框中，此时如果敲击“A”A．B．C．D．

[单选题]在窗体上画一个名称为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_KeyDowA．Visual BasicB．程序设计C．A程序设计D．

[单选题]在窗体上画一个名称为Text1的文本框，并编写如下程序： Private Sub Form Load( ) Show Text1.Text="" Text1.SetFocus End Sub Pfivate Sub Form_MouseUp(BuHon As Integer，Shift As Integer，X As Single，Y As Single) Print“程序设计” End Sub Private Sub Text1_KeyDown(KeyCode As Integer，shi

[单选题]在窗体上画一个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load( ) Show TextText = " " TextSetFocus 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 In