假定在工程文件中有一个标准模块，其中定义了如下记录类型Type BooksName As String * 10TelNum As String * 20End Type要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是（ ）。A．Private Sub Command1_Click（）Dim B As BooksOpen "c:\Person.txt" For Output As #1B．Name = InputBox（"输入姓
题目
假定在工程文件中有一个标准模块，其中定义了如下记录类型
Type Books
Name As String * 10
TelNum As String * 20
End Type
要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是（ ）。
A．Private Sub Command1_Click（）
Dim 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（"输入姓名"）
TelNum = InputBox（"输入电话号码"）
Write #1, B
Close #1
End Sub
D．Private Sub Command1_Click（）
Dim B As Book
Open "c:\Person.txt" For Input As #1
Name = InputBox（"输入姓名"）
TelNum = InputBox（"输入电话号码"）
Print #1, B．Name, B．TelNum
Close #1
End Sub
相似考题
更多“假定在工程文件中有一个标准模块,其中定义了如下记录类型 TypeBooks NameAsString*10 Te ”相关问题
-
第1题：
假字在窗体(名称为Forml)的代码窗口中定义如下记录类型: Private Type animal Anima1Name 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" Pat#1 , rec Close#1 End Sub 则以下叙述中正确的是
A．记录类型animal不能在Form1中定义,必须在标准模块中定义
B．如果文件c：\vbTest.dat不存在，则Open命令执行失败
C．由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾
D．语句"Put#1，rec"将animal类型的两个数据元素写到文件中
正确答案：D
解析：Type语句通常在标准模块中使用，如果放在窗体模块中，则应加上关键字Private。如果文件vbText.dat不存在，则Open语句可以自行生成一个文件。对于用Random方式打开的文件，“记录号”是需要写入的编号。如果省略，则写到下一个记录位置，即最近执行Get或Put语句后或由最近的Seek语句所指定的位置。注意，省略记录号，逗号不可以省略。 -
第2题：
假定在窗体(名称为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:\vbTest. dat"不存在，则Open命令执行失败
C．由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾
D．语句“Put #1, , rec”将animal类型的两个数据元素写到文件中
正确答案：D
解析：选项A在一般情况下，记录类型应在标准模块中定义。如果在窗体模块中定义，则必须在"Type"关键字前面加上“Private”；选项B用Open语句打开文件时，如果为输入(Input)打开的文件不存在，则产生“文件未找到”错误；如果为输出(Output)、附加(Append)或随机(Random)访问方式打开的文件不存在，则建立相应的文件；选项C如果没有指明记录号，则将上一个Get或Put语句之后的(或上一个Seek函数指出的)下一个记录或字节写入。选项D由于rec是animal类型变量，对其操作都是对变量animalName和变量aColor的操作。 -
第3题：
假定在窗体(名称为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的整数，表示写入的是第几条记录；如果忽略记录号，则表示在当前记录后插入一条记录。 -
第4题：
在窗体上有一个名称为Command1的命令按钮，并编写有如下事件过程：
记录类型定义如下：
下列叙述中正确的是（ ）。A. 记录类型animal不能在Form1中定义，必须在标准模块中定义
B. 如果文件c：\vbTest．dat不存在，则Open命令执行失败
C. 由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾
D. 语句“Put#1,,rec”将animal类型的两个数据元素写到文件中
正确答案：B
B) 【解析】本题考查随机文件的基本操作。随机文件以记录作为存储单位，以Random打开文件的格式为：Open文件名For Random As#文件号[Len=记录长度]。如果文件不存在，则打开失败。写操作格式为：Put[#]文件号，[记录号]，变量名。可以将一个记录变量的内容写到指定的记录位置处，忽略记录号，则表示在当前记录后的位置插入一条记录。读操作格式为：Get[#]文件号，[记录号]，变量名。如果忽略记录号，则读出当前记录后面的那一条记录。一般记录类型在VB中是以Type定义的自定义类型，可以在窗体和标准模块中定义。
-
第5题：
假定在窗体（名称为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
-
第6题：
假定在窗体（名称为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