首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Commandl的命令按钮,编写如下程序代码 Private Tvpe Student sn As String*10 class As String*20 score As Double End
在窗体上画一个名称为Commandl的命令按钮,编写如下程序代码 Private Tvpe Student sn As String*10 class As String*20 score As Double End
admin
2017-12-14
59
问题
在窗体上画一个名称为Commandl的命令按钮,编写如下程序代码
Private Tvpe Student
sn As String*10
class As String*20
score As Double
End Type
Private Sub Commandl—Click()
Dim S As Student
Dim sl As Student
Open“C:\Scorelist.dat”For Random As#1 Len=Len(s)
S.sn=“张一帆”
s.class=“计2014—1班”
S.score=90
Put#1,.s
Close#1
End Sub
以下叙述中正确的是( )。
选项
A、若文件C:\Scorelist.dat已存在并且有记录,单击命令按钮,可以修改文件中的一条记录
B、若文件C:\Scorelist.dat不存在,则Open语句执行中出现“文件未找到”的错误
C、文件C:\Scorelist.dat中的每条记录长度可以不同,但记录最长为Len(s)
D、定义记录类型Student的Type语句可以移到事件过程Commandl—Click中
答案
A
解析
在Open语句中指定文件的访问方式为输出(Output)、附加(Append)或随机(Random),若打开的文件不存在,则建立相应的文件。本题中指定的访问方式为Random,所以B选项叙述错误;对于用随机访问方式打开的文件,其每个记录的长度必须是相同的,C选项叙述错误;记录类型的定义必须放在模块(包括标准模块和窗体模块)的声明部分,D选项叙述错误,本题A选项叙述正确。本题选择A选项。
转载请注明原文地址:https://kaotiyun.com/show/ugGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设组合框Combol中有3个列表项,为了删除其最后一项,应使用的语句是______。
在窗体上画一个命令按钮Command1,然后编写如下程序:PrivateSubCommand1_click()Dimarr()AsIntegerReDimarr(3)Fori=0To3arr(i
用Dim(1,3to7,10)声明的是一个______维数组。
当我们输入代码时,VisualBasic可以自动检测______错误。
Function过程与Sub过程的最主要区别是()。
与传统的程序设计语言相比,VisualBasic最突出的特点是()。
下列关于菜单的说法错误的是()。
软件生命周期中花费时间最多的阶段是
下列叙述中正确的是
以下说法中正确的是()。
随机试题
结核化疗患者初治方案为“2SHRZ/4H3R3”,此处“3”表示
关于抗原抗体的叙述,正确的是
患者,男,32岁。在施工过程中从高处坠下,患者意识不清,被送往医院急救,急诊护士在抢救过程中。正确的是
A、从事麻醉药品和第一类精神药品批发业务的全国性批发企业B、医疗机构需要取得的麻醉药品和第一类精神药品购用印鉴卡C、从事麻醉药品和第一类精神药品批发业务的区域性批发企业D、药品零售连锁企业从事第二类精神药品零售业务由所在地设区的市级卫生主管部门批
某项施工中施工单位偷工减料,造成建设工程不符合规定的质量标准,给建设单位造成了损失。建设行政主管部门不能对该施工单位实施的制裁是()。
某企业近年来由于技术革新,产品销路逐年扩展,原有的供应商满足不了生产的需要,决定再选择新的原料供应商。企业采购部门过去一般采用协商选择的方法,这次决定采用招标方法,采购部门提出了招标条件,但对投标者的资格不预限制。只要符合招标条件的供应商都可竞标,企业从中
根据印花税法律制度的规定,下列合同和凭证中,免征印花税的有()。
AsJohnSteeleGordonpointsout,BenBernanke’slatestattempttobailoutafailingeconomybymanipulatinginterestratesisn
数据库设计的四个阶段是:需求分析、概念设计、逻辑设计和()。
Whatisthisconversationabout?
最新回复
(
0
)