![[单项选择题] 假定在窗体（名称为Form1）的代码窗口中定义如下记录类型： Private Type animal animalName As String*20 aColor As St,第1张](/aiimages/%5B%E5%8D%95%E9%A1%B9%E9%80%89%E6%8B%A9%E9%A2%98%5D+%E5%81%87%E5%AE%9A%E5%9C%A8%E7%AA%97%E4%BD%93%EF%BC%88%E5%90%8D%E7%A7%B0%E4%B8%BAForm1%EF%BC%89%E7%9A%84%E4%BB%A3%E7%A0%81%E7%AA%97%E5%8F%A3%E4%B8%AD%E5%AE%9A%E4%B9%89%E5%A6%82%E4%B8%8B%E8%AE%B0%E5%BD%95%E7%B1%BB%E5%9E%8B%EF%BC%9A%E3%80%80%E3%80%80Private+Type+animal%E3%80%80%E3%80%80%E3%80%80animalName+As+String%2A20%E3%80%80%E3%80%80%E3%80%80aColor+As+St.png "[单项选择题] 假定在窗体（名称为Form1）的代码窗口中定义如下记录类型： Private Type animal animalName As String*20 aColor As St,第1张")
[单项选择题] 假定在窗体（名称为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类型的两个数据元素写到文件中
正确答案：D
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）