设在工程中有一个标准模块,并定义了如下类型: 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