首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Command1的命令按钮,编写如卜程序代码 Private Type Student sn As String*10 class As String*20 score As Double End
在窗体上画一个名称为Command1的命令按钮,编写如卜程序代码 Private Type Student sn As String*10 class As String*20 score As Double End
admin
2020-06-30
18
问题
在窗体上画一个名称为Command1的命令按钮,编写如卜程序代码
Private Type Student
sn As String*10
class As String*20
score As Double
End Type
Private Sub Command1_Click()
Dim s As Student
Dim s1 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语句可以移到事件过程Command1_Click中
答案
A
解析
在Open语句中指定文件的访问方式为输出(0utput)、附加(Append)或随机(Random),若打开的文件不存在,则建立相应的文件。本题中指定的访问方式为Random,所以B选项叙述错误;对于用随机访问方式打开的文件,其每个记录的长度必须是相同的,C选项叙述错误;记录类型的定义必须放在模块(包括标准模块和窗体模块)的声明部分,D选项叙述错误,本题A选项叙述正确。本题选择A选项。
转载请注明原文地址:https://kaotiyun.com/show/knHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下通用过程:PublicFunctionf(xAsInteger) DimyAsInteger x=20 y=2 f=x*yEndFunction在窗体上画一个命令按钮,其名称为Command1,然后编写如下
为了建立随机文件,要求文件的每条记录应包含多个不同数据类型的数据项,则记录应使用的数据类型是
下面程序运行时,若输入395,则输出结果是()。PrivateSubCmdl_Click()Dima%a=InputBox("请输入一个3位整数")PrintaMod10,a\100,(aMod100)\10E
下面不是键盘事件的是( )。
假定有如下语句:answer$=MsgBox(“Stringl”,“String2”,“String3”,2)执行该语句后,将显示一个信息框,单击其中的“确定”按钮,则answer$的值为()。
以下声明数组和给数组赋值的语句中,正确的是()。
设有语句:Open"c:\Test.Dat"ForOutputAs#1则以下叙述中错误的是( )。
窗体上有一个名称为Cb1的组合框,程序运行后,为了输出选中的列表项,应使用的语句是()。
一间宿舍可住多个学生,则实体宿舍和学生之间的联系是( )。
某二叉树有5个度为2的结点,则该二叉树中的叶子结点数是
随机试题
在对进度计划进行计划目标与施工能力的适应性审查时,应重点审查()。
领导科学指的是对领导活动实践的宝贵经验和丰富内容认真进行总结和探索,加以
男性,62岁,患食管癌入院后经左胸行食管癌切除弓上吻合术,术后第2天起,胸腔引流管引流液呈淡血性,量为每天600~1000ml,体温基本正常,但患者胸闷、气急、神萎。摄床旁胸片示:左胸腔大量积液。导致以上临床症状最可能的原因是
患者女性,55岁。有高血压病史12年,主因胸前区不适4年,加重2天人院。患者不能平卧,尤其夜间呼吸困难加重。入院查体:T36.5℃P120次/分,R23次/分Bp155/95mmHg;入院后遵医嘱服用地高辛0.125mg每日一次。患者某日心电图出现室性
A.裂片B.松片C.含量不均匀D.色斑E.片重差异超限片剂在制备时黏性力差,压缩压力不足会产生()。
有机磷农药中毒呼吸或呕吐物有
经济评价应遵循的基本原则,不包括()。
函数F(x)=∫1x(1一)dt(x>0)的递减区间为_______.
Manyindigenouscultureshaveelaborateritualsthatmarkthe【C1】______fromchildhoodtoadulthood.InsomeAfricancultures,te
Cryingishardlyanactivityencouragedbysociety.Tears,betheyofsorrow,anger,orjoy,typicallymakeAmericansfeeluncom
最新回复
(
0
)