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

admin2015-11-25  32

问题 在窗体上有一个名称为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
End Sub
记录类型定义如下:
Private Type animal
animalName As String*20
aC

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

答案B

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

最新回复(0)