在考生文件夹下有一个工程文件sjt5.vbp 和随机文件in5.txt,文件中的每个记录包括三个字段,分别为姓名、电话和邮编,其名称、类型和长度如下: 窗体中有一个文本框和两个命令按钮。程序运行后,如果单击“读入并显示记录”按钮,则从考生文件夹下

admin2019-05-14  29

问题 在考生文件夹下有一个工程文件sjt5.vbp 和随机文件in5.txt,文件中的每个记录包括三个字段,分别为姓名、电话和邮编,其名称、类型和长度如下:

    窗体中有一个文本框和两个命令按钮。程序运行后,如果单击“读入并显示记录”按钮,则从考生文件夹下的in5.txt 文件中读入所有记录并显示在文本框中(每条记录占一行,数据项的顺序是姓名、电话、邮编,如图1-102所示,可使用符号常量vbCrLf 表示回车换行);若单击“保存”按钮则把文本框中的内容存入out5.txt 文件中。

    要求:编写“读入并显示记录”按钮的把文本框中所有字母改为大写字母(可手工修改)。单击“保存”按钮把修改后的文本框内容存盘,否则无成绩!(过程已给出,不能修改)。最后以原文件名保存放在考生文件夹下。

选项

答案【操作步骤】 步骤1:打开考生文件中的本题工程文件在代码编辑窗口的指定位置编写以下代码: 参考代码: Open App.Path & "\in5.txt" For Random As #1 Len = Len(pal) For i = 1 To 5 Get #1, i, pal Text1.Text = Text1.Text & pal.Name Text1.Text = Text1.Text & pal.Tel Text1.Text = Text1.Text & Str(pal.Post) Text1.Text = Text1.Text + vbCrLf Next Close 1 步骤2:按要求将文件保存至考生文件夹中。 步骤3:按<F5>键键运行程序,先单击“读入记录”按钮,然后把文本框中把所有字母改为大写字母,再单击“保存记录”按钮。

解析
转载请注明原文地址:https://kaotiyun.com/show/0HUp777K
0

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