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