[计算机类试卷]VB机试模拟试卷47及答案与解析.doc

1、VB机试模拟试卷 47及答案与解析 一、基本操作题（ 30分） 1 在窗体上创建三个命令按钮，名称分别为 Command1、 Command2和Command3，标题分别为 “导入数据 ”、 “字母转换 ”和 “保存数据 ”，以及一个文本框，名称为 Text1。编写事件过程，使得在运行时，单击 “导入数据 ”按钮，从考生文件里读入 data.txt文件 (字母 &空格 )，在 Text1中显示。单击 “字母转换 ”按钮，则把 Text1中的所有大写字母转换成小写字母。单击 “保存数据 ”按钮，存入 out.txt文件中。程序运行后如图 28所示。要求 实现题目给出的功能，并将文件保存在考生文件

2、夹下，工程文件名为 ylc.vbp。VB机试模拟试卷 47答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)Visual Basic集成环境中，执行 “文件 ”“ 新建工程 ”命令，选择“标准 Exe”。创建窗体 Form1。 (2)在工具箱中选择文本框控件，在窗体建立一个文本框 Text1，将其 Text属性设为空。 (3)在工具箱中选择命令按钮控件在窗体上创建三个命令按钮，名称分别为Command1、 Command2和 Command3，标题分 别为 “导入数据 ”、 “字母转换 ”和 “保存数据 ”。 (4)双击 “导入数据 ”按钮，弹出代码窗口，在其中添加如下代码： P

3、rivate 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)

4、 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)该题重点考查了命令按钮的单击事件与函数过程的调用，通过调用可以很方便地实现题中要求的各种功能。