A-A+

假定在窗体(名称为Form1)的代码窗口中定义如下记录类型: Private Type an

2022-08-06 02:02:56 问答库 阅读 174 次

问题详情

假定在窗体(名称为Form1)的代码窗口中定义如下记录类型:
Private Type animal
animal Name As String * 20
aColor As String * 10
End Type
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1 Click()
Dim rec As animal
Open "c:vb Test.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类型的两个数据元素写到文件中请帮忙给出正确答案和分析,谢谢!

参考答案

正确答案:D
解析:记录类型可以在标准模块中定义,也可以在窗体模块中定义。如果文件c:\vbTest.dat不存在,Open命令是可以执行的;随机访问模式中文件的写操作使用Put命令,其形式如下:Put[#]文件号,[记录号],变量名。其中:记录号是大于1的整数,表示写入的是第几条记录;如果忽略记录号,则表示在当前记录后插入一条记录。

考点:窗体,假定