【单选题】

窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。设有如下的类型声明：

Type Person
nameAs String*8
majorAs String*20
End Type
当单击“Command1”按钮时，能够正确地把数据写入文件的程序段是______。
A．Private SubCommand1_Click()
Dim pAs Person
p. name=Text1. Text
p. major=Text2. Text
Open"C、\datA、dat" For RandomAs #1
Put #1, 1, p
Close #1
End Sub
B．Private SubCommand1_Click()
Dim pAs Person
p. name=Text1.Text
p. major=Text2. Text
Open"C、\datA、dat" For RandomAs #1
Get #1, 1, p
Close #1
End Sub
C．Private SubCommand1_Click()
Dis pAs Person
p. name=Text1. Text
p. major=Text2. Text
open "C、\datA、dat" For RandomAs #1 Len=Len(p)
Put #1, 1, p
Close #1
End Sub
D．Private SubCommand1_Click()
Dim pAs Person
p. name=Text1. Text
p. major=Text2. Text
Open "C、\datA、dat" For RandomAs #1=Len(p)
Get #1, 1, p
Close #1
End Sub