[填空题]假定定义了一个记录类型，名为Rt，同时建立了一个名为Sp.txt的文件，然后编写如下的程序段：
Dim Rv As Rt
r1=Len(Rv)
Open"Sp.txt" For Random As # 1
x=LOF(1)
n=x/r1
执行上面的程序段后，变量n中存放的是文件 【6】 中所存放的是 【7】 记录类型的记录数。

[填空题]假定定义了一个记录类型，名为Rt，同时建立了一个名为Sp.txt的文件，然后编写如下的程序段： Dim Rv As Rt r1=Len(Rv) Open"Sp.txt" For Random As # 1 x=LOF(1) n=x/r1 执行上面的程序段后，变量n中存放的是文件 【6】 中所存放的是 【7】 记录类型的记录数。

[填空题]假定定义了一个记录类型，名为Rt，同时建立了一个名为Fr.txt的文件，然后编写如下程序段：
Dim Rv As Rt
r1=Len(Rv)
Open "Fr.txt" For Random As #1
x=LOF(1)
n=x/r1
执行上面的程序段后，变量n中存放的是文件中包含的______条数。

[填空题]假定定义了一个记录类型，名为Rt，同时建立了一个名为Sp.txt的文件，然后编写如下的程序段：
Dim Rv As Rt
r1=Len(Rv)
Open"Sp.txt" For Random As # 1
x=LOF(1)
n=x/r1
执行上面的程序段后，变量n中存放的是文件 【6】 中所存放的是 【7】 记录类型的记录数。

[单项选择]假定定义了一个记录类型，名为Rt，同时建立了一个名为Fr.txt的文件，然后执行下面的程序段后，变量n中存放的是____。
Private Sub Command1_Click（　）
Dim Rv As Rt
R1= Len(Rv)
Open"Fr.txt"For Random A.s #1
X= LOF(1)
n =X/RL
Close #1
End Sub
A. 文件中的记录数
B. 文件字节数
C. 文件行数
D. 文件字符数

[填空题]假定在工程文件中有一个标准模块，其中定义了如下记录类型
Type Books
Name As String * 10
TelNum As String * 20
End Type
要求在执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。将经下程序补充完整。
Private Sub Command1_Clickk( )
Dim B As Books
open "c: /person. txt" For output As #1
B. Name = InputBox ("请输入姓名t" )
B. TelNum = InputBox("请输入电话号码" )
write #1, 【15】
close #1
End Sub

[填空题]假定在工程文件中有一个标准模块，其中定义了如下记录类型。
Private Type Books
Name As String*10
TelNum As String#20
End Type
要求在执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。将以下程序补充完整。
Private Sub Command1_Click（　）
DimB As Books
open“C/person.txt”For output As#1
B.Name=InputBox(“请输入姓名”)
B.TeINum=InputBox(“请输入电话号码”)
write#1， (9)
close#1
End Sub

[单项选择]假定在工程文件中有一个标准模块，其中定义了如下记录类型
Type Books
Name As String*10
TelNum As String *20
End Type
要求在执行事件过程Command1_Click时，在C盘目录下的顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是______。
A) Private Sub Command1_Click（　）
Dint B As Books
Open"c: /Person.txt" For Output As#1
B.Name=InputBox("输入姓名")
B.TelNum=InputBox("输入电话号码")
Write#1 ,B.Name,B.TelNum
Close#1
End Sub
B) Private Sub Command1_Click（　）
Dim B As Books
Open"C:/Person.txt" For Input As#1
B.Name=InputBox("输入姓名")
B.TelNum=InputBox("输入电话号码")
Print#1,B.Name,B.TelNum
Close#1
End Sub
C) Private Sub Command1_Click（　）
Dim B As Books
Open"c:/Person.txt" For Output As#1
Name=InputBox("输入姓名")
TelNom=InputBox("输入电话号码")
Write #1,B
Close#1
End Sub
D) Private Sub Command1_Click（　）
Dim B As Book
O
A. A
B. B
C. C
D. D

[单项选择]假定在工程文件中有一个标准模块，其中定义了如下记录类型：
Type Books
Name As String * 10
TelNum As String * 20
End Type
要求在执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是( )
A. Private Sub Command1_Click()
B. Private Sub Command1_Click()
C. Private Sub Command1_Click()
D. Private Sub Command1_Click()

[填空题]假定用户没有给一个名为AB的类定义构造函数，则系统为其隐含定义的构造函数为 【17】 。

[填空题]假定用户没有给一个名字为Sample的类定义构造函数，则系统为其隐含定义的构造函数为 【8】 。

[填空题]假定用户没有给一个名字为Sampie的类定义构造函数，则系统为其隐含定义的构造函数为______。

[单项选择]假定在窗体(名称为Form1)的代码窗口中定义如下记录类型： Private Type animal animalName As String*20 aColor As String*10 End Type 在窗体上面一个名称为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 End Sub 则以下叙述中正确的是______。
A. 记录类型animal不能在Form1中定义，必须在标准模块中定义
B. 如果文件"c:/vbTes dat"不存在，则Open命令执行失败
C. 由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾
D. 语句“Put #1, , rec”将animal类型的两个数据元素写到文件中

[填空题]假定用户没有给一个名为MyClass的类定义析构函数，则系统为其定义的默认析构函数首部形式为 【10】 。

[单项选择]假定在窗体（名称为Form1）的代码窗口中定义如下记录类型： 　　Private Type animal 　　　animalName As String*20 　　　aColor As String*10 　　End Type 　　在窗体上画一个名称为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 　　则以下叙述中正确的是（ ）。
A. 记录类型animal不能在Form1中定义，必须在标准模块中定义
B. 如果文件c:/vbTest.dat不存在，则Open命令执行失败
C. 由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾
D. 语句“Put #1, , rec”将animal类型的两个数据元素写到文件中