2. 计算机
  3. 设在工程中有一个标准模块，并定义了如下类型： Type Stutype ino As Integer strname As String*20 strsex As String*2 smark As Single End Type 在窗体上画一个名为Com

设在工程中有一个标准模块，并定义了如下类型： Type Stutype ino As Integer strname As String*20 strsex As String*2 smark As Single End Type 在窗体上画一个名为Com

admin2019-06-20  91
问题 设在工程中有一个标准模块，并定义了如下类型：
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：．stmame="smith"
．strsex="男"：．smark=89
End With
Open"c：＼Student．dat"For Input As#1Len
=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
EndWith
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
Wim Student
．ino=12：．stmame="smith"
．strsex="男"：．smark=89
End Wim
Open"c：＼student．dat"For Random As1
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：．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
答案B
解析 本题考查文件操作。题目中要求以随机的方式(Random)打开一个文件，打开文件的方法格式为：Open File Name For Random As撑文件号[Len=记录长度]，然后以Put方法写入一条记录，方法的格式为：Put[#]文件号，[记录号]，变量名。
转载请注明原文地址:https://kaotiyun.com/show/ffUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)