首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了向随机文件中写一条记录的程序,代码如下: 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
39
问题
某人编写了向随机文件中写一条记录的程序,代码如下:
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://jikaoti.com/ti/FIJ0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体(Name属性为Forml)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Commandl),然后编写如下两个事件过程:PrivateSubCommandl_Click()a=Text1
在窗体上画一个命令按钮,其名称为Commandl,然后编写如下程序:PfivateSubCommandl_Click()Dima(10)AsIntegerDimxAsIntegerFori=1To
下面关于对象概念的描述中,错误的是
下列叙述中,不属于测试的特征的是
下列程序的执行结果是______。PrivateFunctionP(NASInteger)Fori=1ToNSUM=SUM+iNextiP=SUMEndFunctionPrivteSubComma
下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整。PrivateTypeAngKAsIntegerSi
如果不指明函数过程参数的类型,则该参数的数据类型为【】。
下列的For语句循环体要执行50次,请填空。Fork=______To-7Step-3
软件是程序,数据和______的集合。
假定在工程文件中有一个标准模块,其中定义了如下记录类型:TypeBooksNameAsString*10TelNumAsString*20EndType要求在执行事件过程Command1_Click时,在顺序文件Person.txt中
随机试题
最可能的诊断是治疗应首选
A.清蛋白B.Tamm-Horsfall蛋白C.血红蛋白D.免疫球蛋白选择性蛋白尿的主要成分是
男性,2天,生后无大便排出,伴呕吐。查体:腹胀,可见肠型,肠鸣音活跃。会阴部平坦,臀沟浅,未见肛门。拟诊为先天性肛门闭锁。一般认为,腹部倒立侧位片在生后何时拍有意义
癫痫持续状态是指
企业应保存5年的会计档案有()。
简述我国进出口信贷政策的基本内容
面向对象分析与设计技术中,______是类的一个实例。
为实现以ADSL方式接入Internet,至少需要在计算机中内置或外置的一个关键硬设备是()。
HowtoapproachReadingTestPartFive•ThispartoftheReadingTesttestsyourabilitytoidentifyadditionalorunnecessary
•Lookatthechartsbelow.Theyshowcompanysales.•Whichchartdoeseachsentence(11-15)describe?•Foreachsentence,mar
最新回复
(
0
)