单项选择题
设在工程中有一个标准模块，并定义了如下类型： Type Stutype
ino As Integer strname As String*20 strsexAs
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:.strname="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
.ino=12:.strname="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
