首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗体外观如图所示。 设有如下的类型和变量声明: Private Type Person name As String*8 major As String
在窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗体外观如图所示。 设有如下的类型和变量声明: Private Type Person name As String*8 major As String
admin
2018-06-20
51
问题
在窗体上有两个名称分别为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语句打开文件,并为文件制定一个文件号。根据文件的的存取方式使用不同的模式打开文件。
本题是随机文件,读写的是一条一条的记录,所以用For Random模式打开,记录的长度为Person类型变量p的长度。
②从文件中读出数据进行处理或处理数据后,把数据写入文件。
本题是把变量的数据写入随机文件,所以用Put语句写入。
③文件操作结束,关闭文件。各种文件关闭统一用Close#文件号 关闭。
综上所述,故本题选C。
转载请注明原文地址:https://www.kaotiyun.com/show/WiGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下关于VB文件的叙述中,正确的是
要将单选按钮Optl设为被选中,应设置的属性是
对于列表框控件Listl,能够表示当前被选中列表项内容的是
命令按钮不支持的事件为
为了使命令按钮的Picture、DownPicture或DisabledPicture属性生效,必须把它的Style属性设置为
若要把窗体上命令按钮Commandl的状态设置为不可用,应该执行的命令是
为了读取数据,需打开顺序文件“D:\data5.txt”,以下正确的命令是
设有语句Open”c:\Test.Dat”ForOutputAs#1则以下叙述中错误的是
在窗体上画一个通用对话框,程序运行中用ShowOpen方法显示“打开”对话框时,希望在该对话框的“文件类型”栏中显示扩展名为DOC的文件,则在设计阶段应把通用对话框的Fiher属性设置为()。
在面向对象方法中,一个对象请求另一个对象为其服务的方式是通过发送()。
随机试题
重症肺炎最重要的病理生理改变为
抗乙酰胆碱受体抗体对何种自身免疫病的诊断具有很高的敏感性和特异性
()城垣内侧周长33公里,为世界第一。
我国北方处于平衡状态的某森林生态系统,其碳素循环如下图所示,箭头和字母分别表示碳素传递方向和转移量,下列选项正确的是()。
行政处罚无效的原因是()。
美丽乡村要金山银山,也要绿水青山。绿水青山就是金山银山,请以此为角度进行演讲。
2
在Cisco路由器的g0/4接口上禁止端口号1434的UDP数据包,正确的access—list配置是()。
WhenIwaswalkingdownthestreettheotherday,Ihappenedtonoticeasmallblackleatherbagonthestreet.Ipickedit(1)
Growingoldisnotexactlypleasantforpeoplein【C1】______Americanculture.Astheoldsayinggoes,"you’reasyoungasyouf
最新回复
(
0
)