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

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

admin2019-05-14  73
问题 在窗体上画一个文本框，其名称为Text1，初始内容为空白，并设置成多行显示格式；然后再画两个命令按钮，其名称分别为Command1和Command2，标题分别为“显示”和“保存”，如图3-92所示，编写适当的事件过程。程序运行后，如果单击“显示”按钮，则读取考生文件夹下的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。
   
选项
答案审题分析 本题程序设计思路：在“显示”按钮的单击事件过程中，用Open语句以随机方式打开数据文件in5．txt，并用Get读出一条记录显示在文本框中，随后读取下一条记录，直到所有的记录都读取完毕；在“保存”按钮的单击事件过程中，用Open语句以Output方式打开数据文件out5．txt，并用Print#方法将文本框中的值存入该文件。 操作步骤 步骤1：新建一个“标准EXE”工程，如表4-51在窗体中画出控件并设置其相关属性。 [*] 步骤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) RecNHm=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 ReCNHm=RecNum+1 Loop Close 1 End Sub Private Sub Command2_C1ick() Open App．Path＆"＼out5．txt"For Output As #1 Print #1，Text1．Text Close 1 End Sub 步骤3：按要求将文件保存至考生文件夹中。　　 考点链接 顺序文件、随机文件。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/jHUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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