![[填空题] 设在工程中有一个标准模块，其中定义了如下记录类型：Type Books Name As String*10 telNum As String*20End Type 在窗体上添加一个名为C](http://www.mshxw.com/aiimages/31/248174.png "[填空题] 设在工程中有一个标准模块，其中定义了如下记录类型：Type Books Name As String*10 telNum As String*20End Type 在窗体上添加一个名为C")
[填空题] 设在工程中有一个标准模块，其中定义了如下记录类型：
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
参考答案：
Books问题解析:
本题先定义一个Books数据类型，包括两个元素：Name与TelNum。为变量B赋值并写入，首先要定义变量B的数据类型，根据题意，应定义变量B为Books数据，故填 Books。
