首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设在工程中有一个标准模块,并定义了如下类型: Type Stutype ino As Integer stmame As String*20 strsex As String*2 smarkAs Single End Type 在窗体上画一个名为Comma
设在工程中有一个标准模块,并定义了如下类型: Type Stutype ino As Integer stmame As String*20 strsex As String*2 smarkAs Single End Type 在窗体上画一个名为Comma
admin
2020-06-30
79
问题
设在工程中有一个标准模块,并定义了如下类型:
Type Stutype
ino As Integer
stmame As String*20
strsex As String*2
smarkAs Single
End Type
在窗体上画一个名为Commandl的命令按钮,要求当执行事件过程Commandl Click时,在C盘根目录下的随机文件Student.dat中写入一条记录。下列能够完成该操作的是( )。
选项
A、Sub Commandl_Click( )
Dim student As Studtype
Dim record_no As Integer
record_no=1
With student
.ino=12:.stmame=“smitll”:
.strsex=“男”:.smark=89
End With
Open”c:\Student.dat”ForInputAs#1 Len=
Len(Student)
Put#1,record_no,Student
Close#1
EndSub
B、Sub Commandl_click( )
Dim Student As Stutype
Dim Record_no As Integer
Record_no=1
With Student
.ino=12:.stmame=“smith”
.sffsex=“男”:.smark=89
End With
Open”c:\student.dat”For Random As#1 Len
=Len(Student)
Put#1,Record_no,Student
Close#1
EndSub
C、Private Sub Commandl_Click( )
Dim StudentAs 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)
Write#1,Record_no,Student
Close#1
End Sub
D、Sub Commandl_Click( )
Dim StudentAs 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 FileName For Random As#文件号[Len=记录长度],然后以Put方法写入一条记录,方法的格式为:Put[#]文件号,[记录号],变量名。
转载请注明原文地址:https://kaotiyun.com/show/RmHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为VScroll1的垂直滚动条,要求程序运行时,滚动块的初始位置在最下端,应该使VScroll1.Value的值等于( )。
假定有如下语句:answer$=MsgBox("String1",,"String2","String3",2)执行该语句后,将显示一个信息框,单击其中的"确定"按钮,则answer$的值为( )。
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生30个0~1000的整数,将其放入一个数组中,然后输出其中的最大值。程序运行后,单击命令按钮(名称为Command1,标题为“输出最大值”,如图所示),即
窗体上有一个名称为Command1的命令按钮,有程序如下:OptionBase1PrivateSubCommand1_Click()Dima(10)AsInteger’第1个ForFori=1To1
设窗体上有一个名称为List1的列表框,并有若干列表项。下面语句中不能在所有列表项之后追加一个列表项的是
对于能够获得焦点的控件,若要使其不能接收焦点,应该
有如下过程代码:Subvar_dim()StaticnumaAsIntegerDimnumbAsIntegernuma=numa+2numb=numb+1printnuma
窗体上有一个名称为Textl的文本框,一个名称为Commandl的命令按钮。窗体文件的程序如下:PrivateTypeXaAsIntegerbAsIntegerEndTypePrivateSubCom
某二叉树有5个度为2的结点,则该二叉树中的叶子结点数是
设数据集合为D={1,3,5,7,9},D上的关系为R,下列数据结构B=(D,R)中为非线性结构的是
随机试题
出版物发行员在进货时要十分注意区分出版物同名称而内容不同、同内容而名称不同的情况。()
常用络石藤而不用雷公藤治疗的病证是
为了鼓励降低能源消耗,国家决定给予电动汽车生产企业每辆5万元的补贴。对于电动汽车生产企业而言,这种补贴行为属于()。
()对于碳水化合物相当于汞对于()
互联网上每一个网络或每一台主机所分配的逻辑地址称为IP地址。目前,IP地址主要有IPv4地址和IPv6地址两大类别。下列对应错误的是:
工业革命是促使工场手工业发展到大机器生产的一次革命,是资本主义发展史上的重要阶段。下列关于工业革命的影响,说法正确的有()。
在中国早期马克思主义者的队伍中,作为先驱者和擎旗人的是()。
设直线L:求该旋转曲面介于z=0与z=1之间的几何体的体积.
Pleasegiveaheadingtothepassage.Howtoread______.Ifyouareverybusy,howcouldyougetthemajorinformationfromt
A、OniPodyoucanwatchallTVprogramsofABCB、TwoABChitsareavailableoniPod.C、TheiPodwilljoindigitalvideorecorder
最新回复
(
0
)