首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了向随机文件中写一条记录的程序,代码如下: Type RType Name As String*10 Tel As String*20 End Type Private Sub Command1_Click
某人编写了向随机文件中写一条记录的程序,代码如下: Type RType Name As String*10 Tel As String*20 End Type Private Sub Command1_Click
admin
2020-02-27
25
问题
某人编写了向随机文件中写一条记录的程序,代码如下:
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=lnputBox("电话号")
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/KJTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
已知图片框Picture1中已装入一个图形,为了在不删除图片框的前提下,清除该图形,应采取的正确操作是( )。
在窗体上画一个名称为Command1的命令按钮,并编写如下程序:OptionBase1PrivateSubCommand1_Click() Dima(4,4) Fori=1To4 Forj=1To4
运行以下程序后,输出的图案是()。Form1.ClsA$=String$(10,"*")Fori=1To5n=10.2*iX$=AS:Y$=SpaceS(n)Mid$(X$,i+1,n)=Y$PrintX$Nexti
窗体Forml上有一个名称为Commandl的命令按钮,以下对应窗体单击事件的事件过程是()。
下列描述中,错误的是
执行语句PrintRight$(Mid$("ABCDEFG",2,5),3)后的输出是
表达式Chr(Asc("G")+3)的值是()。
有表示公司和职员及工作的三张表,职员可在多家公司兼职。其中公司C(公司号,公司名,地址,注册资本,法人代表,员工数),职员S(职员号,姓名,性别,年龄,学历),工作W(公司号,职员号,工资),则表W的键(码)为
下列说法中正确的是()。
一名雇员就职于一家公司,一个公司有多个雇员。则实体公司和实体雇员之间的联系是
随机试题
治疗重度妊娠高血压综合征首选()。
为了防止铜及铜合金焊接时产生冷裂纹,焊前工件常需要预热。
我国某进出口公司甲(卖方)与美国某贸易公司乙(买方)以CIF芝加哥条件签订了一份出口5000吨小麦的合同。货物由中国人民保险公司办理了海洋运输货物保险后按时由承运人天建国际海洋运输公司装船运输。因在海上遭遇暴风雨袭击,迟延四个星期到达目的港,并因船员的过失
下列有关文学常识的表述,错误的一项是()
测定阿司匹林片含量时,为避免酒石酸、枸橼酸等酸性物质的干扰应选用
阅读下列说明,回答问题,将解答填入答题纸的对应栏内。【说明】图2-1为A公司和公司总部的部分网络拓扑,A公司员工办公区域DHCP分配的IP段为10.0.36.1/24,业务服务器IP地址为10.0.35.1,备份服务器IP地址为10.0.35.2;公司
瀑布模型(WaterfallModel)突出的缺点是不能适应______的变动。
Withthecurtain______,theroomwasdark.
Thediscoveryofgoldinthevalleyswill______thepoormountainarea.
A、Theyserveasanimportantenergysource.B、Theyprovidematerialfordailylife.C、Theyproduceoxygensowecanbreathe.D、T
最新回复
(
0
)