2. 计算机
  3. 在考生的文件夹下有一个工程文件vbsj5.vbp，相应的窗体文件为vbsj5.frm。在窗体上有两个命令按钮，其名称分别为cmdWrite和cmdRead，标题分别为“写通信录”和“读通信录”，如图1－251所示。其中“写通信录”命令按钮事件过程用来建立一

在考生的文件夹下有一个工程文件vbsj5.vbp，相应的窗体文件为vbsj5.frm。在窗体上有两个命令按钮，其名称分别为cmdWrite和cmdRead，标题分别为“写通信录”和“读通信录”，如图1－251所示。其中“写通信录”命令按钮事件过程用来建立一

admin2018-12-05  57
问题 在考生的文件夹下有一个工程文件vbsj5.vbp，相应的窗体文件为vbsj5.frm。在窗体上有两个命令按钮，其名称分别为cmdWrite和cmdRead，标题分别为“写通信录”和“读通信录”，如图1－251所示。其中“写通信录”命令按钮事件过程用来建立一个通信录，以随机存取方式保存到文件out5.txt 中；而“读通信录”命令按钮事件过程用来读出文件out5.txt 中的每个记录，并在窗体上显示出来。

    通信录中的每个记录由3个字段组成，结构如下：
    姓名（Name）电话（Tel）邮政编码（Pos）
    LiMingXiang (010)62483772 100095
    各字段的类型和长度为：
    姓名（Name）：字符串 15
    电话（Tel）：字符串 15
    邮政编码（Pos）：长整型（Long）
    程序运行后，如果单击“写通信录”命令按钮，则可以随机存取方式打开文件out5.txt，并根据提示向文件中添加记录，每写入一个记录后，都要询问是否再输入新记录，回答“Y”（或“y”）则输入新记录，回答“N”（或“n”）则停止输入；如果单击“读通信录”命令按钮，则可以随机存取方式打开文件out5.txt，读出文件中的全部记录，并在窗体上显示出来，如图1－252所示。该程序不完整，请把它补充完整。

    要求：
    ①去掉程序中的注释符，把程序中的“?”改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。
    ②文件out5.txt 中已有3个记录，请运行程序，单击“写通信录”命令按钮，向文件out5.txt中添加以下两个记录（全部采用西文方式）：
    LiuXiaoqiang (028)87348765 430065
    DengQinghua (021)26874321 300120
    ③运行程序，单击“读通信录”命令按钮，在窗体上显示全部记录（共5个）。④用原来的文件名保存工程文件和窗体文件。
    程序源码：
    Private Type Tele
    Name As String * 15
    Tel As String * 15
    Pos As Long
    End Type
    Dim Pers As Tele
    Dim RecNum As Integer
    Private Sub cmdRead_Click()
    Open "out5.txt" For Random As
    #1 _
    Len ＝ Len(Pers)
    RecNum ＝ LOF(1) / Len(Pers)
    Do
    Pers.Name ＝ InputBox("请输入姓名
    ")
    Pers.Tel ＝ InputBox("请输入电话号
    码")
    Pers.Pos ＝ InputBox("请输入邮政编
    码")
     ’RecNum ＝ ?
    ’Put #1, ?
    asp＝
    InputBox("More(Y/N)?")
    ’Loop While UCase(asp) ?
    Close 1
    End Sub
    Private Sub cmdWrite_Click()
    Open "out5.txt" For Random As
    #1 _
    Len = Len(Pers)
    ’RecNum = ?
    Cls
    For i = 1 To RecNum
    ’Get #1, ?
    Print  Pers.Name;  Pers.Tel;
    Pers.Pos
    Next i
    Close 1
    End Sub
选项
答案【操作步骤】 步骤1：打开考生文件中的本题工程文件vbsj5.vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。 参考代码： RecNum = RecNum + 1 Put #1, RecNum, Pers Loop While UCase(asp) = "Y" RecNum = LOF(1) / Len(Pers) Get #1, i, Pers 步骤2：运行程序，单击“写通信录”命令按钮，按照提示依次输入： LiuXiaoqiang (028)87348765 430065 DengQinghua (021)26874321 300120 步骤3：运行程序，单击“读通信录”命令按钮，在窗体上显示全部记录（共5个）。 步骤4：按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/skFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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