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