【计算机类职业资格】VB笔试-试卷46及答案解析.doc
《【计算机类职业资格】VB笔试-试卷46及答案解析.doc》由会员分享,可在线阅读,更多相关《【计算机类职业资格】VB笔试-试卷46及答案解析.doc(15页珍藏版)》请在麦多课文档分享上搜索。
1、VB 笔试-试卷 46 及答案解析(总分:104.00,做题时间:90 分钟)一、选择题(总题数:36,分数:72.00)1.选择题()下列各题 A、B、C、D 四个选项中,只有一个选项是正确的,请将正确选项涂写在答题卡相应位置上。(分数:2.00)_2.下列特征中不是面向对象方法的主要特征的是( )。(分数:2.00)A.多态性B.标识惟一性C.封装性D.耦合性3.语句 Print Sgn(-5.12)+Abs(Int(-5.12)的输出结果是( )。(分数:2.00)A.52.2B.25.01C.26D.284.以下命令中能够正确地画出矩形的是( )。(分数:2.00)A.line-(25
2、00,2500)B.line-(500,500)C.line-(500,500)-(2500,2500)D.line(500,500)-(2500,2500)5.索引属于_。(分数:2.00)A.模式B.内模式C.外模式D.概念模式6.Double 双精度数占 _ 个字节(分数:2.00)A.2B.4C.8D.107.已知二叉树的前序序列为 ABDCEFG,中序序列为 DBCAFEG,则后序序列为_。(分数:2.00)A.DCBAFGEB.DCBFGEAC.DCBFEGAD.DCBGFEA8.关系数据库管理系统能实现的专门关系运算包括 _。(分数:2.00)A.排序、索引、统计B.选择、投影、
3、连接C.关联、更新、排序D.显示、打印、制表9.下列叙述中,不属于软件需求规格说明书作用的是(分数:2.00)A.便于用户、开发人员进行理解和交流B.反映出用户问题的结构,可以作为软件开发工作的基础和依据C.作为确认测试和验收的依据D.便于开发人员进行需求分析10.在数据结构中,与所使用的计算机无关的是数据的( )结构。(分数:2.00)A.存储B.物理C.逻辑D.物理和存储11.下面概念中,不属于面向对象方法的是 _。(分数:2.00)A.对象、消息B.继承、多态C.类、封装D.过程调用12.在窗体上有一个文本框控件,名称为 TextTime;一个计时器控件,名称为 Timer1。要求每一秒
4、在文本框中显示一次当前的时间。程序为:Private Sub Timer1_ _( )TextTime.text=TimeEnd Sub 在下画线上应填入的内容是(分数:2.00)A.EnabledB.VisibleC.IntervalD.Timer13.表示滚动条控件取值范围最大值的属性是( )。(分数:2.00)A.MaxB.LargeChangeC.ValueD.Max-Min14.在用 Open 语句打开文件时,如果省略“For 方式”,则打开的文件的存取方式是( )。(分数:2.00)A.顺序输入方式B.顺序输出方式C.随机存取方式D.二进制方式15.叙述中错误的是( )。(分数:2
5、.00)A.一个工程中只能有一个 Sub Main 过程B.窗体的 Show 方法的作用是将指定的窗体装入内存并显示该窗体C.窗体的 Hide 方法和 Unload 方法的作用完全相同D.若工程文件中有多个窗体,可以根据需要指定一个窗体为启动窗体16.设有如下通用过程: Public Sub Fun(a()As Integer,x As Integer) For i=1 To 4 x=x*a(i) Next End Sub 在窗体上画一个名称为 Text1 的文本框和一个名称为 Commandl 的命令按钮,然后编写如下事件过程: Private Sub Commandl Click() Di
6、m arr(5)As Integer,n As Integer n=1 For i=1 To 4 art(i)=i+i Next Fun alT,n Text1Text=Str(n) End Sub 程序运行后,单击命令按钮,则在文本框中显示的内容是( )。(分数:2.00)A.30B.25C.20D.1517.下面循环语句巾在任何情况下都至少执行一次循环体的是( )。(分数:2.00)A.Do While 循环体 LoopB.While 循环体 WendC.Do 循环体 LoopD.Do Until 循环体 UntilLoop18.在窗体上画一个名称为 Command1 的命令按钮,然后编写
7、如下事件过程: Private Sub Command1_Click() Dim num As Integer num=1 Do Until num6 Print num; num=num+2.4 Loop End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是_。(分数:2.00)A.13.45.8B.1 3 5C.1 4 7D.无数据输出19.假定程序中有以下语句: answer=MsgBox(“String1“,“String2“,“String3“,2) 执行该语句后,将显示一个信息框,此时如果单击“确定”按钮,则 answer 的值为_。(分数:2.00)A.String1B
8、.String2C.String3D.120.表达式 Right(“Beijing“,4)的值是( )。(分数:2.00)A.BeijB.jingC.eijiD.ijin21.在窗体上画一个命令按钮,名称为 Command1,然后编写如下事件过程; Private Sub Command1_Click() a $=“software and hardware“ b $=Right(a$, 8) c $=Mid(a$, 1, 8) MsgBox a$, ,b$,c$,1 End Sub 运行程序,单击命令按钮,则在弹出的信息框的标题栏中显示的是_。(分数:2.00)A.software and
9、hardwareB.softwareC.hardwareD.122.在窗体上画一个名称为 Timer1 的计时器控件,要求每隔 0.5 秒发生一次计时器事件,则以下正确的属性设置语句是_。(分数:2.00)A.Timer1. Interval=0.5B.Timer1. Interval=5C.Timer1. Interval=50D.Timer1. Interval=50023.使用 Public Const 语句声明一个全局的符号常量时,该语句应放在_。(分数:2.00)A.过程中B.窗体模块的通用声明段C.标准模块的通用声明段D.窗体模块或标准模块的通用声明段24.为了使图片框的大小可以自
10、动适应图片的尺寸,则应_。(分数:2.00)A.将其 Autosize 属性值设置为 TrueB.将其 Autosize 属性值设置为 FalseC.将其 Strech 属性值设置为 TrueD.将其 Stretch 属性值设置为 False25.ScrollBars 属性用来设置文本框是否含有滚动条,要设置该属性,_属性的值必须设置为True。(分数:2.00)A.LockedB.HideselectionC.MultilineD.Enabled26.在 Visual Basic 中,要使一个窗体从内存中释放,应该使用的语句是 _。(分数:2.00)A.ShowB.HideC.LoadD.U
11、nload27.在窗体上画一个文本框,然后编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(UCase(char) Text1.Text=String(6,KeyAscii) End Sub 程序运行后,如果在键盘上输入字母“a”,则文本框中显示的内容为 _。(分数:2.00)A.aB.AC.aaaaaaaD.AAAAAAA28.设 a=6,则执行 x=IIF(a5,-1,0) 后,x 的值为(分数:2.00)A.5B.6C.0
12、D.-129.窗体上有 Text1、Text2 两个文本框及一个命令按钮 Command1,编写下列程序 Dim y As Integer Private Sub Command1_Click() Dim x As Integer X=2 Text1.Text=Fun2(Fun1(x),y) Text2.Text=Fun1(x) End Sub Private Function Fun1(x As Integer)As Integer x=x+y:y=x+y Fun1=x+y End Function Private Function Fun2(x As Integer,y As Intege
13、r)As Integer Fun2=2*x+y End Function 当单击 1 次和单击 2 次命令按钮后,文本框 Textl 和 Text2 内的值分别是(分数:2.00)A.2 4 2 4B.2 4 4 8C.10 10 58 58D.4 4 8 830.为了使一个窗体从屏幕消失但仍在内存中,所使用的方法或语句为 _。(分数:2.00)A.ShowB.HideC.LoadD.Unload31.文本框控件最多能处理 _个字节。(分数:2.00)A.32KB.64KC.128KD.16K32.在窗体上画一个列表框、一个文本框及一个按钮,然后编写如下两个事件过程: Private Sub
14、Form_Load() For i=1 To 10 List1.AddItem i * 10 Next i Text1.Text=“ “ End Sub Private Sub List1_Click() Print List1.Text + Text1.Text End Sub 程序运行后,在文本框中输入“123”,然后双击列表框中的第四行,则在窗体上输出的结果为(分数:2.00)A.40123B.163C.123D.3012333.用来没置文本框有无滚动条的属性是(分数:2.00)A.ScrollBarsB.MultiLineC.SelTextD.SelLength34.在窗体上画一个名称
15、为 Drive1 的驱动器列表框,一个名称为 Dir1 的目录列表框,一个名称为 File1的文件列表框,两个名称分虽为 Lahel1、Label2,标题分别为空白和 “共有文件“的标签。编写程序,使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化,并且在标签 Label1 中显示当前文件夹中文件的数量。如图所示。 (分数:2.00)A.Private Sub Dir1_Change( ) FiletPath=Dir1Path End Sub Private Sub Dive1_Change( ) Dir1Path=Drive1Drive Label1,Caption=File1 L
16、istCount End SubB.Private Sub Dir1_Change( ) FilePath=Dtr1Path End Sub privage Sub Dive1_Change( ) Dir1path=Drive1Drive Lahel1Caption=File1List End SubC.Private Sub Dir1_Change( ) File1. Path = DirlPath Label1CaptionFile1, ListCount End Sub Private Sub Drive1_Change( ) Dir1Path = Drive1. Drive Label
17、1Captiol1 = File1ListCount End Sub(D.Private Sub Dir1_Change( ) Filel. Path = DirlPath Label1Caption = File1ListCount End Sub Private Sub Dive1_Change( ) Dir1Path = Drive1Drive Label1Caption = File1List End Sub35.下列说法正确的是(分数:2.00)A.任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器B.只有当代码窗口为当前活动窗口时,才能打开菜单编辑器C.只有当某个窗体为
18、当前活动窗体时,才能打开菜单编辑器D.任何时候都可以使用“工具”菜单下的“菜单编辑器”命令,打开菜单编辑器36.在窗体上画两个文本框,其名称分别为 Text1 和 Text2,然后编写如下程序: Private Sub Form_Load() Show Text1.Text=“ Text2.Text=“ Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text=Mid(Text1.Text,8) End Sub 程序运行后,如果在文本框 Text1 中输入BeijingChina,则在文本框 Text2 显示的内容是 _。(分数:
19、2.00)A.BeijingChinaB.ChimaC.BeijingD.BeijingC二、填空题(总题数:16,分数:32.00)37.填空题(每空)请将每一个空的正确答案写在答题卡上。注意:以命令关键字填空的必须拼写完整。(分数:2.00)_38.在面向对象方法中, 1 描述的是具有相似属性与操作的一组对象。(分数:2.00)填空项 1:_39.软件工程研究的内容主要包括 1 技术和软件工程管理。(分数:2.00)填空项 1:_40.表达式 2*42-2*6/3+3/2 的值是 1。(分数:2.00)填空项 1:_41.顺序存储方法是把逻辑上相邻的结点存储在物理位置 1 的存储单元中。(
20、分数:2.00)填空项 1:_42.将 C 盘根目录下的图形文件 moon.jpg 装入图片框 Picture1 的语句是 1。(分数:2.00)填空项 1:_43.为了能自动放大或缩小图像框中的图形与图像框的大小相适应,必须把该图片框的 Stretch 属性设置为 1。(分数:2.00)填空项 1:_44.下面程序运行后,单击命令按钮,输出的结果是 1Private Sub Command1_Click()Dim a%(1 To 4) , b%(2 To 6) , i%, str1#, str2# For i=1 To 4 a(i) =i Next For i=2 To 6 b(i) =i
21、Next str1=YAG(a) str2=YAG(b) Print “str1=“; str1; “str2=“; str2 End Sub Function YAG(a() As Integer) Dim t#, i% t=1 For i=LBound(a) To UBound(a) t=t * a(i) Next YAG=t End Function(分数:2.00)填空项 1:_45.文件的打开和关闭语句分别是: 1 和 2。(分数:2.00)填空项 1:_填空项 1:_46.滚动条的最小值属性是 1,最大值属性是 Max。(分数:2.00)填空项 1:_47.下列是一个体操评分程序。
22、设满分为 10 分,20 位评委,除去一个最高分和一个最低分,计算平均分。Private Sub Command1_Click()Max=0Min=10For i=1 To 20n=Val(InputBox(“请输入分数“)If nMax Then Max=nIf nMin Then Min=ns=s+n 1s=s-Min-Maxp=s/18Print “最高分“; Max; “最低分“; MinPrint “最后得分: “; pEnd Sub(分数:2.00)填空项 1:_48.在窗体上画一个名称为 Combol 的组合框,画两个名称分别为 Label1 和 Label2 及 Caption
23、,属性分别为“城市名称”和空白的标签。程序运行后,当在组合框中输入一个新项后按回车键(ASCII 码为 13)时,如果输入的项在组合框的列表中不存在,则自动添加到组合框的列表中,并在 Label2 中给出提示“已成功添加输入项”,如图 16-3 所示;如果存在,则在 Label2 中给出提示“输入项已在组合框中”。请在 1、 2 和 3 处将程序补充完整。Private Sub Comhel 4(KeyAscii As Integer)If KeyAseii=13 ThenFor i=0 To Combol. ListCount-1If Combol. Text= 5ThenLabelCapt
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
5000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 职业资格 VB 笔试 试卷 46 答案 解析 DOC
