在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“显示”和“保存”,如图3.111所示,编写适当的事件过程。程序运行后,如果单击“显示"按钮,则

admin2018-12-20  28

问题 在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“显示”和“保存”,如图3.111所示,编写适当的事件过程。程序运行后,如果单击“显示"按钮,则读取考生文件夹下的in5.txt文件,并在文本框中显示出来,该文件是一个用随机存取方式建立的文件,共有5个记录,要求按记录号顺序显示全部记录,每个记录一行;如果单击“保存”按钮,则把所有记录保存到考生文件夹下的顺序文件out5.txt中。随机文件in5.txt中的每个记录包括三个字段,分别为姓名、性别和年龄,其名称和长度分别为:

  其类型定义为:
  PriVate  Type  StudInfo
    Name As  String*8
    Sex As String*4
    Age As  Integer
    End Type
    要求:文件out5.txt以顺序存取方式建立和保存。存盘时必须存放在考生文件夹下,工程文件名为sjt5.vbp,窗体文件名为sjt5.frm。

选项

答案步骤1:新建一个“标准EXE"工程,如表4.67在窗体中画出控件并设置其相关属性。 [*] 步骤2:打开代码编辑窗口,编写相应事件过程。 参考代码: Private Type StudInfo Name As String*8 Sex As String*4 Age As Integer End Type Dim Stud As StudInfo Dim RecNum As Long Private Sub Command1 Click() Open App.Path &"\in5.txt"For Random As #1 Len=Len(Stud) RecNum=1 Do While Not EOF(1) Get #1,RecNum,Stud Text1.Text=Text1.Text & Stud.Name Text1.Text=Text1.Text & Stud.Sex Text1.Text=Text1.Text & Str(Stud.Age) Text1.Text=Text1.Text+vbCrLf RecNum=RecNum+1 Loop Close 1 End Sub Private Sub Command2 Click() Open App.Path &"\out5.txt"For Output As #1 Print #1,Text1.Text Close 1 End Sub 步骤3:按要求将文件保存至考生文件夹中。

解析 本题程序设计思路:在“显示”按钮的单击事件过程中,用Open语句以随机方式打开数据文件in5.txt,并用Get读出一条记录显示在文本框中,随后读取下一条记录,直到所有的记录都读取完毕;在“保存”按钮的单击事件过程中,用Open语句以Output方式打开数据文件out5.txt,并用Print #方法将文本框中的值存入该文件。
转载请注明原文地址:https://kaotiyun.com/show/nwFp777K
0

最新回复(0)