（ 33 ）某人编写了下面的程序，希望能把 Text1 文本框中的内容写到 out.txt 文件中

Private Sub Comand1_Click （）

Open " out. t xt " For Output As #2

Print " Text1 "

C．lose #2

E．nd Sub

调试时发现没有达到目的，为实现上述目的，应做的修改是

A． ）把 Print " Text1 " 改为 Print #2,Text1

B． ）把 Print " Text1 " 改为 Print Text1

C． ）把 Print " Text1 " 改为 Write " Text1 "

D． ）把所有 #2 改为 #1

[单选题]某人编写了下面的程序，希望能把Textl文本框中的内容写到out．txt文件中Private Sub Commandl_Click()Open“out.txt”For Output As #2Print“Text1”C．lose #2E．nd sub调试时发现没有达到目的，为实现上述目的，应做的修改是A．把Print“Text1”改为Print#2，TextlB．把Print“Textl”改为Print TextlC．把Print“Text1”改为Write“Text1”D．把所有#2改为#1

[单选题]某人编写了下面的程序，希望能把Text1文本框中的内容写到out.txt文件中：调试时发现没有达到目的，为实现上述目的，应做的修改是（　　）。A.把P

[单选题]某人编写了下面的程序，希望能把Text1文本框中的内容写到out.txt文件中调试时发现没有达到目的。为实现上述目的，应做的修改是（　　）。A.把Pr

[试题]在窗体上画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=""

[单选题]对文本框Text1编写如下事件过程：Private Sub Text1_KeyPress(KeyAscii As Integer)D．im b As Stringb = Chr(KeyAscii)KeyAscii = Asc(UCaseB、)E．nd Sub运行时，下列叙述正确的是( )。A． Text1中无法输入字符B． Text1中内容为"b"C． Text1中输入的字符都变为大写D． Text1中输入的字符都被转换成ASCII码

[单选题]窗体上添加一个文本框Text1，编写下列代码： Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+5)& KeyCode End Sub 程序运行时，在文本框中输入“ab”，则在窗体上输出为( )。A．F65 G66B．F65 F66C．G66 F65D．G65 G66

[单选题]窗体上添加一个文本框Text1，编写如下代码： Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode+5) & KeyCode End Sub 程序运行时，在文本框中输入“ab”，则在窗体上输出为( )。A．F65 G66B．F65 F66C．G66 F65D．G65 G66

[单选题]窗体上添加一个文本框Text1，编写如下代码： Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode+5)&KeyCode End sub 程序运行时，在文本框中输入“ab”，则在窗体上输出为( )。A．F65 G66B．F65 F66C．G66 F65D．G65 G66

[单选题]窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号（?）处应填入的内容是。Private Sub Text1_LostFocus（）C．all CheckInput（Text1，500）E．nd SubPrivate Sub Text2_LostFocus（）C．all CheckInput（Text2，1000）E．nd SubSub CheckInput（

[单选题]设窗体上有一个名为Text1的文本框，并编写如下程序：Private Sub Form_Load（）ShowText1.Text = ""Text1.SetFocusE．nd SubPrivate Sub Form_MouseUp（Button As Integer, _Shift As Integer, X As Single, Y As Single）Print "程序设计"E．nd SubPrivate Sub Text1_KeyDown（KeyCode As Integer, S