在窗体上有一个名称为Command1的命令按钮,并编写有如下事件过程: Private Sub Command1_Click() Dim rec As animal Open"c:\vbTest.dat"For Random As

admin2019-06-20  33

问题 在窗体上有一个名称为Command1的命令按钮,并编写有如下事件过程:
    Private Sub Command1_Click()
    Dim rec As animal
    Open"c:\vbTest.dat"For Random As #1 Len=Len(rec)
    rec.animalName="cat"
    rec.aColor="White"
    Put #1,,rec
    Close #1
    End Sub
    记录类型定义如下:
    Private Type animal
    animalName As String*20
    aColor As String*10
    End Type
    下列叙述中正确的是(    )。

选项 A、记录类型animal不能在Form1中定义,必须在标准模块中定义
B、如果文件c:\vbTest.dat不存在,则Open命令执行失败
C、由于Put命令中没有指明记录号,因此每次都把记录写到文件的末尾
D、语句“Put#1,,rec”将animal类型的两个数据元素写到文件中

答案B

解析 本题考查随机文件的基本操作。随机文件以记录作为存储单位,以Random打开文件的格式为:Open文件名For Random As #文件号[Len=记录长度]。如果文件不存在,则打开失败。写操作格式为:Put[#]文件号,[记录号],变量名。可以将一个记录变量的内容写到指定的记录位置处,忽略记录号,则表示在当前记录后的位置插入一条记录。读操作格式为:Get[#]文件号,[记录号],变量名。如果忽略记录号,则读出当前记录后面的那一条记录。一般记录类型在VB中是以Type定义的自定义类型,可以在窗体和标准模块中定义。
转载请注明原文地址:https://kaotiyun.com/show/lrUp777K
0

最新回复(0)