首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗体外观如图所示。 设有如下的类型和变量声明: Private Type Person name As String*8 major As St
在窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗体外观如图所示。 设有如下的类型和变量声明: Private Type Person name As String*8 major As St
admin
2020-02-27
77
问题
在窗体上有两个名称分别为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://kaotiyun.com/show/ZDTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列有关文件的叙述中,正确的是( )。
设窗体上有一个文本框Text1和一个命令按钮Command1,并有以下事件过程:PrivateSubCommand1_Click() DimsAsString,chAsString s="" Fork=1ToLen(Te
有下面事件过程:PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2Then
下面叙述中错误的是()。
以下关系表达式中,其值为True的是()。
在面向对象方法中,不属于“对象”基本特点的是()。
在数据库设计中,将E—R图转换成关系数据模型的过程属于()。
下列说法中,错误的是()。
(1)在名称为Form1,标题为“选课”的窗体上添加一个复选框数组,名称为CH1,共有四个复选框,按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”,其中“语文”、“计算机”复选框处和选中状态下,程序运行时的窗体如图所示。请按要求添加控件并设置相应
下列运算符中,优先级别最高的是
随机试题
胎儿完成内旋转动作是指
下列哪些情形属于想象竞合犯?()
空气吹扫氧气管道应注意的事项有( )。
根据《关于建立金融期货投资者适当性制度的规定》,自然人投资者应当全面评估自身的(),审慎决定是否参与金融期货交易。[2015年5月真题]
分层教学是因材施教原则的具体应用。()
警察随着()的产生而产生。
少先队员去植树。如果每人种5棵,还有3棵没人种;如果其中2人各种4棵,其余的人各种6棵,这些树苗正好种完。问一共种多少棵树苗?
已知r(A)=r1,且方程组AX=α有解,r(B)=r2,且BY=β无解,设A=[α1,α2,…,αn],B=[β1,β2,…,βn],且r[α1,α2,…,αn,β1,β2,…,βn,β]=r,则().
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:PrivateSubCommand1_Click()DimiAsInteger,xAsIntegerFori=1To6
AmericansandTheirCarsA)Ithasbeenoneoftheworld’smostenduringandpassionateloveaffairs:Americansandtheircars.I
最新回复
(
0
)