单项选择题

在窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮,运行后的窗体外观如图所示:


设有如下的类型和变量声明:
Private Type Person
name AS STRING*8
major AS String*20
End Type
Dim P AS Person
设文本框中的数据已正确地赋值给Person类型的变量p,当单击“保存”按钮时,能够正确地把变量中的数据写入随机文件Test2. dat中的程序段是( )。