首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上有两个名称分别为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-06-30
70
问题
在窗体上有两个名称分别为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/OBHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设a=4,b=5,c=6,执行语句Printa
工程文件包含Form1、Form2两个窗体。Form1有包含二个菜单命令的菜单;Form2上有一个名称为Command1的命令按钮,如图所示。Form1中菜单项"隐藏Form1"的单击事件过程代码如下:PrivateSubhideF1_Click
以下关于VB特点的叙述中,错误的是
以下关于VB文件的叙述中,正确的是
下列关于通用对话框CD1的叙述中,错误的是()。
下列关于类、对象、属性和方法的叙述中,错误的是()。
有三个关系R、S和T如下:其中关系T由关系R和S通过某种操作得到,该操作为()。
数据模型的三个要素是()。
数据库中对概念模式内容进行说明的语言是()。
随机试题
2岁小儿测量头围为52cm,应考虑哪种疾病
胚胎发育中心脏形成的关键期是
下列会计账簿登记规则,正确的是()
某建材商店销售建材的同时,还为客户提供装修、装饰服务,未分别核算,则对其销售额和营业额应当( )。
甲、乙、丙三人出资成立了一家有限责任公司。经营过程中,丙与丁达成协议,拟将其在该公司拥有的股份全部转让给丁。丙书面通知甲和乙时,甲表示不同意,乙表示同意。有关此事的下列表述中,符合《公司法》规定的有()。
德育过程的基本矛盾是()
阅读下面的程序段,请填空。 1 TAB DB 10H,20H,30H,40H,50H 2 P1 DD 02001000H 3 P2 DD TAB 4
将Word文档中的大写英文字母转换为小写,最优的操作方法是()。
CreativeDirectorAnnouncedforLimelightStudiosBurbank-WilliamYorkwillbecomeLimelightStudio’screativedirectorstarti
CordiaHarringtonwastiredofstandingupalldayandsmellinglikeFrenchfriesatnight.ShealsoownedandoperatedthreeMc
最新回复
(
0
)