单项选择题

在窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮，运行后的窗体外观如图所示：
　　设有如下的类型和变量声明： 　　Private Type Person 　　 name As STRING*8 　　 major As String*20 　　End Type 　　Dim P As Person 　　设文本框中的数据已正确地赋值给Person类型的变量P，当点击“保存”按钮时，能够正确地把变量中的数据写入随机文件Test2．dat中的程序段是( )。