首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了向随机文件中写一条记录的程序,代码如下: Type RType Name As String*10 Tel As String*20 End Type Private Sub Command1_Click() Dim p As RType p.N
某人编写了向随机文件中写一条记录的程序,代码如下: Type RType Name As String*10 Tel As String*20 End Type Private Sub Command1_Click() Dim p As RType p.N
admin
2018-06-20
22
问题
某人编写了向随机文件中写一条记录的程序,代码如下:
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/vjy0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
命令按钮、单选按钮、复选框都可以通过Picture属性在控件上显示图片,但需事先设置某一属性,该属性为
设有如下事件过程:PrivateSubCommandl_Click()Dimaa=Anrray(12,3,8,5,10,3,5,9,2,4)Fork=1To9Pr
如果改变驱动器列表框的Drive属性,则将触发的事件是
为了读取数据,需打开顺序文件“D:\data5.txt”,以下正确的命令是
窗体上有一个名称为commandl的命令按钮,单击该按钮时所实现的功能是产生10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下:PrivateSub
产生100以内(不含100)2位随机整数的VisualBasic表达式是
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Forml的窗体上画一个名称为Framel、标题为”目的地”的框架,在框架中添加三个复选框,名称分别为Checkl、Check2、Check3,其标题分别是”上海”、”
在满足实体完整性约束的条件下
满足下列条件之一的年份是闰年:1)年份能被4整除但不能被100整除2)年份能被400整除若Y代表年份,下面判断闰年的正确表达式是()。
线性表常采用的两种存储结构是()。
随机试题
下列关于企业预算内容的表述中,正确的是()。(2008年)
彩色血流显示不佳时,应如何调节
男性,65岁,肝癌肝叶切除术后第1天,病人感腹痛、心慌、气促、出冷汗,血压12/8kPa,首先应考虑为
贷前调查方法中的搜寻调查可以通过()开展调查。
市场分割理论中上斜收益率曲线表明()。
佛诞日又叫浴佛节,其时间是()。
电影作为一门独特的艺术,不仅要给观众带来娱乐,更要在_______中传承民族信念和文化精神。若中国电影不再维护本国的文化利益,不去_______电影生长的土壤,电影文化也会出现“结石”。填入画横线部分最恰当的一项是:
刘经理是某信息系统集成项目的项目经理,在制作WBS后,得出项目的所有工作包和活动。刘经理据此制作了前导图,如图4-4-1所示。请求解活动E、F、I的FF和TF。
Itisirrationalfortheparentsto______allthehopesontheirchildren.
Hisfatherobjectstohis(do)______part-timejobwhilestudyingatcollege.
最新回复
(
0
)