[填空题]设在工程中有一个标准模块，其中定义了如下记录类型：
Type Books
Name As String (10
TelNum As String *20
End Type
在窗体上添加一个名为Command1的命名按钮，要求当执行事件过程Command1
Click时，在顺序文件Person.txt中写入一条记录。请在横线中填入适当的内容，将程序补充完整。
Private Sub Command1_Click（　）
Dim B As ______
Open．"c：/Person.txt" For Output As #1
B.Name=InputBox(“输入姓名”)
B.TelNum=InputBox(“输入学号”)
Write#1， B.Name， B.TelNum
Close #1
End Sub

[填空题]设在工程中有一个标准模块，其中定义了如下记录类型： Type Books Name As String*10 telNum As String*20 End Type 在窗体上添加一个名为Command1的命名按钮，要求当执行事件过程Command1_Click时，在顺序文件 Person.txt中写入一条记录。请在 【14】 中填入适当的内容，将程序被补充完整。 Private Sub Command1_Click( ) Dim B As 【14】 Open"c：/person.txt"For Output As #1 B.Name=Input Box(“输入姓名”) B.TelNum=InputBox(“输入学号”) Write#I，B，Name，B.TelNum Close #1 End Sub

[填空题]设在工程中有一个标准模块，其中定义了如下记录类型： Type Books Name As String (10 TelNum As String *20 End Type 在窗体上添加一个名为Command1的命名按钮，要求当执行事件过程Command1 Click时，在顺序文件Person.txt中写入一条记录。请在横线中填入适当的内容，将程序补充完整。 Private Sub Command1_Click（　） Dim B As ______ Open．"c：/Person.txt" For Output As #1 B.Name=InputBox(“输入姓名”) B.TelNum=InputBox(“输入学号”) Write#1， B.Name， B.TelNum Close #1 End Sub

[填空题]设在工程中有一个标准模块，其中定义了如下记录类型
Type Books
Name As String*10
TelNum As string*20
End Type
在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，
在顺序文件Person.txt中写入一条记录。该操作的事件过程是 【15】 。

[单项选择]设在工程文件中有一个标准模块，其中定义了如下记录类型：
Type Books
Name As String * 10
TeINum As String * 20
End Type
在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person. txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是( )。
A. Private Sub Command1_Click()
B. Private Sub Command1_Click()
C. Private Sub Command1_Click()
D. Private Sub Command1_Click()

[单项选择]设在工程文件中有一个标准模块，其中定义了下列记录类型： 　　Type Books 　　Name As String*10 　　TelNum As String*20 　　End，Type 　　在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1 Click 时，在顺序文件Person．txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是 　　( )。
A. Private Sub Command1 Click()
B. Name=InputBox(”输入姓名”)
C. relNum=lnputBox(”输入电话号码”)
D. Private Sub Command1 Click()
E. Name=InputBox("输入姓名")
F. TelNum=InputBox("输入电话号码")
G. Print#1，Name，B．TelNam
H. Private Sub Command1 Click()
I. Name=InputBox("输入姓名")
J. TelNum=InputBox("输入电话号码")
K. Private Sub Commandl Click()

[填空题]假定在工程文件中有一个标准模块，其中定义了如下记录类型：Type Books
Name As String *10
TelNum As String*20
End Type
要求在执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。将以下程序补充完整。
Private Sub Command1_Click（　）
Dim B As Books
open "C=/person.txt" For output As#1
B.Name=InputBox("请输入姓名")
B.TelNum=InputBox("请输入电话号码")
write #1，______
Close #1
End Sub

[填空题]假定在工程文件中有一个标准模块，其中定义了如下记录类型：Type Books Name As String *10 TelNum As String*20 End Type 要求在执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。将以下程序补充完整。 Private Sub Command1_Click（　） Dim B As Books open "C=/person.txt" For output As#1 B.Name=InputBox("请输入姓名") B.TelNum=InputBox("请输入电话号码") write #1，______ Close #1 End Sub

[填空题]假定在工程文件中有一个标准模块，其中定义了如下记录类型 Type Books Name As String * 10 TelNum As String * 20 End Type 要求在执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。将经下程序补充完整。 Private Sub Command1_Clickk( ) Dim B As Books open "c: /person. txt" For output As #1 B. Name = InputBox ("请输入姓名t" ) B. TelNum = InputBox("请输入电话号码" ) write #1, 【15】 close #1 End Sub

[填空题]假定在工程文件中有一个标准模块，其中定义了如下记录类型。
Private Type Books
Name As String*10
TelNum As String#20
End Type
要求在执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。将以下程序补充完整。
Private Sub Command1_Click（　）
DimB As Books
open“C/person.txt”For output As#1
B.Name=InputBox(“请输入姓名”)
B.TeINum=InputBox(“请输入电话号码”)
write#1， (9)
close#1
End Sub

[单项选择]设在工程中有一个标准模块；并定义了如下类型： Type Stutype ino As Integer strname AS String*20 strsex As String*2 smark As Single End Type 在窗体上画一个名为Commandl的命令按钮，要求当执行事件过程Commandl_Click时，在C盘根目录下的随机文件Student．dat中写入一条记录。下列能够完成该操作的是( )。
A. Sub Commandl_Click() Dim student As Studtype Dim record_no As Integer record_no=1 With student ．ino=12:．strname=“smith”： ．strsex=“男”:．smark=89 End With Open“c:＼Student．dat”For Input As#1 Len=Len(Student) Put#1．record_no．Student Close#1 End Sub
B. Sub Commandl_Click() Dim Student As Stutype Dim Record_no As Integer Record_no=1 With Student ．ino=12:．stmame=“smith” ．strsex=“男”:．smark=89 EndWith Open“c:＼student．dat”For Random As#1 Len=Len(Student) Put#1．Record_no．Student Close#1 End Sub
C. Private Sub Commandl_Click() Dim Student As Stutype Dim Record_no As Integer Record_no=1 With Student ．ino=12:．stmame=“smith” ．strsex=“男”:．smark=89 End With Open“c:＼student．dat”For Random As 1 Len=Len(Student) Write#1．Record_no．Student Close#1 EndSub
D. Sub Commandl_Click() Dim Student As Stutype Dim Record_no As Integer Record_no=1 With Student 、 ．ino=12:．stmame=“smith” ．strsex=“男”:．smark=89 EndWith Open“c:＼student．dat”For Output As#1 Len=Len(Student) Put#1，Record_no．Student Close#1 End Sub

[单项选择]设在工程中有一个标准模块，其中定义了如下类型：
Type stutype
ino As Integer
strname As String*20
strsex As String*1
smark As Single
End Type
在窗体上画一个名为Connnand1的命令按钮，要求当执行事件过程Command1_Click时，在c:/的随机文件student..dat写入一条记录。下列能够完成该操作的事件过程是( )。
A. Sub Command1_C1ick()
B. Sub Command1_Click( )
C. Sub Command1_Click()
D. Sub Command1_Click()

[单项选择]若一个网络系统中有150个信息点，按照EIA/TIA586标准进行结构化布线，则布线工程需要准备RJ-45头的总量是______个。
A. 600
B. 780
C. 618
D. 690