首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设在工程文件中有一个标准模块,其中定义了如下记录类型 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-08-28
43
问题
设在工程文件中有一个标准模块,其中定义了如下记录类型
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/K1Lp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列四个关于DoEvents语句的叙述中,正确的是______。
假定在窗体上建立一个通用对话框,其名称为CommonDialogl,用下面的语句可以建立一个对话框:CommonDialogl.Action=1与该语句等价的语句是______。
文本框控件最多能处理______个字节。
要使菜单项MenuOne在程序运行时失效,使用的语句是()。
若有以下程序,当程序运行后,单击命令按钮,则输出的结果为()。PrivateSubCommand1_Click()Dima%(1To4),b%(3To6),i%,s1#,s2#Fori=1
软件的需求分析阶段的工作,可以概括为四个方面:【】、需求分析、编写需求规格说明书和需求评审。
在窗体上画一个通用对话框,程序运行后,通过ShowOpen方法显示“打开”对话框,要求在该对话框的“文件类型”栏中只显示扩展名为.DOC的文件,则对通用对话框的Filter属性的正确设置是______。
以下程序段运行的结果是______。Dima(-1To5)AsBooleanDimflagAsBooleanflag=FalseDimiAsIntegerDimjAsIntegerDoUntilflag=TrueFor
在窗体上有一个计时器控件Timer1和一个标签控件Label1,在程序运行时可通过每隔30毫秒让Lable1左移100缇,从而产生文字移动动画效果。文字从右向左移动,当移动到接近窗体左边界时停止移动。空格处应填______。PrivateSub
表达式5Mod3+3\5*2的值是______。
随机试题
关于衰老的叙述,错误的是
硬化注射疗法的主要作用机理是
商法的兼容性
某产品各零部件功能重要程度采用0—1评分法评分的结果如下表:则在修正各功能累计得分的前提下,零部件Ⅲ的功能重要性系数为( )。
燃气管道的附属设备有()。
设f(x)是连续函数,且,则[].
20世纪初中国共产党人提出要把马克思列宁主义应用到中国的实践当中去,具有代表性的早期领导人是
设函数f(x)=若反常积分∫1+∞f(x)dx收敛,则
若深度为5的完全二叉树的第5层有3个叶结点,则该二叉树一共有______个结点。
函数fun的功能是进行数字字符转换。若形参ch中是数字字符’0’~’9’,则’0’转换成’9’,’1’转换成’8’,’2’转换成’7’,……,’9’转换成’0’;若是其他字符则保持不变;并将转换后的结果作为函数值返回。请在程序的下划线处填入正确的
最新回复
(
0
)