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

admin2013-04-11  21

问题 在窗体上有一个名称为Commandl的命令按钮,并编写有如下事件过程:
    Private Sub Commandl 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
    EndSub
    记录类型定义如下:
    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

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

最新回复(0)