设在工程中有一个标准模块，其中定义了如下类型： 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_no,student Close #1 End Sub

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_no,student Close #1 End Sub

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_no,student Close #1 End Sub

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,student Close #1 End #1

补写出下列名句名篇中的空缺部分。（任选3题，多选则按前3题计分）

（1）故不积跬步，____________；不积小流，____________。（荀子《劝学》）

（2）陛下亦宜自谋，____________，____________，深追先帝遗诏。（诸葛亮《出师表》）

（3）上有六龙回日之高标，下有冲波逆折之回川。____________，____________。（李白《蜀道难》）

（4）____________，____________。惶恐滩头说惶恐，零丁洋里叹零丁。（文天祥《过零丁洋》）