首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗体外观如图所示。 设有如下的类型和变量声明: Private Type Person name As String*8 maj
在窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗体外观如图所示。 设有如下的类型和变量声明: Private Type Person name As String*8 maj
admin
2017-07-28
33
问题
在窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗体外观如图所示。
设有如下的类型和变量声明:
Private Type Person
name As String*8
major As String*20
End Type
Dim p As Person
设文本框中的数据已正确地赋值给Person类型的变量p,当单击“保存”按钮时,能够正确地把变量中的数据写入随机文件Test2.dat中的程序段是( )。
选项
A、Open"c:\Test2.dat"For Output As #1
Put #1,1,p
Close #1
B、Open"c:\Test2.dat"For Random As #1
Get #1,1,p
Close #1
C、Open"c:\Test2.dat"For Random As #1 Len=Len(p)
Put #1,1,p
Close #1
D、Open"c:\Test2.dat"For Random As #1 Len=Len(p)
Get #1,1,p
Close #1
答案
C
解析
在VB中可以访问的文件有:顺序文件、随机文件和二进制文件。不同文件存取方式不同,但处理的步骤大致一样:
①用Open语句打开文件,并为文件制定一个文件号。根据文件的的存取方式使用不同的模式打开文件。
本题是随机文件,读写的是一条一条的记录,所以用ForRandom模式打开,记录的长度为Person类型变量p的长度。
②从文件中读出数据进行处理或处理数据后,把数据写入文件。
本题是把变量的数据写入随机文件,所以用Put语句写入。
③文件操作结束,关闭文件。各种文件关闭统一用Close#文件号关闭。
综上所述,故本题选C。
转载请注明原文地址:https://kaotiyun.com/show/TCGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下能够触发文本框Change事件的操作是______。
下列叙述中正确的是()。
软件需求分析阶段的工作,可以分为4个方面:需求获取、需求分析、编写需求规格说明书以及()。
数据库保护分为:安全性控制【】并发性控制和数据的恢复。
为了描述x>y和y>z同时成立,下述选项中正确的是()。
设有如下程序OptionBase1PrivateSubCommand1_Click()Dima(10)AsIntegerDimnAs
已知有如下语句:s="hello,world"r=Mid(s,7,5)运行上面的语句后,变量r的值为()
如果进栈序列为e1,e2,e3,e4,则可能的出栈序列是______。
下面程序运行后,输出的结果是如下矩阵:471058116912请在程序[]处填入正确的内容。
如下图所示的二叉树,若按后序遍历,则其输出序列为【】。
随机试题
光电编码器作为位置测量反馈的参考脉冲系统中,参考脉冲频率f=1000Hz,光电编码每旋转一周,输出脉冲2000个。已知滚珠丝杠导程P=2mm,试求工作台的移动速度。
儿童会说代词“我”的年龄应为
老年人使用可诱发或加重青光眼的是
A.维生素D400U/d。口服B.维生素D1万U/d,口服C.维生素D2每次80万U,肌内注射,每周一次,共3次D.维生素D,每次30万U,肌内注射,每隔2周1次,共3次E.维生素D10万U/d,口服治疗重度维生素D缺乏性佝偻病激期用
甲女系中学学生,一日因在课堂上回答不出老师的提问,被老师当堂罚站,老师还当众说甲女“没见过像你这么笨的猪头、连’坐台’也不配”。甲女回到家中,写下遗书,说老师羞辱她,她活不下去了,趁家人不备,跳楼自杀身亡。则本案中:()
城市详细规划及开发项目初步设计的地形图比例尺一般选用()。
下列哪项概率分布能提供最大的货币期望值?
自由活动时,幼儿三五成群地在沙坑里玩耍,只有杰杰孤零零地站在旁边,一动不动。对此,老师恰当的做法是()。
“润物细无声”这句话所体现的德育方法是_______。
公安机关要保护国家公共财产和公民个人合法财产的安全。()
最新回复
(
0
)