选择题 26. 设在工程中有一个标准模块，并定义了如下类型：
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

【正确答案】 B

【答案解析】 本题考查文件操作。题目中要求以随机的方式(Random)打开一个文件，打开文件的方法格式为：Open FileName For Random As #文件号[Len=记录长度]，然后以Put方法写入一条记录，方法的格式为：Put [#]文件号,[记录号],变量名。