（ 9 ） 窗体上有名称为 Command1 的命令按钮及名称为 Text1 、 能显示多行文本的文本框 。 程序运行后 ，如果单击命令按钮，则可打开磁盘文件 c:/test.txt ，并将文件中的内容（多行文本）显示在文本框中。

下面是实现此功能的程序，请填空。

Private Sub Command1_Click()

Text1= ””

Number=FreeFile

Open “ c:/test.txt ” For Input As Number

D．o While Not Eof( ( 14 ) )

Line Input #Number,s

Text1.Text=Text1.Text+ ( 15 ) +Chr(13)+Chr(10)

Loop

C．lose Number

E．nd Sub

[单选题]（ 19 ）窗体上有名称为 Command1 的命令按钮和名称为 Text1 的文本框Private Sub Command1_Click()Text1.Text= ” 程序设计 ”Text1.SetFocusE．nd SubPrivate Sub Text1_GotFocus()Text1.Text= ” 等级考试 ”E．nd Sub运行以上程序，单击命令按钮后A． ）文本框中显示的是 “ 程序设计 ” ，且焦点在文本框中B． ）文本框中显示的是 “ 等级考试 ” ，且焦点在文本框中C． ）文

[单选题]窗体上有1个名称为Text1的文本框和1个名称为Command1的命令按钮。要求程序运行时，单击命令按钮，就可以把文本框中的内容写到文件out.txt中，每次写入的内容附加到文件原有内容之后。下面能够实现上述功能的程序是（ ）。A．Private Sub Command1_Click（）Open “out.txt” For Inpit As#1Print#1,Text1.TextC．lose#1E．nd SubB．Private Sub Command1_Click（）Open “out.txt

[单选题]窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序 如下： Private Type x a As Integer b As Integer End Type Private Sub Command1_Click() Dim y As x y.a=InputBox("") If y.a/2=y.a/2 Then y.b=y.a * y.a Else y.b=Fix(y.a/2) End If Text1.Text=y.b End Sub 对以上程序，下

[单选题]窗体上有一个名称为Text1的文本框和—个名称为Command1的命令按钮。要求程序运行时，单击命令按钮，就可把文本框中的内容写到文件out.txt中，每次写入的内容附加到原有内容之后。下面能够正确实现上述功能的程序是______。A．Private Sub Command1_Click() Open "out.txt" For Input As#1 Print #1,Text1.Text Close #1 End SubB．Private Sub Command1_Click() Open

[试题]在窗体上有一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框。程序运行后， Command1 为禁用（灰色），此时如果在文本框中输入字符，则命令按钮 Command1 变为可用。请填空。Private Sub Form_Load（）C．ommand1 Enabled=FalseE．nd SubPrivate Sub Text1_ ________ （）C．ommand1 Enabled=TrueE．nd Sub

[单选题]在窗体上画1个命令按钮（名称为Command1）和1个文本框（名称为Text1），然后编写如下事件过程：Private Sub Command1_Click（）x=Val（Text1.Text）Select Case xC．ase 1，3y=x*xC．ase Is>=10，Is<=-10y=xC．ase -10 To 10y=-xE．nd SelectE．nd Sub程序运行后，在文本框中输入3，然后单击命令按钮，则以下叙述中正确的是（ ）。A．执行y=x*xB．执行y=-xC．先执

[单选题]在窗体上有—个名称为Text1的文本框和一个名称为Command1的命令按钮，要求在程序执行时，每单击命令按钮—次，文本框向右移动—定的距离。下面能够正确实现上述功能的程序是 ______。A．Private Sub Command1_Click() Text1.Left=100 End SubB．Private Sub Command1_Click() Text1.Left=Text1.Left-100 End SubC．Private Sub Command1_Click() Text1.M

[单选题]窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮，要求程序运行时，单击命令按钮(如图1所示)，就可以把文本框中的内容写到文件Out．txt中，每次写 入的内容附加到文件原有内容之后。以下能正确实现上述功能的程序是（ ）。

[单选题]在窗体上有一个文件名称为Text1的文本框和1个名称为Command1的命令按钮，要求在程序执行时，每单击命令按钮一次，文本框向右移动一定距离。下面能够正确实现上述功能的程序是（ ）。A．Private Sub Command1_Click（）Text1.Left=100E．nd SubB．Private Sub Command1_Click（）Text1.Left= Text1.Left-100E．nd SubC．Private Sub Command1_Click（）Text1.Move.T

[试题]（ 8 ）窗体上有名称为 Command1 的命令按钮。事件过程及 2 个函数过程如下：Private Sub Command1_Click()D．im x As Integer,y As Integer,zx=3y=5z=fy(y)print fx(fx(x)),yE．nd SubF．unction fx(ByBal a As Integer)a=a+afx=aE．nd FunctionF．unction fy(ByRef a As Integer)a=a+afy=aE．nd Function运