niusouti.com
在窗体上有一个名称为Command1的命令按钮，并编写有如下事件过程：记录类型定义如下：下列叙述中正确的是（ ）。A. 记录类型animal不能在Form1中定义，必须在标准模块中定义B. 如果文件c：\vbTest．dat不存在，则Open命令执行失败C. 由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾D. 语句“Put#1,,rec”将animal类型的两个数据元素写到文件中
题目
在窗体上有一个名称为Command1的命令按钮，并编写有如下事件过程：
记录类型定义如下：
下列叙述中正确的是（ ）。
A. 记录类型animal不能在Form1中定义，必须在标准模块中定义
B. 如果文件c：\vbTest．dat不存在，则Open命令执行失败
C. 由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾
D. 语句“Put#1,,rec”将animal类型的两个数据元素写到文件中
相似考题
更多“ 在窗体上有一个名称为Command1的命令按钮，并编写有如下事件过程：记录类型定义如下：下列叙述中正确的是（ ）。A. 记录类型animal不能在Form1中定义，必须在标准模块中定义B. 如果文件c：\vbTe”相关问题
-
第1题：
一个工程中包含两个名称分别为Form1、Fort2的窗体，一个名称为mdlFunc的标准模块。假定在 Form1、Form2和mdlFune中分别建立了自定义过程，其定义格式为： Form1中定义的过程； Private Sub frmFunctionl() ... End Sub Form2中定义的过程： Public Sub frmFunction2() ... End Sub mdlFunc中定义的过程： Public SubmdlFunction() ... End Sub 在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是 ______。
A．上述3个过程都可以在工程中的任何窗体或模块中被调用
B．frmFunction2和mdlFunction过程能够在工程中各个窗体或模块中被调用
C．上述3个过程都只能在各自被定义的模块中调用
D．只有mdlFunction过程能够被工程中各个窗体或模块调用
正确答案：D
解析：Form1中的frmFunction1是窗体/模块级过程，只能被所在窗体Form1中的其他过程调用。 Form2中的frmFunction2是全局过程，所有模块的所有过程都能调用该过程，但外部过程调用时，需要在过程名前加窗体名。mdlFunc中的mdlFunction是在标准模块中定义的全局过程，如果过程名唯一，可以直接调用。因此，只有mdlFunction过程能够被工程中各个窗体或模块直接调用。 -
第2题：
以下关于窗体叙述中错误的是()。
A.一个工程中可以包含多个窗体文件
B.在一个窗体文件中用Private定义的通用过程能被其他窗体调用
C.在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件
D.全局变量必须在标准模块中定义
本题答案：D
-
第3题：
假定在窗体（名称为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类型的两个数据元素写到文件中
正确答案：C
-
第4题：
假定在窗体（名称为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(reCreC.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
-
第5题：
假定在窗体(名称为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的整数，表示写入的是第几条记录；如果忽略记录号，则表示在当前记录后插入一条记录。