设在工程中有一个标准模块，并定义了如下类型：
Type Stutype
ino As Integer
strname As String*20
strsex As String*2
smark As Single
End Type
在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1 Click时，在C盘根目录下的随机文件Student.dat中写入一条记录。下列能够完成该操作的是( )。

A．Sub Command1_Click()
Dim student As Studtype
Dim record no As Integer
record no=1
With student
.ino=12:.strname="smith":
.strsex="男":.smark=89
End With
Open "c:\Student.dat"For Input As #1 Len=Len(Student)
Put #1,record_no.Student
Close #1
End Sub

B．Sub Command1_Click()
Dim Student As Stutype
Dim Record no As Integer
Record no=1
With Student
.ino=12:.stmame="smith"
.strsex="男":.smark=89
End With
Open "c:\student.dat" For Random As#1 Len=Len(Student)
Put #1,Record no,Student
Close #1
End Sub

C．Private Sub Command1_Click()
Dim Student As Stutype
Dim Record no As Integer
Record_no=1
With Student
.ino=12:strname="smith"
.strsex="男":.smark=89
End With
Open "c:\student.dat"For Random As 1 Len=Len(Student)
Write #1,Record_no,Student
Close #1
End Sub

D．Sub Command1_Click()
Dim Student As Stutype
Dim Record no As Integer
Record_no=1
With Student
.inn=12:.stmame="smith"
.strsex="男":.smark=89
End With
Open "c:\student.dat" For Output As#1 Len=Len(Student)
Put #1.Record_no.Student
Close #1
End Sub