欢迎来到麦多课文档分享! | 帮助中心 海量文档,免费浏览,给你所需,享你所想!
麦多课文档分享
全部分类
  • 标准规范>
  • 教学课件>
  • 考试资料>
  • 办公文档>
  • 学术论文>
  • 行业资料>
  • 易语言源码>
  • ImageVerifierCode 换一换
    首页 麦多课文档分享 > 资源分类 > DOC文档下载
    分享到微信 分享到微博 分享到QQ空间

    【计算机类职业资格】计算机二级(VB)37及答案解析.doc

    • 资源ID:1337975       资源大小:97.50KB        全文页数:16页
    • 资源格式: DOC        下载积分:5000积分
    快捷下载 游客一键下载
    账号登录下载
    微信登录下载
    二维码
    微信扫一扫登录
    下载资源需要5000积分(如需开发票,请勿充值!)
    邮箱/手机:
    温馨提示:
    如需开发票,请勿充值!快捷下载时,用户名和密码都是您填写的邮箱或者手机号,方便查询和重复下载(系统自动生成)。
    如需开发票,请勿充值!如填写123,账号就是123,密码也是123。
    支付方式: 支付宝扫码支付    微信扫码支付   
    验证码:   换一换

    加入VIP,交流精品资源
     
    账号:
    密码:
    验证码:   换一换
      忘记密码?
        
    友情提示
    2、PDF文件下载后,可能会被浏览器默认打开,此种情况可以点击浏览器菜单,保存网页到桌面,就可以正常下载了。
    3、本站不支持迅雷下载,请使用电脑自带的IE浏览器,或者360浏览器、谷歌浏览器下载即可。
    4、本站资源下载后的文档和图纸-无水印,预览文档经过压缩,下载后原文更清晰。
    5、试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓。

    【计算机类职业资格】计算机二级(VB)37及答案解析.doc

    1、计算机二级(VB)37 及答案解析(总分:100.00,做题时间:120 分钟)一、选择题(每小题 2 分,共 70 分) 下列各(总题数:35,分数:70.00)1.根据变量的作用域,可以将变量分为 3 类,分别为( )。(分数:2.00)A.2B.-2C.0D.+22.下列程序段的执行结果为( )。 a=75 If a 60 Then Score=1 If a 70 Then Score=2 If a 80 Then Score=3 If a 90 Then Score=4 Print “Score= “;Score (分数:2.00)A.对顺序文件中的数据操作只能按一定的顺序操作B.顺序

    2、文件结构简单C.顺序文件的数据以字符(ASCII 码)形式存储D.能同时对顺序文件进行读写操作3.下面 4 个 CT 函数中是用来判断用户输入的数是否为奇数的,是奇数的返回 1,否则返回 0,其中正确的是( )。 (分数:2.00)A.Function CT(ByVal a As Integer) If a Mod 2=0 Then Return 0 ElSe Return 1 End if End FunctionB.Function CT(ByVal a As Integer) If a Mod 2=0 Then CT=0 Else CT=1 End if End FunctionC.Fu

    3、nction CT(ByVal a As Integer) If a Mod 2=0 Then CT=1 Else CT=0 End if End FunctionD.Function CT(ByVal a As Integer) If a Mod 2=0 Then Return 1 Else Return 0 End if End Function4.语句 A=B+C 代表的意思是( )。(分数:2.00)A.B.C.D.5.在窗体上有一个命令按钮,然后编写如下事件过程 Private Sub Command1 _ cickc ( ) a=InputBox(“enter the first

    4、integer“) b=InputBox(“enter the second integer“) Print b + a End Sub 程序运行后,单击命令按钮,先后在两个输入框中分别输入“2”和“6”,则输出结果为( )。 (分数:2.00)A.ifstream fin;finopen(“C:/testtxt“);B.ifstream fin(“C:/testtxt“);C.A)和 B)D.ifstream fin;fin(“C:/testtxt“);6.以下叙述中错误的是( )。 (分数:2.00)A.下拉式菜单和弹出式菜单都用菜单编辑器建立B.在多窗体程序中,每个窗体都可以建立自己的菜

    5、单系统C.除分隔线外,所有菜单项都能接收 Click 事件D.如果把一个菜单项的 Enabled 属性设置为 False,则该菜单项不可见7.在用菜单编辑器设计菜单时,不可缺少的项目是( )。(分数:2.00)A.快捷键B.名称C.索引D.标题8.要获得当前驱动器应使用驱动器列表框的属性是( )。(分数:2.00)A.PathB.DriveC.DirD.Pattern9.有如下事件过程: Function UNC (ByVal x As Integer,ByVal y As Integer) As Integer Do While y0 sic=x/y x=y y=sic Loop UNC=x

    6、 End Function 以下是该函数的调用过程,该程序的运行结果是( )。 PriVate Sub COmmand1_Click() Dim a As Integer Dim b As Integer a=12 b=2 x=UNC (a,b) Print x End Sub (分数:2.00)A.0B.6C.2D.8010.在窗体上画一个名称为 Command1 的命令按钮,然后编写如下事件过程: Option Base 1 Private Sub Command1_Click( ) Dim a a=Array(1,2,3,4,5) For i=1 To UBound(a) a(i)=a(

    7、i)+i-1 Next Print a(3) End Sub 程序运行后,单击命令按钮,则在窗体上显示的内容是( )。 (分数:2.00)A.4B.5C.6D.711.表达式(7/2+1)*(8/2+2)的值为( )。(分数:2.00)A.4.58B.5.69C.24D.2212.在窗体上画 1 个命令按钮,其名称为 Command1,然后编写如下程序: Private Sub Command1_Click() Dim a(10) As Integer Dim x As Integer For i=1 To 10 a(i)=8+i Next x=2 Print a(f(x)+x) End Su

    8、b Function f(x As Integer) x=x+3 f=x End Function 程序运行后,单击命令按钮,输出结果为_。 (分数:2.00)A.12B.15C.17D.1813.下列说法错误的是( )。(分数:2.00)A.Caption 为只读属性,运行时对象的名称不能改变B.设置 Height 或 Width 的数值单位为 twip,是 1 点的 1/20C.Icon 属性用来设置窗体最小化时的图标D.用来激活属性窗口的快捷键是 F4 键14.任何控件都有的属性是( )。(分数:2.00)A.BackColorB.CaptionC.NameD.BorderStyle15

    9、.下列语句的输出结果为( )。 Print Format$(568936,“000,000000“) (分数:2.00)A.在窗口的垂直滚动条的上面,有一个“拆分栏”,利用它可以把窗口分为两个都分,每个窗口显示代码的一部分B.双击控件设计窗体即可打开程序代码窗口C.在程序代码的左下角有两个按钮,可以选择全模块壹看或者是过程查看D.默认情况下,窗体的事件是 Load16.下列程和序段的执行结果为( )。 x=Int(Rnd()+9) Select Case X Case 10 Print “excellent“ Case 9 Print “good“ Case 8 Print “pass“ Ca

    10、se Else Print “fail“ End Select (分数:2.00)A.excellentB.goodC.passD.fail17.下列程序段的执行结果为( )。 I=9 X=5 Do I=I+1 x=x+2 Loop Until I =7 Print“I=“;I Print“x=“;x (分数:2.00)A.I=4x=5B.I=7x=15C.I=6x=8D.I=10x=718.单击命令按钮时,下列程序的执行结果为( )。 Private Sub Command1_Click() Dim x As Integer,y As Integer x=12:y=32 Call Proc(

    11、x,y) Print x;y End Sub Public Sub Proc(n As Integer,ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub (分数:2.00)A.12 32B.2 32C.2 3D.12 319.计算 z 的值,当 x 大于 y 时,z=x;否则 z=y。下列语句错误的是( )。(分数:2.00)A.ALL,REST,NEXT 和 RECORDB.NEXT,REST,FIELDS 和 TOPC.REST,FIELDS,FOR 和 BOTYOMD.ALL,FOR,WHILE 和 RECORD20.设有数组定义语句:D

    12、im a(5)As Integer,List1 为列表框控件。下列给数组元素赋值的语句错误的是( )。(分数:2.00)A.打开过程文件时,其中的主过程自动调入内存B.同一时刻只能打开一个过程,打开新的过程后,旧的过程自动关闭C.用命令 DOWITH 调用过程时,过程文件无需打开就可调用其中的过程D.用命令 DOWITHIN 调用过程时,过程文件无需打开,就可调用其中的过程21.下列操作可以打开立即窗口的是( )。(分数:2.00)A.Ctrl + DB.Ctrl + FC.Ctrl + GD.Ctrl + E22.下列说法正确的是( )。(分数:2.00)A.在 Visual Basic 中

    13、的对话框分为两种类型:预定义对话框和自定义对话框B.自定义对话框由用户根据自己需要定义的C.预定义对话框是用户在设置程序代码后定义的D.MssgBox 函数是用户的自定义对话框的函数23.以下叙述中错误的是( )。 (分数:2.00)A.在 KeyPress 事件过程中不能识别键盘的按下与释放B.在 KeyPress 事件过程中不能识别回车键C.在 KeyDown 和 KeyUp 事件过程中,将键盘输入的“A”和“a”视作相同的字母D.在 KeyDown 和 KeyUp 事件过程中,从大键盘上输出的“1”和从右侧小键盘上输入的“1”被视作不同的字符24.根据变量的作用域,可以将变量分为 3 类

    14、,分别为( )。(分数:2.00)A.局部变量、模块变量和全局变量B.局部变量、模块变量和标准变量C.局部变量、模块变量和窗体变量D.局部变量、标准变量和全局变量25.Sub 过程与 Function 过程最根本的区别是( )。(分数:2.00)A.Sub 过程的过程不能返回值,而 Function 过程能返回值B.Function 过程可以有形参,Sub 过程不可以C.Sub 过程可以使用 Call 语句直接使用过程名调用,而 Function 过程不可以D.两种过程参数的传递方式不同26.下列说法错误的是( )。(分数:2.00)A.资源文件的扩展名为resB.一个窗体对应一个窗体文件C.

    15、Visual Basic 中的一个工程只包含一个窗体D.Visual Basic 中一个工程最多可以包含 255 个窗体27.设有命令按钮 Command1 的单击事件过程,代码如下: Private Sub Command1_Click() Dim a(30) As Integer For i=1 To 30 a(i)=Int(Rnd*100) Next For Each arrItem In a If arrItem Mod 7=0 Then Print arrItem If arrItem90 Then Exit For Next End Sub 对于该事件过程,以下叙述中错误的是_。(

    16、分数:2.00)A.a 数组中的数据是 30 个 100 以内的整数B.语句 For Each arrItem In a 有语法错误C.If arrItem Mod 7=0语句的功能是输出数组中能够被 7 整除的数D.If arrItem90语句的作用是当数组元素的值大于 90 时退出 For 循环28.在窗体上画一个命令按钮,其名称为 Command1,然后编写如下事件过程: Private Sub Command1_Click() Dim i As Integer, x As Integer For i = 1 To 6 If i = 1 Then x = i If i 90 Then E

    17、xit For Next End Sub 对于该事件过程,以下叙述中错误的是_。(分数:2.00)A.a 数组中的数据是 30 个 100 以内的整数B.语句 For Each arrItem In a 有语法错误 C.If arrItem Mod 7=0语句的功能是输出数组中能够被 7 整除的数D.If arrItem90语句的作用是当数组元素的值大于 90 时退出 For 循环解析:For Each 语句的基本语法结构为:For Each 变量 In 数组 语句块 Next 变量本题中 For Each 语句没有语法错误。28.在窗体上画一个命令按钮,其名称为 Command1,然后编写如

    18、下事件过程: Private Sub Command1_Click() Dim i As Integer, x As Integer For i = 1 To 6 If i = 1 Then x = i If i arr(i))解析:本题的基本思路是通过二个中间变量 Max 及 Min 来记录当前已比较数值中的最大值及最小值,如果 待比较的数大于 Max,则将当前值赋值给 Max,如果当前待比较值小于 Min,则将当前数赋值给 Min,当 比较结束时,Max、Min 分别为这组数中的最大值及最小值。故第空应填 Maxarr(i)或其等效形式。44.数据结构分为逻辑结构和存储结构,循环队列属于

    19、1 结构。(分数:2.00)填空项 1:_ (正确答案:逻辑)解析:所谓数据的逻辑结构,是指反映数据元素之间逻辑关系的数据结构;而数据的逻辑结构在计算机存 储空间中的存放形式称为数据的存储结构(也称数据的物理结构)。在数据的存储结构中,不仅要存放各数 据元素的信息,还需要存放各数据元素之间的前后件关系的信息。而所谓循环队列,就是将队列存储空间 的最后一个位置绕到第一个位置,形成逻辑上的环状空间,供队列循环使用。所以循环队列不需要存放元 素之间的前后件关系,故它属于逻辑结构。45.有下面一个程序段,从文本框中输入数据,如果该数据满足条件,除以 4 余 1,除以 5 余 2 则输出,否则,将焦点定

    20、位在文本框中,并清除文本框的内容。 Private Sub Command1_Click( ) x=Val(Text1Text) If 1 Then Print x Else Text1Text=“ 2 End If End Sub (分数:2.00)填空项 1:_ (正确答案:x Mod 4 = 1 And x Mod 5=2)解析:(1)程序调用了 Val-|_|-函数从文本框中的得到数据。本题中先通过 Val-|_|-函数得到一个整数,进行条件判断,如果满足条件 x Mod 4=1 And x Mod 5=2 则输出x,否则,将清空文本框,焦点落在文本框中。46.下列程序的功能是:将数据

    21、 1,2,10 写入顺序文件 Basetxt 中,请填空。 Private Sub Form_Click1 Dim i As Integer Open 2 As #1 For i=1 To 10 3 Next i Close #1 End Sub (分数:2.00)填空项 1:_ (正确答案:“Basetxt”For)填空项 1:_ (正确答案:Output)解析:本题中以输出方式来打开文件,故要用“Open“Basetxt“For Output As# 1“语句;向文件中写入数据用 Print 语句。47.把窗体的 KeyPreView 属性设置为 True,并编写如下两个事件过程: Pri

    22、vate Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) Print KeyCode End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print KeyAscii End Sub 程序运行后,如果按下 B 键,则在窗体上输出的数值是 1 和 2。 (分数:2.00)填空项 1:_ (正确答案:66)解析:KeyDown 事件是返回的是键盘的直接状态,返回的是“键”,所以当按字母“B”时KeyDown 得到的 KeyCode 码与按字母键“b”是相同的,所以程序输出为 66;

    23、当按下键盘上的某个键时将发生KeyPress,KeyPress 并不反映键盘的直接状态,当按下字母“B”时,与按下字母“b”时,对 KeyPress来说,所得到的 ASCII 码是不样的,KeyPress 事件用来识别按键的 ASCII 码,所以按下“B”键,KeyAscii 的值为 98。48.在窗体上加上一个文本控件 PCSTextBox,画一个命令按钮,当单击命令按钮的时候将显示 “打开文件”对话框,设置该对话框只用于打开文本文件,然后在文本控件中显示打开的文件名。请填空。 Private Sub Command1_Click1 CommonDialog1Filter= 2 Common

    24、Dialog1ShowOpen PCSTextBoxText= 3 End Sub (分数:2.00)填空项 1:_ (正确答案:“Text)填空项 1:_ (正确答案:Files(*txt)|*txt“)解析:要设置通用对话框只用于打开文本文件,需要设置通用对话框的 Filter 属性值,在这里我们应该填写的是“Text Files(*txt)| *txt“;在使用了对话框控件的 ShowOpen 后出现的打开文件对话框中的文件类型只有 Text Files(*txt)|*.txt,选择了需要打开的文本文件后,应该让文件的文件名显示在文本框中,因此需要将通用对话框中选择的文件赋给文本控件,即

    25、将对话框的 FileName 属性值赋给文本框的 Text 属性。49.下面运行程序后,单击命令按钮,输出的结果是 1。 Private Sub Command1_Click2 Dim a%(1 To 4),b%(3 To 6),i%,s1#,s2# For i=1 To 4 a(i) =i Next i For i=3 To 6 b(i) =i Next i s1=YAS(A) s2=YAS(B) Print“s1=“;s1;“s2=“;s2 End Sub Function YAS(a3As Integer) Dim t#,i% t=1 For i=LBound(A) To UBound(

    26、A) t=t * a(i) Next i YAS=t End Function (分数:2.00)填空项 1:_ (正确答案:s1=24 s2=360)解析:程序首先调用循环语句为数组 a、b 赋值,其中 a(i)=I;b(i)=I,且数组 a 的上下界分别为 1 和4,数组 b 的上下界分别为 3 和 6;接着将数组 a 作为参数调用 YAS 过程,在 YAS 过程中,定义了两个变量 t 及 I,I 作为循环语句 For 的变量,它的初始值和终值分别为数组的上下界,循环体为 t=t*a(i)即将a(i)的值乘以 t,然后再赋给 t,当循环结束后,程序返回的就是数组 a 中的各元素的积;同理程

    27、序将数组 b 作为参数传递给 YAS 过程后返回数组 b 中各元素的积,运行程序结束后,输出结果为:s1=24 s2=360。50.在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click1 x=0 Do Until x=-1 a=lnputBox(“请输入第一个数字 a 的值“) a=Val(a) b=InputBox(“请输入第二个数字 b 的值“) b=Val(b) x=InputBox(“请输入第三个数字 x 的值“) x=Val(x) a=a+b+x Loop Print a End Sub 在程序运行后,单击命令按钮,在对话框中分别输入 5,4,8,5,8,-1,输出结果为 2。 (分数:2.00)填空项 1:_ (正确答案:12)解析:该程序运行后,会出现一个对话框,提示输入 a,b,x 的值,如果输入的 x 的值不是-1,则该对话框将反复出现要求输入的提示,直到最后输入的 x 的值为-1 为止,程序最后输出的结果为最后一次循环中输入的 a 的值与 b 的值与 x 的值之和。所以输出结果为 5+8-1=12。


    注意事项

    本文(【计算机类职业资格】计算机二级(VB)37及答案解析.doc)为本站会员(eventdump275)主动上传,麦多课文档分享仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知麦多课文档分享(点击联系客服),我们立即给予删除!




    关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

    copyright@ 2008-2019 麦多课文库(www.mydoc123.com)网站版权所有
    备案/许可证编号:苏ICP备17064731号-1 

    收起
    展开