首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设在工程文件中有一个标准模块,其中定义了如下记录类型: Type Books Name As String*10:TelNum As String*20 End Type 在窗体上画一个名为Command1的命令按钮,要求
设在工程文件中有一个标准模块,其中定义了如下记录类型: Type Books Name As String*10:TelNum As String*20 End Type 在窗体上画一个名为Command1的命令按钮,要求
admin
2017-04-25
25
问题
设在工程文件中有一个标准模块,其中定义了如下记录类型:
Type Books
Name As String*10:TelNum As String*20
End Type
在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Command1 Click时,在顺序文件Person.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是
选项
A、Private Sub Command1_Click()
Dim B As Books
Open"Person.txt"For Output As #1
B.Name=InputBox("输入姓名")
B.TelNum=InputBox("输入电话号码")
Write #1,B.Name,B.TelNum
Close #1
End Sub
B、Private Sub Command1_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 Command1_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 Command1_Click()
Open"Person.txt"For Input As #1
Name=InputBox("输入姓名")
TelNum=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://jikaoti.com/ti/FOy0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()a$="321":b$="abc"Forj=1To5PrintMid$(a$,6-j,1)+Mid$(b$,
下列程序在运行时输出的结果是()。OptionBase1PrivateSubForm_Click()Dimx(10)Fori=1To10x(i)=10-i+1
能够获得一个文本框中被选取文本的内容的属性是
下列______是Single型变量。
若要添加CommonDialog控件,则应从“工程”菜单中选定“部件”,在“部件”对话框的“控件”选项卡中选择______,将控件添加到工具箱中。
在窗体上画一个命令按钮和一个文本框,其名称分别为Commandl和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:PrivateSubCommandl_Ciick()a=InputBox("Enteran
下列程序段错误的是()。
关于变量作用域,下列叙述中错误的是()。
假定一个文本框的Name属性为Text1,为了在该文本框中显示“Hello!”,所使用的语句为【】。
设有如下程序,查找并输出该数组中的最小值,请在空白处填上合适的代码,将程序补充完整。OptionBase1PrivateSubCommand1_Click()Dimarr1DimMinAsInteger,iAsInteger
随机试题
患者男性,69岁。肾小球肾炎病史10年。一周前,突然出现尿少,浮肿,泛恶呕吐,面色晦滞,形寒肢冷,舌体胖大,边有齿痕,苔白腻,脉沉细。治宜选用
诊断慢性肺源性心脏病的主要依据是
下列选项中,以发出货物并办妥托收手续的当天为增值税纳税义务发生时间的有()。
从所给四个选项中,选择最合适的一个填入问号处,使之呈现一定规律性:
宪章运动
程序如下:∥计算两个整数的乘法Java_1.javaimportjavax,swing.JOptionPane;publicclassJava_1{publicsta
Letter-writing(100words)Lettersofthanks
Itisanunfortunatefactoftoday’slifethatmostpeoplearegrowingupunabletoseethestars.Theprimenightskyexistson
Hewasinextremestateofdistressanddepressionwhenheknewthathehad______lungcancer.
AfterthechaosandcarnageofSeptemberthe11th,itisnotenoughtoserveourenemieswithlegalpapers.
最新回复
(
0
)