在窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的

问题：

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

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

A) Open "C:\Test2.dat" For Output As # 1
Put # 1, 1, P
Close # 1
B) Open "C:\Test2.dat" For Random As # 1
Get # 1, 1, P
Close # 1
C) Open "e:\Test2.dat" For Random As # 1 Len=Len(p)
Put # 1, 1, P
Close # 1
D) Open "C:\Test2.dat" For Random As # 1 Len=Len(p)
Get # 1, 1, P
Close # 1