首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了向随机文件中写一条记录的程序,代码如下: Type RType Name As String * 10 Tel As String * 20 End Type Private Sub Command1_Click() Dim p A
某人编写了向随机文件中写一条记录的程序,代码如下: Type RType Name As String * 10 Tel As String * 20 End Type Private Sub Command1_Click() Dim p A
admin
2020-07-22
26
问题
某人编写了向随机文件中写一条记录的程序,代码如下:
Type RType
Name As String * 10
Tel As String * 20
End Type
Private Sub Command1_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/xSHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面描述中错误的是
设有如下程序:OptionBase1Dima(3,4)AsInteger,b(4,3)AsIntegerPrivateSubCommand1_Click()’循环1Fori=1To3
设窗体上有1个名称为List1的列表框,程序运行时,如果选中了第3个列表项(最上面的列表项为第0个列表项),则下面不成立的是
为了使文本框只具有垂直滚动条,应先把MultiLine属性设置为True,然后再把ScrollBars属性设置为
确定图片框Picturel在窗体上位置的属性是
为了使文本框显示滚动条,除要设置ScrollBars外,还必须设置的属性是
表达式2*3^2+4*2/2+3^2的值是
以下能对正实数d的第3位小数四舍五入的表达式是
可以产生30~50(含30和50)之间的随机整数的表达式是
随机试题
论述荒诞成为特殊审美形态的原因。
护士告诉肾挫伤非手术治疗的患者,其至少需要卧床的时间是
单室模型静脉注射给药血药浓度时间关系式是单室模型静脉滴注给药血药浓度时间关系式是
A、胆碱酯酶抑制药B、M受体阻断药C、α、β受体激动药D、α受体阻断药E、β受体阻断药肾上腺素属于()。
当人力资源供给大于需求的时候,为达到平衡可以采取的措施有()。
下列产品中,其生产类型属于连续型生产的有()。
甲公司于1月5日向乙公司以信件方式发出要约,向乙公司订购一批原材料,要求乙公司在10天内作出答复,该要约于1月6日到达乙公司。下列各项中,乙公司的做法属于承诺行为的有()。
阅读下面的陈述:有较明确的英语学习动机和积极主动的学习态度。能听懂教师有关熟悉话题的陈述并参与讨论。能就日常生活的各种话题与他人交换信息并陈述自己的意见。能读懂相关年级学习阅读的简单读物和报纸、杂志,克服生词障碍,理解大意。能根据阅读目的运用适当
打开考生文件夹下的演示文稿yswg.ppt,按照下列要求完成对此文稿的修饰并保存。1.在幻灯片的标题区中键入“中国的DXFl00地效飞机”,字体设置为:红色(注意:请用自定义标签中的红色255,绿色0,蓝色0,),黑体加粗,54磅。插入一版式为“项目
ExerciseCutsCancerDeathsinMenMenwhoexerciseoftenarelesslikelytodiefromcancerthanthosewho(51)newresearchpubl
最新回复
(
0
)