首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了向随机文件中写一条记录的程序,代码如下: 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-08-28
27
问题
某人编写了向随机文件中写一条记录的程序,代码如下:
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/VmLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个文本框,然后编写如下事件过程。当该程序运行后,如果在键盘上输入字母“a”,则文本框中显示的内容为______。PrivateSubText1_KeyPress<KeyAsciiAsInteger)Dimchara
文本框控件最多能处理______个字节。
常用的软件结构设计工具是结构图(SC),也称程序结构图。其中,用矩形表示______,用带空心圆的箭头表示传递的是数据。
执行语句Open"TC,dat"ForRandomAs#1Len=50后,对文件TC.dat中的数据能执行的操作是()。
按文件的内容划分有()。
要使菜单项MenuOne在程序运行时失效,使用的语句是()。
在窗体上添加一个命令按钮,名为Command1,其单击事件中有如下程序段,则事件过程执行后,文本框中输出()。Fori=1To4Forj=1To3x=3Fo
随机试题
患儿,男,10岁,自幼发现心脏杂音,易患感冒。查体无发绀,胸骨左缘第3、4肋间收缩期粗糙的吹风样杂音及震颤下列术前准备错误的是
女性,30岁。外伤后右上臂中下段疼痛,肿胀,畸形。查体:右上臂明显压痛,并有骨擦感。如果患者出现垂腕,应考虑
女,14岁。低热、咳嗽1个月,查体:消瘦,右颈部可触及数个绿豆大小淋巴结,稍硬、活动、无压痛,右肺呼吸音稍减弱,胸片见右上钙化灶,右肺门淋巴结肿大,诊断首先考虑的是
关于赵某能否要求孙某归还彩电,下列哪些是正确的?()。如果法院正确判决此案应包括下列哪些内容?()。
物业使用人没有对物业的最终处置权,所以不享有物业管理委托合同约定的相应的权利、义务。()
[2006年第17题]门窗工程中,下列铝合金门综合单价(元/m2),最贵的是哪种?
体育教学工作计划有哪几种?其中课时计划有何意义?
通过调查发现,如果辽宁队获得出线权,那么江苏队或者安徽队也将获得出线权。江西队不可能获得出线权。如果江苏队和山东队获得出线权,那么江西队将获得出线权。只有江西队和山西队都获得出线权,陕西队才能获得出线权。由此可见()。
Sometimeinthenextcentury,mefamiliarearlynewspaperonthefrontgatewilldisappear.Andinsteadofreadingyournewspape
JourneyinCatastrophes:ThreeFormsofViolentStormsI.WindsandstormsA.Winds’movinginviolentstorms—bringingabout
最新回复
(
0
)