首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了向随机文件中写一条记录的程序,代码如下: 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
2015-10-23
41
问题
某人编写了向随机文件中写一条记录的程序,代码如下:
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/7WLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面四个语句中,输出逻辑为“真”的是()。
在窗体(名称为Forml)上绘制一个名称为Text1的文本框和一个名称为Commandl的命令按钮,然后编写一个事件过程。程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是()。
有如下函数过程:Functiongys(ByValxAsInteger,ByValyAsInteger)AsIntegerDoWhiley0preminder=x/yx=Yy=preminderLoo
某二叉树中有n个度为2的结点,则该二叉树中的叶子结点数为
运行以下程序后,输出的图案是()。Form1.ClSA$=Strillg$(10,“*”)Fori=1To5n=10-2*IX$=A$:Y$=Space$(n)Mid$(X$,i+1,n)=
PrivateSubForm_Activate()Forj=1to3x=3Fori=1to2x=x+6NextNextPrintxEndSub程序运行后,窗体上显示的结果为【
以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组,然后画一个名为Text2的文本框和名为Commandl的命令按钮。运行时在文本框数组中输入7个分数,单击“计算得分”命令按钮,则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分
阅读下面的程序段:Fora=1To2Forb=1ToaForc=bTo2i=i+1NextNextNextPrinti执行上面的3重循环后,i的值为
软件是程序,数据和______的集合。
通常,将软件产品从提出、实现、使用维护到停止使用退役的过程称为【】。
随机试题
在拌制混凝土选用水泥时,在()时,需对水泥中的碱含量加以控制。
心主神志的物质基础是
某一孕妇在怀孕初期因车祸进行了输血,不久发现婴儿HIV阳性,婴儿感染的最可能传播方式
审批委托生产,向委托双方发放《药品委托生产批件》的是药品生产企业质量、生产负责人发生变更的
按照《公路水运工程试验检测专业技术人员职业资格制度规定》,职业资格考试应该由()组织和实施工作。
海关权力的监督中,立法监督指的包括()对海关的监督。
政府给予企业的货币性或非货币性资产,均属于政府补助。()
下列现象中,不能说明大气压存在的是()
【S1】【S5】
A、Improvecommunityservicequickly.B、StudyFrenchwithhim.C、PracticeFrenchwithlocalpeople.D、FindoutsomeFrenchcourse
最新回复
(
0
)