首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了向随机文件中写一条记录的程序,代码如下: 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
36
问题
某人编写了向随机文件中写一条记录的程序,代码如下:
Type RType
Name As String*10
Tel As String*20
End Type
Private Sub Command1_Click()
Dim P As RType
[.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,而如果在窗体模块中定义,则必须在前面加上关键字蹦vate。Open语句中使用For Random表示文件以随机方式存取。Put语句的语法为:Put#文件号,[记录号],变量。其中“变量”是除对象变量和数组变量外的任何变量。
转载请注明原文地址:https://jikaoti.com/ti/JLx0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在名称为Form1,标题为“图片”的窗体上添加1个名称为Image1的图像框,其高为2500,宽为2000。请通过属性窗口设置适当属性,将考生文件夹下的图片文件pic1.jpg插入图像框,并使图片自动通应图像框的大小(如图所示)。注意:存盘时必须存
(1)在名称为Form1的窗体上添加一个名称为Picture1的图片框(PictureBox),高、宽均为1000。在图片桁内再添加一个有边框的名称为Imagel的图像框(Image)。并通过属性窗口把考生文件夹下的图标文件Point11(香蕉图标)装入图
考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称分别为Text1、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中
(1)请在名称为Form1的窗体上添加一个名称为H1的水平滚动条,并在属性窗口中设置它的属性值,使其满足下列要求:它的最小刻度值为1。最大刻度值为100,在程序运行时,用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮),滚动框移动10个刻度。再在滚动条下
在程序运行时,下面的叙述中正确的是()。
结构化程序设计的基本原则不包括( )。
下列排序方法中,最坏情况下比较次数最少的是( )。
在E—R图中,用来表示实体联系的图形是()。
数据流图由一些特定的图符构成。下列图符名标以的图符不属于数据流图合法图符的是()。
8.6787E+8写成普通的十进制数是()。
随机试题
亚健康状态的主要表现包括()。
Mr.Greensaidhisclients______oursamplesbytheendoflastmonth.
面瘫的基本治法为祛风通络,疏调经筋。治疗以局部穴和哪条经脉为主
某人嗜酒如命,不料在一次体检中发现自己患了高血压,还有左心室肥厚,他惊恐万分,到处找大夫开药,请问他最好应服用哪类药()
对于同一房地产投资项目来说,如果其财务内部收益率大于设定的基准收益率,则财务净现值()。
大福烤鸭店(以下简称“大福”)创办于清朝康熙五年。创办人梁兆华的父亲原是皇宫内的御厨,故梁氏掌握了清官挂炉烤鸭的全部秘技。烤鸭以梁氏秘制酱汁加工后放入特别设计的砖砌烤炉内烤炙,具体操作中还有许多的窍门,都是世代相传,传里不传外,因此大福从创办至今仍是家族生
人格是决定个体的外显行为和内隐行为并使其与他人的行为有稳定区别的综合心理特征,其核心为()。
以下选项中,能用作数据常量的是
First,ofcourse,itisplainthatinafewyearseveryonewillhaveathiselbowseveraltimesmoremechanicalenergythanheh
______wantstoseethemoviemaygetafreeticket.
最新回复
(
0
)