（ 11 ） 在窗体上画一个命令按钮和一个文本框 ， 其名称分别为 Command1 和 Text1 ， 然后编写如下事件过程 ：

Private Sub Command1_Click()

D．im inData As String

Text1.Text = ""

Open "d:/myfile.txt" For ( 14 ) As #1

D．o While ( 15 )

Input #1, inData

Text1.Text = Text1.Text + inData

Loop

C．lose #1

E．nd Sub

程序的功能是，打开 D 盘根目录下的文本文件 myfile.txt ，读取它的全部内容并显示在文本框中 。 请填空。

[试题]在窗体上画一个命令按钮和一个文本框，其名称分别为 Command1 和 Text1 ，然后编写如下事件过程：Private Sub Command1_Click（）D．im inData As StringText1.Text=" "Open "d:|| ML ） ||Myfile txt" for ________ As #1D．o While ________Input # 1,inDataText1.Text=Text1.Text+inDataLoopC．lose #1E．nd S

[单选题]（ 31 ） 在窗体上画一个命令按钮和一个文本框 （ 名称分别为 Command1 和 Text1 ） ， 并把窗体的Keyprewie w属性设置为 True ，然后编写如下代码：D．im SaveAll As StringPrivate Sub Form_Load ()ShowText1.Text= ” ”Text1.SetFocusE．nd SubPrivate Sub Command1_Click()Text1.Text=Lcase(SaveAll)+SaveAllE．nd SubPri

[单选题]在窗体上画一个命令按钮和一个文本框，其名称分别为Commandl和Text1，把文本框的 Text属性设置为空白，然后编写如下事件过程： Private Sub Commandl_click() a=InputBox("Enter an integer") b=InputBox("Enter an integer") Text1.Text=b+a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示内容是( )。A．108B．18C．810D．出错

[单选题]在窗体上画一个命令按钮和一个文本框，其名称分别为Commandl和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程： Private Sub Commandl_Ciick() a=InputBox("Enter an integer") b=InputBox("Enter an integer") Text1.Text=b+a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是______。A． 108B．18C．810

[试题]在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程： 程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入一个具有大小写的字符串，则在标签中显示的内容全部为大写。请填空。

[单选题]在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Labell和 Commandl，然后编写如下两个事件过程；Private Sub Command1_Click()S＄= InputBox ("请输入1个字符串")Text1.Text= S＄E．nd SubPrivate Sub Text1_Change()Labell.Caption = UCase(Mid(Text1, Text2, 8))E．nd Sub程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话

[单选题]在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：Private Sub Command1_Click() strText = InputBox("请输入") Text1.Text = strTextEnd SubPrivate Sub Text1_Change() Label1.Caption = Right(Trim(Text1.Text), 3)End Sub程序运行后，单击命令按钮，如果在输入对话框中输入a

[单选题]在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Label1，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(Text1.Text)+0.5) Label1.Caption=Str(x) End Sub 程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是： ______。A．27B．28C．29D．30

[单选题]在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和 Command1，然后编写如下两个事件过程： Private Sub Command1_Click() strText=InputBox("请输入") Text1.Text=strText End Sub Private Sub Text1_Change() Label1.Caption=Right(Trim(Text1.Text)，4) End Sub 程序运行后，如果在对话框中输入abcdefgh，则在

[单选题]在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Labell，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(Text1.Text)+0.5) Labell.Caption=Str(x) End Sub 程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是 ______。A．27B．28C．29D．30