首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设在工程中有一个标准模块,并定义了如下类型: 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
59
问题
设在工程中有一个标准模块,并定义了如下类型:
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:.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 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
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
EndWith
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/BrHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
某人编写了下面的程序:PrivateSubCommand1_Click() DimaAsInteger,bAsInteger a=InputBox("请输入整数") b=InputBox("请输入整数") pro
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘向文本框中输入大、小写字母和数字。单击标题为“统计”的命令按钮,分别统计输入字符串中大写字母、小写字母及数字字符的个数,并将统计结果分别在标签控件数组x中显示,如图所示。在给
窗体上有两个名称分别为Textl、Text2的文本框,一个名称为Commandl的命令按钮。设有如下的类型声明:TypePersonnameAsString*8majorAsString*20EndType当单击命令按钮时,将两个文本框
以下能够触发文本框Change事件的操作是()。
数据库系统在其内部具有3级模式,用来描述数据库中全体数据的全局逻辑结构和特性的是()。
假定有以下循环结构:DoUntil条件表达式循环体Loop则以下正确的描述是()。
为了对多个控件执行操作,必须选中这些控件。下列不能选中多个控件的操作是
在考生文件夹下有一个数据库文件“samp3.accdb”,其中存在已经设计好的表对象“tEmployee”和查询对象“qEmployee”,同时还设计出以“qEmployee”为数据源的报表对象“rEmployee”。请在此基础上按照以下要求补充报表设计。
算法的有穷性是指()。
如果一个顶级菜单项的访问键为D,则以下等同于单击该菜单项的操作为()。
随机试题
高繚仕于晏子,晏子逐之。左右辣日:“高繚之事夫子三年,曾無以爵位而逐之,其義可乎?”晏子日:“婴仄陋之人也,四維之然後能直。今此子事吾三年,未嘗弼吾遏,是以逐之也。”今此子事吾三年,未嘗弼吾過,是以逐之也。
向不特定对象公开发行的证券票面总值超过一定数额的,应当由承销团承销,这个数额是人民币()
下列关于清算企业分配剩余财产表述正确的有()
脱髓鞘疾病病理过程中的具有特征性的表现是
自动冲洗显影液中加入坚膜剂的作用是()。
某宗已抵押的收益性房地产,年有效毛租金收入500万元,年房屋折旧费30万元,维修费、保险费、管理费等50万元,水电供暖费等40万元,营业税及房地产税等65万元,年抵押贷款还本付息额70万元,租赁合同约定,保证合法、安全、正常使用所需的一切费用均由出租人负担
下列对于建设期利息概念的表述,正确的是()。
中国公民王某就职于国内A上市公司,2014年收入情况如下:(1)1月1日起将其位于市区的一套公寓住房按市价出租,每月收取租金3800元。1月因卫生间漏水发生修缮费用1200元,已取得合法有效的支出凭证。(2)在国内另一家公司担任独立董事,3月取得该公司
建立国际政治经济新秩序的基础是()。
“没有革命的理论,就没有革命的运动。”这句话说明()。
最新回复
(
0
)