窗体上有名称为Commandl的命令按钮及名称为Textl、能显示多行文本的文本框。程序运行后，如果单击命令按钮，则可打开磁盘文件c：＼test．txt，并将文件中的内容(多行文本)显示在文本框中。下面是实现此功能的程序，请填空。Private Sub Commandl_Click()Textl=“”Number=FreeFileOpen“c：＼test．txt”For Input As NumberDo While Not EOF(【 】)Line InputNumber，sTextl．Text=Tex
题目
窗体上有名称为Commandl的命令按钮及名称为Textl、能显示多行文本的文本框。程序运行后，如果单击命令按钮，则可打开磁盘文件c：＼test．txt，并将文件中的内容(多行文本)显示在文本框中。下面是实现此功能的程序，请填空。
Private Sub Commandl_Click()
Textl=“”
Number=FreeFile
Open“c：＼test．txt”For Input As Number
Do While Not EOF(【 】)
Line InputNumber，s
Textl．Text=Textl．Text+【 】+Chr(13)+Chr(10)
Loop
Close Number
End Sub
相似考题
更多“窗体上有名称为Commandl的命令按钮及名称为Textl、能显示多行文本的文本框。程序运行后,如果单击命 ”相关问题
-
第1题：
在窗体上添加一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：
程序运行后，单击命令按钮，在文本框中显示的值是__________。
正确答案：
30【解析】本题考查VBA中二维数组和循环的知识。本题属于比较简单的问题，使用了二重循环为二维数组进行了部分赋值，最后求两个数组元素值并求和，注意这两个元素是否已被赋值，若没有赋值则为0。本题中对于a(2，3)赋值为2*3也就是6，a(4，6)赋值为4*6也就是24，最后的结果为6 24=30。 -
第2题：
窗体上有名称为Command1的命令按钮和名称为Textl的文本框
Private Sub Command1 Click（ ）
Text1．Text="程序设计"
Text1．SeFocus
End Sub
Private Sub Text1 GotFocus（ ）
Text1．Text="等级考试"
End Sub
运行以下程序，单击命令按钮后（ ）。
A.文本框中显示的是"程序设计"，且焦点在文本框中
B.文本框中显示的是"等级考试"，且焦点在文本框中
C.文本框中显示的是"程序设计"，且焦点在命令按钮上
D.文本框中显示的是"等级考试"，且焦点在命令按钮上
正确答案：B
B。【解析】单击命令按钮首先激发Command1_Click事件，Command1_Click事件将Text1的文本设为“程序设计”，然后将光标置到文本框，这将激发Text1_GotFocus，执行Text1_GotFocus即为B选项结果。 -
第3题：
在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为textl)，编写如下事件过程：
打开窗体运行后，单击命令按钮，文本框中显示的内容是__________。
正确答案：
15【解析】本题考查函数调用中参数传递的知识。在VBA的函数调用时，参数有两种传递方式：传址传递和传值传递。如果在函数声明时没有说明传递类型，则默认为传址传递，即形参的结果会传递给实参。本题中形参均为传址传递，即a=x=3，b=y=5，c=z=10。但是在子程序里面对c重新赋值为c=a*b=15，这个值l5会回送给实参2，所以最后显示的值Z也就是l5。 -
第4题：
设在窗体上有一个名称为Commandl的命令按扭和一个名称为Textl的文本框。要求单击Commandl按钮时可把光标移到文本框中。下面正确的事件过程是。 A．Private Sub Commandl_Click B．Private Sub Commandl_Click Textl．GotFocus Commandl．GotFocus End Sub End Sub C．Private Sub Commandl_Click D．Private Sub Commandl_Click Textl．SetFocus Commandl．SetFocus End Sub End sub
正确答案：D
-
第5题：
在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Textl)，然后编写如下事件过程：
程序运行后，在文本框中输入3，然后单击命令按钮，则Y的值变为__________。
正确答案：
9【解析】本题考查多分支语句SelectCase的知识。SelectCase用于实现多分支结构，其使用格式为：
其功能是根据“测试表达式”的值，从多个语句块中选择符合条件的一个语句块执行.如果测试表达式的值等于某一个表达式的值，则选择该语句块的语句执行，执行完毕后退出Case结构。本题中由于x的值为3，符合第一个Case语句的条件，所以执行y=x*x后退出Case结构，最后Y的值为9。