在考生文件夹下有一个工程文件vbsj5.vbp,已给出了部分控件和部分程序。请在窗体上画三个标签,其名称分别为lblName、lblTel和lblPost,标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框,其名称分别为txtName、txtT

admin2019-05-14  28

问题 在考生文件夹下有一个工程文件vbsj5.vbp,已给出了部分控件和部分程序。请在窗体上画三个标签,其名称分别为lblName、lblTel和lblPost,标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框,其名称分别为txtName、txtTel和txtPost,初始内容均为空白,如图3—72所示。程序运行后,如果单击“显示第三个记录”命令按钮,则读取考生文件夹下in5.txt文件中的第三个记录,将该记录的三个字段分别显示在三个文本框中(该文件是一个用随机存取方式建立的文件,共有5个记录)。单击“保存”按钮,则把该记录(三个字段)保存到考生文件夹下的顺序文件out5.txt中。请编写“显示第三个记录”按钮的Click事件过程,以实现上述功能。
注意:考生不得修改已经存在的程序,必须用“保存”按钮存储结果,否则无成绩。最后,按原文件名把程序存盘。

程序源码:
Private Type PalType
Name As String*8
Tel As String*10
Post As Long
End Type
考生编写如下事件过程的程序
(cmdDisplay_Click)
Private Sub cmdDisplay_Click()
End Sub
Private Sub cmdSave_Click()
Open"out5.txt"For Output As#1
Print#1,txtName.Text,txtTel.Text,txtPost.Text
Close1
End Sub

选项

答案步骤1:打开考生文件夹中的本题工程文件vbsj5.vbp,按表4—44在窗体中画出控件并设置其相关属性。 [*] 步骤2:在代码编辑窗口中,编写cmdDisplay_Click事件过程。 参考代码: Private Sub cmdDisplay_Click() Dim pers As PalType Open"in5.txt"For Random As:#1_ Len=Len(pers) Get#1,3,pers txtName.Text=pers.Name txtTel.Text=pers.Tel txtPost.Text=pers.Post Close#1 End Sub 步骤3:按<F5>键运行程序,先单击“显示第三个记录”按钮,再单击“保存”按钮。 步骤4:按要求将文件保存至考生文件夹中。

解析 本题需在“显示第三个记录”按钮的单击事件过程中,先声明一个自定义数据类型PalType的变量,然后用Open语句打开文件in5.txt,接着用Get#语句读出记录号为3的记录并赋值给白定义类型变量,最后将该变量各元素的值显示在对应文本框中。
转载请注明原文地址:https://kaotiyun.com/show/3UUp777K
0

最新回复(0)