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

admin2018-12-05  26

问题 在考生的文件夹下有一个工程文件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://jikaoti.com/ti/Zdm0FFFM
0

最新回复(0)