首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设在工程文件中有一个标准模块,其中定义了如下记录类型: Type Books Name As String*10:TelNum As String*20 End Type 在窗体上画一个名为Commandl的命令
设在工程文件中有一个标准模块,其中定义了如下记录类型: Type Books Name As String*10:TelNum As String*20 End Type 在窗体上画一个名为Commandl的命令
admin
2020-04-18
83
问题
设在工程文件中有一个标准模块,其中定义了如下记录类型:
Type Books
Name As String*10:TelNum As String*20
End Type
在窗体上画一个名为Commandl的命令按钮,要求当执行事件过程Commandl Click时, 在顺序文件Person.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是
选项
A、Private Sub Commandl Click()
Dim B As Books
Open”Person.txt”For OUtout As#1
B.Name=InputBox(”输入姓名”)
B.TelNum=InputBox(”输入电话号码”)
Write#1,B.Name,B.TelNum
Close#1
End Sub
B、Private Sub Commandl Click()
Dim B As Books
Open”Person.txt”For Input As#1
B.Name=InputBox(”输入姓名”)
B.TelNum=InputBox(”输入电话号码”)
Print#1.B.Name.B.TelNum
Close#1
End Sub
C、Private Sub Command l_Click()
Dim B As Books
Open”Person.txt”For Outout As#1
B.Name=InputBox(”输入姓名”)
B.TelNum=InputBox(”输入电话号码”)
Write #1.B Close#1
End Sub
D、Private Sub Command l_Click()
Open”Person.txt”For Input As#1
Name=InputBox(”输入姓名”)
TeiNum=InputBox(”输入电话号码”)
Print #1.Name,TelNum
Close#1
End Sub
答案
A
解析
本题考查的考点是有关文件的。打开顺序文件的基本格式为:Open FileName For Mode As#FileNumber
其中,FileName表示要打开的文件的路径:Mode为文件打开模式:OutPut用于输出、Append用于追加写入、Input用于读取;FileNumber为打开文件时指定的句柄(文件号)。本题中由于需要写入到文件中,所以Mode应该为Output;写入文件时如果写入的是一个自定义类型的变量,则需要把这个变量的每个成员分别写入到文件中,而不能一次性写入整个变量。
转载请注明原文地址:https://kaotiyun.com/show/VlTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
待排序的关键码序列为(15,20,9,30,67,65,45,90),要按关键码值递增的顺序排序,采取简单选择排序法,第一趟排序后关键码15被放到第()个位置。
单击命令按钮执行以下程序,输出结果为()。PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=12:y=32CallProc(x,y)
窗体上有Text1、Text2两个文本框及一个命令按钮Commandl,编写下列程序:DimyAsIntegerPrivateSubCommand1_Click()DimxAsIntegerx=2
一个工程中包含两个名称分别为Form1、Form2的窗体、一个名称为Func的标准模块。假定在Form1、Form2和Func中分别建立了自定义过程,其定义格式为:Form1中定义的过程:PrivateSubFunl()E
下面可以产生20~30(含20和30)的随机整数的表达式是
下面是求最大公约数的函数的首部Functiongcd(ByValxAsInteger,ByValYAsInteger)AsInteger若要输出8、12、16这3个数的最大公约数,下面正确的语句是
以下选项中,不合法的VisualBasic的变量名是
设有以下程序:PrivateSubFormClick()x=50Fori=1To4y=InputBox(”请输入一个整数”)y=Val(y)Ify
以下程序的功能是:把父目录下顺序文件smtext1.txt的内容读入内存,并在文本框Text3中显示出来。请选择适合横线处的语句()。PrivateSubCommand1_Click()DiminDataAsStri
一棵二叉树中共有70个叶子结点与80个度为1的结点,则该二叉树中的总结点数为
随机试题
患者男性,17岁,近半年来腹部不适,多次剧烈腹痛。空腹12小时抽血分离血浆,呈奶样乳白色,但经15000r/min,离心30分钟后,发现血浆下层较透明,而表面为奶油层。该患者可能患有的高脂血症的类型是
26岁初孕妇,于妊娠34周出现头痛、眼花等自觉症状。查体:BP24/13.3kPa(180/100mmHg),尿蛋白(++),眼底动静脉比为1:2,视网膜水肿。本例诊断应是()
A、延胡索乙素B、去氢延胡索甲素C、田七氨酸D、隐丹参酮E、甘草甜素具抗菌作用的有效成分是
A.药品说明书B.药品、内标签C.药品外标签D.原料药标签E.运输包装的标签根据《药品说明书和标签管理规定》应当注明药品名称、贮藏、生产日期、产品批号、有效期、执行标准、批准文号、生产企业等内容的是
下列情形中,哪项构成偷税罪?( )
生产要素的边际技术替代率递减是边际收益递减规律造成的。()
为了使配送作业有章可循,成为例行事务,做到忙中有序,需要制定()。
下列对IEEE802.11协议的描述中,错误的是()。
用来控制、指挥和协调计算机各部件工作的是
Apilotnoticedaballoonwhichseemedtobe【K1】________(make)foraRoyalAirForceStationnearby.Heinformedthestation
最新回复
(
0
)