2. 计算机
  3. 在窗体上创建三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“导入数据”、 “字母转换”和“保存数据”，以及一个文本框，名称为Text1。编写事件过程，使得在运行时，单击“导入数据”按钮，从考生文件里读入data.

在窗体上创建三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“导入数据”、 “字母转换”和“保存数据”，以及一个文本框，名称为Text1。编写事件过程，使得在运行时，单击“导入数据”按钮，从考生文件里读入data.

admin2009-03-17  31
问题 在窗体上创建三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“导入数据”、  “字母转换”和“保存数据”，以及一个文本框，名称为Text1。编写事件过程，使得在运行时，单击“导入数据”按钮，从考生文件里读入data.txt文件(字母&空格)，在Text1中显示。单击“字母转换”按钮，则把Text1中的所有大写字母转换成小写字母。单击“保存数据”按钮，存入out.txt文件中。程序运行后如图28所示。要求实现题目给出的功能，并将文件保存在考生文件夹下，工程文件名为ylc.vbp。
选项
答案(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)该题重点考查了命令按钮的单击事件与函数过程的调用，通过调用可以很方便地实现题中要求的各种功能。
转载请注明原文地址:https://jikaoti.com/ti/pdq0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)