设在工程中有一个标准模块,其中定义了如下类型: Type stutype ino As Integer strname As String*20 strsex As String*1 smark As Single End Type 在窗体上画一个名为Connnand1的命令按钮,要求当执行事件过程Command1_Click时,在c:\的随机文件student..dat写入一条记录。下列能够完成该操作的事件过程是( )。A.Sub Command1_C1ick() 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_B.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 random As #1 len=len(student) Put #1,record_nC.Sub Command1_Click() Dim student As studtype 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) Write #1,record_nD.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 output As #1 len=len(student) Put #1,record_no,
设在工程中有一个标准模块,其中定义了如下类型: Type stutype ino As Integer strname As String*20 strsex As String*1 smark As Single End Type 在窗体上画一个名为Connnand1的命令按钮,要求当执行事件过程Command1_Click时,在c:\的随机文件student..dat写入一条记录。下列能够完成该操作的事件过程是( )。
A.Sub Command1_C1ick() 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_
B.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 random As #1 len=len(student) Put #1,record_n
C.Sub Command1_Click() Dim student As studtype 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) Write #1,record_n
D.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 output As #1 len=len(student) Put #1,record_no,