首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了向随机文件中写一条记录的程序,代码如下: 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
24
问题
某人编写了向随机文件中写一条记录的程序,代码如下:
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/LgJ0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
用Close语句可以关闭一个已经用完不再使用的文件,当该语句不带任何参数时,它的功能是
在窗体上画一个名称为command1的命令按钮,然后编写如下程序;OptionBase1PrivateSubCommand1_Click()Dimarr(4)AsStringFori=1To4
文本框控件最多能处理______个字节。
在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程:PrivateSubCommand1_Click()strText=InputBox("请输入")
在窗体上建立一个单选钮组Option1和一个图片框Picture1,如下图所示。当选择不同的单选钮时,图片框中填充不同的图案,请填写程序的空白处,使程序完整。PrivateSubOption1_Click(______)DimH,
下列事件过程的功能是:建立一个名为Data1的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整。PrivateTypeAngKAsInteger
按文件的内容划分有()。
在窗体上添加一个命令按钮,名为Command1,其单击事件中有如下程序段,则事件过程执行后,文本框中输出()。Fori=1To4Forj=1To3x=3Fo
随机试题
肺炎中最常见的病原体是
良性肿瘤与恶性肿瘤的根本区别在于肿瘤的
男性,63岁,腹胀、腹痛半天,恶心、无呕吐,既往有慢性便秘,多次腹痛经排便后缓解病史,查体:T37.5℃,P88次/分,R22次/分,BPl40/90mmHg,腹部膨隆不对称,左上腹叩鼓音。X平片示左上腹可见马蹄形巨大双腔充气肠袢。最可能的诊断是
A.其生产、包装和储存应使用专用的、安全的设备B.必须使用独立的厂房与设施,分装室应保持相对负压C.其生产区应保持相对负压,并有独立的空气净化系统D.其加工或罐装不得同时在同一生产厂房内进行,其储存要严格分开E.必须使用专用设备和独立的空气
关于个人综合消费贷款,以个人商用房抵押的.贷款金额最高不超过抵押物价值的()。
甲公司是一家生产空调的民营企业。公司创办人经过分析后,决定进军汽车制造业。在决定是否选择该战略时,甲公司可以考虑的战略选择方法有()。
根据有关规定,下列建设工程施工合同中不可以认定为无效合同的是()。
ARMCortex—A是ARMCortex应用处理器,此系列中A5、A7、A8、A9、A12、A15和A17字长【49】位,而A50系列中的A53和A57字长为【50】位。
—Wouldyouliketoseeafilmwithusthisevening?—Iwouldliketo.ButIcan’t______thetimebecauseIhavetofinishmycom
•LookatthestatementsbelowanddescriptionofsomeoftheEurope’sfastgrowingcompaniesontheoppositepage.•Whichcompan
最新回复
(
0
)