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

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

A．Open"c:\Test2.dat"For Output As#1<br/>Put#1，1，P<br/>Close#1
B．Open"c:\Test2.dat"For Random As#1<br/>Get#1，1.P<br/>Close#1
C．Open"c:\Test2.dat"For Random As#1 Len=Len(P)<br/>Put#1，1，p<br/>Close#1
D．Open"c:\Test2.dat"For Random As#1 Len=Len(P)<br/>Get#1，1，P<br/>Close#1