设在工程中有一个标准模块,其中定义了如下记录类型:
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。