首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上有两个名称分别为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
2018-12-20
35
问题
在窗体上有两个名称分别为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://jikaoti.com/ti/Ctm0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
VisualBasic中的"启动对象"是指启动VisualBasic应用程序时,被自动加载并首先执行的对象。下列关于VisualBasic"启动对象"的描述中,错误的是( )。
下面不能在信息框中输出"VB"的是( )。
为了在运行时能显示窗体左上角的控制框(即系统菜单),应执行的操作是
要删除列表框中最后一个列表项,正确的语句是( )。
在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后,在文本框中每输入一个字符,都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是( )。
公司中有多个部门和多名职员,每个职员只能属于一个部门,一个部门可以有多名职员。则实体部门和职员间的联系是
在下列模式中,能够给出数据库物理存储结构与物理存取方法的是( )。
为使文本框具有初始值"VB",在设计阶段正确的操作是
下面不能作为结构化方法软件需求分析工具的是
结构化程序包括的基本控制结构是
随机试题
慢性肺源性心脏病患者死亡的首要原因是
下列句子中一般不认为是比喻句的是()
______,Icannotspareanytimetoreadit.
不能作为菌斑染色剂的是
2005年1月1日某企业所有者权益情况如下:实收资本200万元,资本公积17万元,盈余公积38万元,未分配利润32万元。则该企业2005年1月1日留存收益为()。万元。
根据《反垄断法》的规定,经营者因实施垄断行为可能承担的法律责任类型有()。
企业债务重组,相关交易处理正确的有()。
商业银行应选择对公司信贷产品有足够的购买力的市场,其购买力不一定稳定,只要平均购买力足够即可。()
给定资料1.2015年5月15日,由工业和信息化部指导、中国通信学会主办的2015年世界电信和信息社会日大会在北京举行02015年世界电信和信息社会日的主题是“电信与信息通信技术:创新的驱动力”。工业和信息化部总工程师张某表示,当前全球正掀起新
进程调度是从()选择一个进程投入运行的。
最新回复
(
0
)