首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设在工程中有一个标准模块,并定义了如下类型: Type Stutype ino As Integer stmameAs String*20 strsexAs String*2 smark As Single
设在工程中有一个标准模块,并定义了如下类型: Type Stutype ino As Integer stmameAs String*20 strsexAs String*2 smark As Single
admin
2016-03-21
35
问题
设在工程中有一个标准模块,并定义了如下类型:
Type Stutype
ino As Integer
stmameAs String*20
strsexAs String*2
smark As Single
EndType
在窗体上画一个名为Commandl的命令按钮,要求当执行事件过程Commandl Click时,在C盘根目录下的随机文件Student.dat中写入一条记录。下列能够完成该操作的是( )。
选项
A、Sub Command 1_Click()
Dim student As Studtype
Dim record_no As Integer
record no=l
With student
ino=12:strname=“smith”:
strsex=“男”:smark=89
EndWith
Open“c:\Student.dat”For Input As#1 Len=
Len(Student)
Put#1.record no.Student
Close#1
End Sub
B、Sub Command 1 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 Commandt 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 Random As 1 Len=
Len(Student)
Write
D、Sub Commandl—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 Output As#1 Len=
Len(Student)
Put#1,Recor
答案
B
解析
本题考查文件操作。题目中要求以随机的方式(Random)打开一个文件,打开文件的方法格式为:0pen File NameForRandomAs#文件号[Len=记录长度],然后以Put方法写入一条记录,方法的格式为:Put[#]文件号,[记录号],变量名。
转载请注明原文地址:https://kaotiyun.com/show/egLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有下列二叉树,对此二叉树前序遍历的结果是()。
在窗体上画一个文本框,其名称为Text1。为了在程序运行后Text1中的文本不可编辑,应当使用的语句是______。
在工具栏的右侧还有两个栏,分别用来显示窗体的当前位置和大小,其单位为twip,1英寸等于______。左边一栏显示的是窗体左上角的坐标,右边一栏显示的是窗体的长X宽。
在命令按钮上释放鼠标按钮时,所触发的事件称为______。
设组合框Combol中有3个项目,则以下能删除最后一项的语句是()。
在窗体(Name属性为Forml)上面添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Commandl),然后编写如下两个事件过程:PrivateSubCommandl_Click()a=Tex
数据库设计包括两个方面的设计内容,它们是
以下程序的功能是:先将随机产生的10个不同的整数放人数组a中,再将这10个数按升序方式输出。请填空。PrivateSubFormClick()Dima(10)AsInteger,iASIntegerRandomi
在进行关系数据库的逻辑设计时,E—R图中的属性常被转换为关系中的属性,联系通常被转换为【5】。
对象.cls方法对()控件有效。
随机试题
患者,女,18岁。2周前患扁桃体炎,近日心悸,气短,发热,出汗,踝、膝关节游走性疼痛。查体:心率110次/分,第一心音减弱,上肢内侧皮肤有环形红斑。应首先考虑的是
排除地面水常用的施工方法有设置()。
在消防应急照明和疏散指示系统的平面疏散区域供电检查中,应急照明回路沿电缆管井垂直敷设时,公共建筑应急照明配电箱供电范围不宜超过()层。
国际货物买卖合同中载明:“CIFlanded”,则表示买卖双方对()作了特别约定。
某上市公司2015年的营业额为8亿元,息税前利润为2.2亿元,公司的资产总额为24亿元,负责总额为16亿元,债务年利息额为1.1亿元。公司计划2016年对外筹资3亿元投资一个新项目,筹资安排初步确定为发行股票筹资1亿元,从银行贷款2亿元。经过估算,发行股票
下列关于信息系统与企业价值链网的说法中,不正确的是()。
几个世纪以来,科学一直被看成一种为人类带来幸福的力量,以牛顿力学为代表的近代科学引发的工业革命为人类创造了巨大的物质财富;20世纪初,以相对论和量子理论为代表的物理学革命,从宏观和微观的尺度上,把人们对客观世界的认识推向了高峰。在一片胜利的欢呼声中,科学作
曹石之变
NarratorListentoalectureinamusicclass.Nowgetreadytoanswerthequestions.Youmayuseyournotestohelpyouanswe
LGDisplay,theworld’ssecond-biggestflat-paneldisplaymaker,isbettingbigonlarge-scaleOLEDtelevisionpanels,brushing
最新回复
(
0
)