首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了向随机文件中写一条记录的程序,代码如下: Type RType Name As String*10 Tel As String * 20 End Type Private Sub Commandl_Click() Di
某人编写了向随机文件中写一条记录的程序,代码如下: Type RType Name As String*10 Tel As String * 20 End Type Private Sub Commandl_Click() Di
admin
2020-07-22
34
问题
某人编写了向随机文件中写一条记录的程序,代码如下:
Type RType
Name As String*10
Tel As String * 20
End Type
Private Sub Commandl_Click()
Dim p As RType
P.Name=InputBox(”姓名”)
P.Tel=InputBox(”电话号”)
Open”Books.dat”For Random As#1
Put#1..P
Close#1
End Sub
该程序运行时有错误,修改的方法是( )。
选项
A、在类型定义“Type RType”之前加上“Private”
B、Dim P As RType必须置于窗体模块的声明部分
C、应把Open语句中的For Random改为For Output
D、Put语句应该写为Put#1,P.Name,P.Tel
答案
A
解析
记录类型的定义必须放在模块的声明部分,当在标准模块中定义时,关键字Type前可以有Public(默认)或Private,而如果在窗体模块中定义,则必须在前面加上关键字Private。Open语句中使用For Random表示文件以随机方式存取。Put语句的语法为:Put#文件号,[记录号],变量。其中“变量”是除对象变量和数组变量外的任何变量。
转载请注明原文地址:https://kaotiyun.com/show/IrHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设在工程文件中有一个标准模块,其中定义了如下记录类型TypeBooks NameAsString*10 TelNumAsString*20EndType在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Com
执行下列语句:strlnput=InputBox("请输入字符串","字符串对话框","字符串")将显示输入对话框。此时如果直接单击“确定”按钮,则变量strInput的内容是()。
求1!+2!+……+10!的程序如下:PrivateFunctions(xAsInteger) f=1 Fori=1Toxf=f*i Next s=fEndFunctionPrivateSubCommand1
下面有关标准模块的叙述中,错误的是( )。
在设计阶段,如果双击窗体上的一个文本框控件,则在代码窗口中显示该控件的事件过程所对应的事件是
用树形结构表示实体之间联系的模型是
如果一个顶级菜单项的访问键为D,则以下等同于单击该菜单项的操作为
算法的时间复杂度是指
算法的有穷性是指()。
下列算法中均以比较作为基本运算,则平均情况与最坏情况下的时间复杂度相同的是()。
随机试题
治疗风热感冒,温病初起,可选用的药物有
关于正畸疼痛正确的解释是
当眼底出现哪种表现时,常意味着患者出现了恶性高血压()
属于麻醉药品的是
刘某夫妻与杨某是大学同学,关系甚密。后来刘某与杨某在生意中发生纠纷,刘某起诉至法院,要求杨某给付货款4000元。法院受理后依法开庭审理,在审理中杨某提出刘某的妻子曾向其借款5000元,至今未还,要求刘某夫妻用货款抵债并偿还其余1000元。法院对此应如何处理
在2012年3月曹某为某建筑公司进行装修,该公司欠曹某装修费3万元,曹某在2013年3月向该公司催要未果,2013年4月曹某欲向法院提起诉讼,在去法院的路上,下起冰雹,曹某返回。则本案诉讼时效期间届满之日为()。
一般资料:求助者,男性,14岁,初中二年级学生。案例介绍:求助者是妈妈强迫来咨询的。经过与心理咨询师交流,开始敞开心扉,自诉最大的问题是与父亲的关系。父亲经常打他,几乎每天一次,后来每次打时求勤者几乎都没反应了。很憎恶父亲的做法,但又没有办法。求
在化学学习中,学习化学平衡知识对学习电离平衡知识的影响属于()。
去年李文同学参加市作文大赛,名落孙山,他很沮丧。语文老师对他只说了一句话:“这会过去的。”今年,李文同学又参加市作文大赛,获得一等奖,他可高兴了。这时语文老师还是对他只说了一句话:“这会过去的。”对这段文字理解准确的是()。
设函数f(x)在[一2,2]上二阶可导,且|f(x)|≤1,又f2(0)+[f’(0)]2=4.试证:在(一2,2)内至少存在一点ξ,使得f(ξ)+f"(ξ)=0.
最新回复
(
0
)