首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上有两个名称分别为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
40
问题
在窗体上有两个名称分别为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/7dm0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
软件设计中模块划分应遵循的准则是( )。
在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Command1,然后编写如下程序:PrivateSubfunc(LAsLabel) L.Caption="1234"EndSubPrivateSubForm
运行如下程序PrivateSubCommand1_Click() Dima(5,5)AsInteger Fori=1To5 Forj=1To4 a(i,j)=i*2+j Ifa(i,
若要把窗体上命令按钮Command1的状态设置为不可用,应该执行的命令是( )。
设工程文件中包名称分别为Form1、Form2的两个窗体,且Form1的菜单属性设置如下:窗体Form1中的程序如下:DimFlagAsBooleanPrivateSubForm_Load() Flag=TrueEndSubPr
下面不属于软件需求分析阶段主要工作的是
下面不属于软件测试实施步骤的是
以下关于控件的叙述中,正确的是
窗体上已有的3个单选按钮组成了1个名为ChkOpt1的控件数组。用于区分控件数组ChkOpt1中每个元素的属性是( )。
随机试题
商业银行制衡有效的公司治理组织架构至少包括()。
操作系统探测技术主要包括:获取标识信息探测技术、基于____________协议栈的操作系统指纹探测技术和ICMP响应分析探测技术。
何谓前馈?
关于无排卵型功血的治疗,下列哪种说法是不正确的
下列哪项可引起金属音调咳嗽
A.面部白色B.面部黄色C.面部赤色D.面部青色E.面部黑色主虚证、湿证的为()。
为了保证公示效果,及时了解和充分吸收社会意见,可以重点在审批项目建议书前,或在批复项目建议书后、上报可行性研究报告前进行公示,公示期限一般不应少于()个工作日。
以下各因素中,能够提高股东权益净利率的因素有()。
判断下列级数的收敛性:.
Questions28-30ChoosetheappropriatelettersA-Dandwritetheminboxes28-30onyouranswersheet.*
最新回复
(
0
)