首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗伪外观如图所示。 设有如下的类型和变量声明: Private Type Person name As String*8 maj
在窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗伪外观如图所示。 设有如下的类型和变量声明: Private Type Person name As String*8 maj
admin
2019-03-14
38
问题
在窗体上有两个名称分别为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/FoUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Commandl的命令按钮。要求编写程序,把文件f1.txt的内容写到文件f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下:PrivateSubCommandl.Click()Open“c:\f1.txt”For
下列关于顺序文件的描述中,正确的是
下列控件中,不响应Click事件的是
标准模块中有如下程序代码:PublicxAsInteger,yAsIntegerSubvar_.pub()x=10:y=20EndSub在窗体上有1个命令按钮,并有如下事件过程:PrivateSubCommandl_
窗体上有一个名称为Labell的标签;一个名称为Timerl的计时器,其Enabled和Interval属性分别为True和1000。编写如下程序:DimnAsIntegerPrivateSubTimer1——Timer()ch:Chr(
为把圆周率的近似值3.14159存放在变量pi中,应该把变量pi定义为
下列数据结构中,能够按照“先进后出”原则存取数据的是
数据的存储结构是指
为了清除列表框中指定的项目,应使用的方法是
随机试题
如果边际消费倾向为0.8,则投资乘数是()
简述页和段的区别。
(2015年第170题)结核菌素试验阴性可见于
A.肾脏毒性反应B.对血液系统的毒性C.对肝脏的毒性D.二重感染E.过敏反应使用链霉素时,病人出现尿蛋白(++),是
诊断癫痫的手段主要靠以下何项
听诊时心率可正常的是()
A、吡哌酸B、氟哌酸C、氟罗沙星D、萘啶酸E、环丙沙星临床常用喹诺酮中体外抗菌活性最强者
患者男,58岁,因急性心肌梗死住院治疗,突然出现持续单形性室性心动过速,心率150次/分,血压110/70mmHg,首选的终止室性心动过速的药物或非药物措施是()
调整土地关系,增加土地可利用面积,提高土地利用率和产出率,提高土地的集约化利用,促进土地利用的社会效益,经济效益,()三者协调统一。
Oneofthebiggestvariableswhenflying,isthecompanythatyou’reforcedtokeep.Whetheryou’reineconomyorbusiness,ais
最新回复
(
0
)