A.水表故障信息
B.气表故障信息
C.热能表故障信息
D.备用
第2题
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类型的两个数据元素写到文件中
第3题
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类型的两个数据元素写到文件中
第4题
A. 记录类型animal不能在Form1中定义,必须在标准模块中定义
B.如果文件c:\vbTest.dat不存在,则Open命令执行失败
C.由于Put命令中没有指明记录号,因此每次都把记录写到文件的末尾
D.语句“Put #1, , rec”将animal类型的两个数据元素写到文件中
第5题
A.记录类型animal不能在Form1中定义,必须在标准模块中定义
B.如果文件"c:\vbTest. dat"不存在,则Open命令执行失败
C.由于Put命令中没有指明记录号,因此每次都把记录写到文件的末尾
D.语句“Put #1, , rec”将animal类型的两个数据元素写到文件中
第6题
A.记录类型animal不能在Form1中定义,必须在标准模块中定义
B.如果文件c:\vbTest.dat不存在,则Open命令执行失败
C.由于Put命令中没有指明记录号,因此每次都把记录写到文件的末尾
D.语句"Put#1,rec"将animal类型的两个数据元素写到文件中
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!