首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设在工程中有一个标准模块,并定义了如下类型: Type Stutype ino As Integer stmame As String*20 strsex As String*2 smark As Single
设在工程中有一个标准模块,并定义了如下类型: Type Stutype ino As Integer stmame As String*20 strsex As String*2 smark As Single
admin
2020-07-22
69
问题
设在工程中有一个标准模块,并定义了如下类型:
Type Stutype
ino As Integer
stmame 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#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 RandomAs As#1
Len=Len(Student)
put#1,Record_no,Student
Close#1
End Sub
C、Private Sub Command1_Click()
DimStudent 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 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:.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 FileNamn For Random As#文件号[Len=记录长度],然后以Put方法写入一条记录,方法的格式为:Put[#]文件号,[记录号],变量名。
转载请注明原文地址:https://kaotiyun.com/show/0fHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Label1的标签;一个名称为Timer1的计时器,其Enabled和Interval属性分别为True和1000。编写如下程序:DimnAsIntegerPrivateSubTimer1_Timer() ch=Chr(
能得到组合框Combo1中最后一个列表项序号的表达式是()。
以下关于VB文件的叙述中,正确的是
在面向对象的程序设计中,可被对象识别的动作称为()。
下面不属于软件设计阶段任务的是
下面关于菜单的叙述中正确的是
在软件开发中,需求分析阶段产生的主要文档是()。
在VisualBasic环境下设计应用程序时,系统能自动检查出的错误是
某二叉树共有12个结点,其中叶子结点只有1个。则该二叉树的深度为(根结点在第l层)
设树T的深度为4,其中度为1,2,3,4的结点个数分别为4,2,1,1。则T中的叶子结点数为
随机试题
阅读下面的文字:那一天正是五月十五,河中人过大端阳节。箱子岩洞窟中最美丽的三只龙船,早被乡下人拖出浮在水面上。船只狭而长,船舷描绘有朱红线条,全船坐满了青年桨手,头腰各缠红布。鼓声起处,船便如一支没羽箭,在平静无波的长潭中来去如飞。河身大约一里路宽,两岸
Misjudgingsomeone’suseofsilencecantakeplaceinmanycontextsandonmanylevels.Takepausingforexample.One’sconversa
患儿,女,10个月。因生后活动少,少哭,进食少,便秘来就诊。查体:头发稀少而干枯,发际较低,轻度贫血,眼睑浮肿,心率85/min,腹膨有脐疝。
A.心悸不宁,胸闷憋气,心前区痛如针刺,舌质紫暗,脉结代B.心悸不宁,憋气乏力,少气懒言,烦热口渴,舌红少苔,脉细数C.心悸怔忡,神疲乏力,畏寒肢冷,舌质淡胖,脉缓无力D.寒热起伏,心悸胸闷,肌肉酸痛,腹痛泄泻,舌质红,苔黄腻,脉濡数E.心悸气短,
《药品流通监督管理办法》适用于()。
在制定企业的品牌战略之后,建立品牌的第二项工作是()。[2007年考试真题]
仲裁的基本特点包括( )。
家属:亲属:家族
一般情况下,石油的价格与美元的汇率变动成反比。()。
请根据以下各小题的要求设计VisualBasic用程序(包括界面和代码)。(1)在名称为Form1的窗体上画两个文本框,名称分别为T1、T2,初始情况下都没有内容。请编写适当的事件过程,使得在运行时,在T1中输入的任何字符,立即显示在T2中
最新回复
(
0
)