首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设在工程文件中有一个标准模块,其中定义了如下记录类型 Type Books Name As String * 10 TelNum As String * 20 End Type 在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Com
设在工程文件中有一个标准模块,其中定义了如下记录类型 Type Books Name As String * 10 TelNum As String * 20 End Type 在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Com
admin
2015-06-30
57
问题
设在工程文件中有一个标准模块,其中定义了如下记录类型
Type Books
Name As String * 10
TelNum As String * 20
End Type
在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是( )。
选项
A、Private Sub Command1_Click()
Dim B As Books
Open "c:\Person.txt" For Output As #1
B.Name=InputBox("输入姓名")
B.TelNum=InputBox("输入电话号码")
Write #1, B.Name, B.TelNum
Close #1
End Sub
B、Private Sub Command1_Click()
Dim B As Books
Open "c:\Person.txt" For Input As #1
B.Name=InputBox("输入姓名")
B.TelNum=InputBox("输入电话号码")
Print #1, B.Name, B.TelNum
Close #1
End Sub
C、 Private Sub Command1_Click()
Dim B As Books
Open "c:\Person.txt" For Output As #1
B.Name=InputBox("输入姓名")
B.TelNum=InputBox("输入电话号码")
Write #1, B
Close #1
End Sub
D、 Private Sub Command1_Click()
Open "c:\Person.txt" For Input As #1
Name=InputBox("输入姓名")
TelNum=InputBox("输入电话号码")
Print #1, Name, TelNum
Close #1
End Sub
答案
A
解析
数据文件的写操作分为3步,即打开文件、写入文件和关闭文件。
首先,在顺序文件中打开文件写入数据的打开方式为:Open 文件名 For Output As #文件号。因此B、C选项排除,只看A、D选项。
写入顺序文件Print #语句格式为:Print #文件号,变量名,变量名…,Write语句的的格式与Print语句一样:Write #文件号,变量名,变量名。而记录类型变量不能整体引用,需要指明记录变量中的成员名,格式为:记录变量名.成员名,Books类型变量B成员Name和TelNum赋值和引用应该是B.Name、B.TelNum,因此A选项正确。
转载请注明原文地址:https://kaotiyun.com/show/kkQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了避免流程图在描述程序逻辑时的灵活性,提出了用方框图来代替传统的程序流程图,通常也把这种图称为______。
下列程序弹出对话框中按钮的个数为______。MsgBox"确认!",vbAbortRetryIgnore+vbMsgBoxHelpButton+vbQuestion,"提示"
通过文本框的()属性可以获得当前插入点所在的位置。
下列程序的功能是:将数据1,2,…,8写入顺序文件Num.txt中,请选择正确的程序段()。PrivateSubForm_Click()DimiAsIntegerOpen"Num.txt"ForOut
在窗体上画4个文本框,并用这4个文本框建立一个控件数组,名称为Text1(下标从0开始,自左至右顺序增大),然后编写如下事件过程:PrivateSubCommand1_Click()ForEachTextBoxInText
为了提高软件模块的独立性,模块之间最好是()。
5.【】是从二维表列的方向进行的运算。
以下程序判断从文本框Text1中输入的数据,如果该数据满足条件:除以3余2,除以5余3,除以7余4,则输出;否则,将焦点定位在文本框Text中,选中其中的文本。PrivateSubCommand1_Click()x=Val(
在有n个结点的--31链表中,值为非空的链域的个数为______。
在数据库设计中,将E—R图转换成关系数据模型的过程属于
随机试题
【背景资料】某商务楼建筑工程通过公开招标方式确定三个不同性质的施工单位承担该项目的所有施工任务,建设单位分别与A公司签订了建筑主体土建工程施工合同;与B公司签订了机电设备安装合同;与C公司签订了外幕墙工程安装合同。三个合同中均约定了由建设单位全面
行政处罚实施机关行使行政处罚裁量权应当符合法律目的,排除不相关因素干扰,所采取的措施和手段应当必要、适当;对事实、性质、情节、社会危害程度等因素相同或者相似的违法行为,所适用的处罚种类和幅度应当()
西卡丝绸有限公司是一家中外合营企业,由来自美国、意大利、韩国和中国的6家公司共同举办。MIGA(多边投资担保机构)向这个合营者的股权投资提供了200万美元的担保,按照MIGA的规定,其不予以承保的风险为:()
(2009年)若在迈克尔干涉仪的可动反射镜M移动0.620mm过程中,观察到干涉条纹移动了2300条,则所用光的波长为()nm。
玻化微珠的性能有()。
关于税收执法监督的说法,正确的是()。
在计算土地增值税的计税依据时,允许作为扣除项目的是( )。
一位网友在微博上上传了自己的一组性感照片。引起广大网友热议,后来经查证这位网友是一名女警察。对此你怎么看?
ComingHome:LifeAfterStudyingAbroadManyreturneeswhohavestudiedabroadmaysufferre-entrycultureshockwhentheygo
A、Hefoundapieceofchocolateinhispocket.B、Hewasgivenapieceofchocolatebysomeone.C、Hefoundalargedogbyhisgat
最新回复
(
0
)