在窗体上创建三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“导入数据”、“计算”和“保存数据”，以及一个文本框，名称为Text1。编写事件过程，使得在运行时，单击“导入数据”按钮，从考生文件里读入data.txt文件(其中有20个整数)，在Text1中显示。单击“计算”，采用冒泡算法排序。单击“保存数据”，存入out.txt文件中。程序运行界面如图29所示。

正确答案：

文本框的MuhiLine属性设置其是否能多行显示，为True表示能多行显示，为False表示不能多行显示。ScrollBars属性设置其是否有滚动条，值为0时表示没有滚动条，值为1时表示有水平滚动条，值为2时表示有垂直滚动条，值为3时表示水平、垂直滚动条都有。
对文件的操作一般包括以下步骤：打开或建立文件；进行读／写操作；关闭文件。
要将字符串的小写字母转换成大写字母，可以通过UCase函数实现。UCase函数将小写字母转换成大写字母，而大写或非字母字符均保持不变。其语法格式为：UCase(string)。省string为任何有效的字符串表达式。
根据题意，将一个文本框控件和3个命令按钮添加到窗体中，文本框的名称为Text1、MuhiLine属性为True、ScrollBar属性为2，命令按钮的名称分别为Command1、Command2和Command3，Caption分别为“读取文本”、“大写”和“保存”，设置完成后双击Command1进入代码编写窗口，其中Mid（　　）函数是将字符串中的字符提取出来，以判断字符是不是小写字母，EOF（　　）函数判断文件是否读取完成，补充后的具体代码如下：

正确答案：

【考点分析】本题考点有：标签的Name和Caption属性、文本框Name和Text属性、命令按钮的Name和Caption属性、“＆”和“+”运算符以及Print方法。
【解题思路】通过标签的Name和Caption属性设置标签的名称和标题，通过文本框Name和Text属性设置文本框的名称和文本，通过命令按钮的Name和Caption属性设置命令按钮的名称和标题，“＆”和“+”运算符均可将两个表达式作为字符串连接。在窗体上输出文本内容可使用Print方法。
【操作步骤】
步骤1：新建一个窗体，按照题目要求建立控件并设置相应属性，程序中用到的控件及属性如表3．16所示。

步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub Command1_Click()
Form1．Print Text1．Text＆"，现年"＆
Text2．Text＆"岁"
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。

正确答案：B
解析：当单击Command1时，Text1的Text变为AB；当单击Command2时，Text1的Text属性变为CD。

正确答案：(1)Visual Basic集成环境中执行“文件”→“新建工程”命令选择“标准Exe”。创建窗体Form1。 (2)在工具箱中选择文本框控件在窗体建立一个文本框Text1将其Text属性设为空。 (3)在工具箱中选择命令按钮控件在窗体上创建三个命令按钮名称分别为Command1、 Command2和Command3标题分别为“导入数据”、“字母转换”和“保存数据”。 (4)双击“导入数据”按钮弹出代码窗口在其中添加如下代码： Private Sub Command1_Click() Dim a As String Call FindData(a) Text1.Text=a End Sub Sub FindData(a As String) Open App. Path & "\" & "data.txt" For Input As #1 Do While Not EOF(1) Input #1a Loop Close #1 End Sub (5)双击“字母转换”按钮弹出代码窗口在其中添加如下代码： Private Sub Command2_Click() Text1.Text=UCase(Text1.Text) End Sub (6)双击“保存数据”按钮弹出代码窗口在其中添加如下代码： Private Sub Command3_Click() Call SaveData(Text1.Text) End Sub Sub SaveData(a As String) Open App.Path & "\" & "out. txt" For Output As #1 Print #1 a Close #1 End Sub (7)按F5键运行程序。如图28所示。 (8)执行“文件”→“保存工程”命令将工程文件命名为ylc.vbp窗体文件命名为 ylc.frm。
(1)Visual Basic集成环境中，执行“文件”→“新建工程”命令，选择“标准Exe”。创建窗体Form1。 (2)在工具箱中选择文本框控件，在窗体建立一个文本框Text1，将其Text属性设为空。 (3)在工具箱中选择命令按钮控件在窗体上创建三个命令按钮，名称分别为Command1、 Command2和Command3，标题分别为“导入数据”、“字母转换”和“保存数据”。 (4)双击“导入数据”按钮，弹出代码窗口，在其中添加如下代码： Private Sub Command1_Click() Dim a As String Call FindData(a) Text1.Text=a End Sub Sub FindData(a As String) Open App. Path & "\" & "data.txt" For Input As #1 Do While Not EOF(1) Input #1，a Loop Close #1 End Sub (5)双击“字母转换”按钮弹出代码窗口，在其中添加如下代码： Private Sub Command2_Click() Text1.Text=UCase(Text1.Text) End Sub (6)双击“保存数据”按钮弹出代码窗口，在其中添加如下代码： Private Sub Command3_Click() Call SaveData(Text1.Text) End Sub Sub SaveData(a As String) Open App.Path & "\" & "out. txt" For Output As #1 Print #1, a Close #1 End Sub (7)按F5键运行程序。如图28所示。 (8)执行“文件”→“保存工程”命令，将工程文件命名为ylc.vbp，窗体文件命名为 ylc.frm。 解析：(1)该题综合考查了多个知识点，重点考查了文件的读入操作并在文本框中输出；字符串转换函数UCase()，转换字符串的大小写；对顺序文件的读入和输出的操作等。(2)该题重点考查了命令按钮的单击事件与函数过程的调用，通过调用可以很方便地实现题中要求的各种功能。

正确答案：D