某人编写了向随机文件中写一条记录的程序,代码如下: Type RType Name As String*10 Tel As String*20 End Type Private Sub Command1_Click

admin2020-02-27  25

问题 某人编写了向随机文件中写一条记录的程序,代码如下:
    Type RType
    Name As String*10
    Tel As String*20
    End Type
    Private Sub Command1_Click()
    Dim p As RType
    p.Name=InputBox("姓名")
    p Tel=lnputBox("电话号")
    Open"Books.dat"For Random As #1
    Put #1,,p
    Close #1
    End Sub
    该程序运行时有错误,修改的方法是(    )。

选项 A、在类型定义“Type RType”之前加上“Private”
B、Dim P As RType必须置于窗体模块的声明部分
C、应把Open语句中的For Random改为For Output
D、Put语句应该写为Put#1,p.Name,p.Tel

答案A

解析 记录类型的定义必须放在模块的声明部分,当在标准模块中定义时,关键字Type前可以有Public(默认)或Private,而如果在窗体模块中定义,则必须在前面加上关键字Private。Open语句中使用For Random表示文件以随机方式存取。Put语句的语法为:Put#文件号,[记录号],变量。其中“变量”是除对象变量和数组变量外的任何变量。
转载请注明原文地址:https://kaotiyun.com/show/KJTp777K
0

最新回复(0)