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

    【计算机类职业资格】国家二级VB机试(数据类型及运算)模拟试卷24及答案解析.doc

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

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

    【计算机类职业资格】国家二级VB机试(数据类型及运算)模拟试卷24及答案解析.doc

    1、国家二级 VB 机试(数据类型及运算)模拟试卷 24 及答案解析(总分:66.00,做题时间:90 分钟)一、选择题(总题数:33,分数:66.00)1.执行如下两条语句后,窗体上显示的是 a=98596 Print Format(a,“$00,00,00”)(分数:2.00)A.0,00986B.$986C.986D.$0,009862.设一个工程由两个窗体组成,其名称分别为 Fornm1 和 Forum2,在 Fornml 上有一个名称为 Command1 的命令按钮。窗体 Fornm1 的程序代码如下:Private Sub Commandl_Click() Dim a=10 Call

    2、g(Fornm2,a)End SubPrivate Sub g(f As Fornm,x As Integer) y=IIf(x10,100,一 100) fShow fCaption=yEnd Sub 运行以上程序,正确的结果是(分数:2.00)A.Fornml 的 Caption 属性值为 100B.Forum2 的 Caption 属性值为100C.Fornml 的 Caption 属性值为-100D.Forum2 的 Caption 属性值为 1003.在窗体上画一个名称为 Command1 的命令按钮,并编写如下程序:Private Sub Command1_Click() Dim

    3、x As Integer x=10:y=5 Call f1(x,y) Print x,yEnd subPrivate Sub f1(ByRef x1 As Integer,_ y1 As Integer) x1=x1+2:y1=y1+2End Sub 程序运行后,单击命令按钮,在窗体上显示的内容是(分数:2.00)A.10 5B.12 2C.10 7D.12 74.在窗体上画一个名称为 Filel 的文件列表框,并编写如下程序: Private Sub File1_DblClick() x=Shell(File1FileName,1) End Sub 以下关于该程序的叙述中,错误的是(分数:2

    4、.00)A.x 没有实际作用,因此可以将该语句写成 Call Shell(File1FileName,1)B.双击文件列表框中的文件,将触发该事件过程C.要执行的文件的名字通过 File1FileName 指定D.File1 中显示的是的当前驱动器、当前目录下的文件5.在窗体上画一个名称为 Command1 的命令按钮,然后编写如下程序:Option Base 1Private Sub Commandl_Click() Dim a As Variant a=Array(1,2,3,4,5)Sum=0For i=1 To 5 Sum=Sum+a(i)Next ix=Sum5For i=1 To

    5、5 If a(i)x then Print a(i)Next i End Sub 程序运行后,单击命令按钮,在窗体上显示的内容是(分数:2.00)A.12B.123C.345D.456.执行以下程序段 aS=”abbacddcba” For i=6 To 2 Step 一 2 X=Mid(a,i,i):Y=Lett(a,i) z=Right(a,i):z=UCase(X Y z) Next i Print z 输出的结果是(分数:2.00)A.ABAB.BBABBAC.AABAABD.AABAAB7.假定一个工程由一个窗体文件 Form1 和两个标准模块文件 Model1 和 Model2 组

    6、成 Model1 的代码如下: Public x As Integer:Publicy,As Integer Sub S1() Sub S2() x=1 y=10 S2 Form1show End Sub End Sub Model2 的代码如下: Sub Main() S1 End Sub 其中 Sub Main 被设置为启动过程。程序运行后,各模块的执行顺序是(分数:2.00)A.Form1Model1Model2B.Model1Model2Form1C.Model2Model1Form1D.Model2Form1Model18.在窗体(名称为 Form1)上画一个名称为 Text1 的文

    7、本框和一个名称为 Command1 的命令按钮,然后编写一个事件过程。程序运行后,如果在文本本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的时间过程是(分数:2.00)A.Private Sub Text1_Change() Command1Caption=”计算机等级考试” End SubB.Private Sub Text1_Change() Caption=”计算机等级考试” End SubC.Private Sub Text1_Change() TextlCaption=”计算机等级考试” End SubD.Private Sub Text1_Cha

    8、nge() Text1Text=”计算机等级考试” End Sub9.在窗体上画一个列表框和一个命令按钮,其名称分别为 list1 和 Command1,然后编写如下事件过程: Private Sub Form load() List1Addltem”Item1”:List1Addltem”Itern2”:ListlAddltem”Item3” End Sub Private Sub Command1_Click () List1List(List1ListCount)=”AAAA” End Sub 程序运行后,单击命令按钮,其结果为(分数:2.00)A.把字符串“AAAA”添加到列表框中,但

    9、位置不能确定B.把字符串“AAAA”添加到列表框的最后(即“Item3”的后面)C.把列表框原有的最后一项改为“AAAA”D.把字符串“AAAA”插入到列表框的最前面(即“Item1”的前面)10.在窗体上画一个命令按钮,然后编写如下事件过程: Private SUb Commandl_Click For i=1 To 5 a(i)=Chr(Asc(”A”)+(i 一 1) Next i For Each b In a Print b: Next End Sub 程序运行后,单击命令按钮,输出结果是(分数:2.00)A.ABCDEB.1 2 3 4 5C.abcdeD.出错信息11.设窗体上有

    10、一个名为 Text1 的文本框,并编写如下程序: Private Sub Form_load0 Show Text1Text=“”:Text1SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,_shift As integerX As Single,Y As Integer) Print”程序设计” End Sub Private Sub Text_KeyDown(keyCod As Integer,_shift As Integer) Print”Visual Basic”; End Sub 程序运行后,如果在文本框中输入

    11、字母“a”,然后单击窗体,则在窗体上显示的内容是(分数:2.00)A.Visual BasicB.程序设计C.Visual Basic 程序设计D.a 程序设计12.假定有下表所列的菜单结构: (分数:2.00)A.Private Sub bigicon_Click() bigiconChecked=False End SubB.Private Sub bigicon_Click() MeappearbigiconChecked=True End SubC.Private Sub bigicon_Click() bigiconChecked=True End SubD.Private Sub

    12、bigicon_Click() appearbigiconChecked=True End Sub13.以下能从字符串“VisualBasic”中直接取出子字符串“Basic”的函数是(分数:2.00)A.LeftB.MidC.StringD.Instr14.在菜单编辑器中建立 1 个名称为 Menu()的菜单项,将其“可见”属性设置为 False,并建立其若干子菜单,然后编写如下过程 Private Sub Form_MousDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button=1 Then Po

    13、pupMenu Menu() End If End Sub 则以下叙述中错误的是(分数:2.00)A.该过程的作用是弹出一个菜单B.单击鼠标右键时弹出菜单C.Menu()是在菜单编辑器中定义的弹出菜单的名称D.参数 X、Y 指明鼠标当前位置的坐标15.设有如下的用户定义类型: Type Student Number As String:Name As String:Age As Integer End Type 则以下正确引用该类型成员的代码是(分数:2.00)A.Studentname=”李明”B.Dim S As Student Sname=”李明”C.Dim S As Type Stud

    14、ent Sname=”李明”D.Dim s As Type Sname=”李明”16.在窗体上画一个命令按钮和两个标签,其名称分别为 Command1、Label1 和 Label2,然后编写如下事件过程: Private Sub Command1_Click() a=0 For i=1 To 10 a=a+1:b=0 Forj=1 To 10 a=a+1:b=b+2 Nextj Label1Caption=Str(a):Label2Caption=Str(b) End Sub 程序运行后,单击命令按钮,在标签 Label1 和 Label2 中显示的内容分别是(分数:2.00)A.10 和

    15、20B.20 和 110C.200 和 110D.110 和 2017.为达到把 a、b 中的值交换后输出的目的,某人编程如下: Private Sub Commandl_Click() a=10:b=20 Call swap(a,b) Print a,b End Sub Private Sub swap(ByVal a As Integer,ByVal b As Integer) c=a:a=b:b=c End Sub 在运行时发现输出结果错了,需要修改。下面列出的错误原因和修改方案中正确的是(分数:2.00)A.调用 swap 过程的语句错误,应改为:Call swap(a,b)B.输出语

    16、句错误,应改为:print”aIt,V!b”C.过程的形式参数有错,应改为 swap(ByRef a Integer,ByRefb Integer)D.swap 中 3 条赋值语句的顺序是错误的,应改为 a=b:b=c:c=a18.设有如图所示窗体和以下程序: (分数:2.00)A.文本框中无内容,焦点在文本框中B.文本框中为“Basic”,焦点在文本框中C.文本框中为“Basic”,焦点在按钮上D.文本框中为“Visual Basic”,焦点在按钮上19.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮,然后编写如下事件过程: Private Sub Co

    17、mmandl_Click() Dim I As Integer,n As Integer For i=0 T0 50 i=i+3:n=n+1 If i10 Then Exit For Next Text1Text=Str(n) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是(分数:2.00)A.2B.3C.4D.520.设有以下函数过程: Function fun(a As Integer,b As Integer) Dim C As Integer IfaA.a、b 的最大公约数B.a、b 的最小公倍数C.a 除以 b 的余数D.a 除以 b 的商的整数部分21.在窗体上画一

    18、个名称为 Command1 的命令按钮。单击命令按钮时执行如下事件过程: Private Sub Command1_Click() aS=“software and hardware” b$=Right(aS,8) c$=Mid(a$,1,8):MsgBox aS,b$,c$,1 End Sub 则在弹出的信息框标题栏中显示的标题是(分数:2.00)A.software and hardwareB.hardwareC.softwareD.122.以下程序段的输出结果是 X=1:Y=4 Do Until Y4 X=X*Y.Y=Y+1 Loop Print X(分数:2.00)A.1B.4C.8D

    19、.2023.下面函数的功能应该是:删除字符串 str 中所有与变量 ch 相同的字符,并返回删除后的结果。例如:若 str=“ABCDABCD”,ch=“B”,则函数的返回值为:“ABCDCD”Function delchar(str As string,ch As;Dim k As Integer,temp As String,ret As Stringret=“For k=1 To Len(str) Temp=Mid(str,k,1) If temp=ch Then ret=ret temp End If Next k delchar=ret 但实际上函数有错误,需要修改。下面的修改方案中

    20、正确的是(分数:2.00)A.把 ret=ret temp 改为 ret=tempB.把 Iftemp=ch Then 改为 Iftemp=5 x=a*b Print b;x a=a+b:b=b+a Loop End Sub 程序运行后,单击窗体,输出结果是(分数:2.00)A.1 1 2 3B.1 1 2 4C.1 1 3 8D.1 1 3 627.表达式 Int(Rnd(0)*50)所产生的随机数范围是(分数:2.00)A.(050)B.(1,50)C.(0,49)D.(1,49)28.现有如下一段程序: Option Base1 Private Sub Command1_Click()

    21、Dim a a=Array(3,5,7,9):x=1 For i=4 To 1 Step-1 s=s+a(i)*X:X=X*10 Next Print S End Sub 执行程序,单击 Command1 命令按钮,执行上述事件过程,输出结果是(分数:2.00)A.9753B.3579C.35D.7929.设有如下程序: Sub f(x As Integer,ByVal Y As Integer) x=2*X:y=y+x End Sub Private Sub Command1 Click() Dim a As Integer,b As Integer a=6:b=35 Call f(a,b)

    22、 Print a,b End Sub 程序运行后,单击命令按钮 Command1,输出结果为(分数:2.00)A.6 47B.12 47C.6 35D.12 3530.以下不能输出“Program”的语句是(分数:2.00)A.Print Mid(”VBProgram”,3,7)B.Print Right(”VBProgram”,7)C.Print Mid(”VBProgram”,3)D.Print Left(”VBProgram”,7)31.已知: x=-6 y=39 则表达式“yx*Sgn(x)”的值为(分数:2.00)A.-65B.-6C.6D.6532.设:a=12,b=5,c=7,表

    23、达式 x=(ac+a Mod b)+Int(135)的值是(分数:2.00)A.5B.6C.7D.933.表达式 1224 的值是(分数:2.00)A.15B.2C.4D.1国家二级 VB 机试(数据类型及运算)模拟试卷 24 答案解析(总分:66.00,做题时间:90 分钟)一、选择题(总题数:33,分数:66.00)1.执行如下两条语句后,窗体上显示的是 a=98596 Print Format(a,“$00,00,00”)(分数:2.00)A.0,00986B.$986C.986D.$0,00986 解析:解析:此题考察。Format 函数,该函数的格式为:Format(expressi

    24、on,format)其中expression 参数指定要转换的数值,format 参数是字符串,$表示 Currency 格式,显示带千分符且小数点右面保存两位,因此应选选项 D。2.设一个工程由两个窗体组成,其名称分别为 Fornm1 和 Forum2,在 Fornml 上有一个名称为 Command1 的命令按钮。窗体 Fornm1 的程序代码如下:Private Sub Commandl_Click() Dim a=10 Call g(Fornm2,a)End SubPrivate Sub g(f As Fornm,x As Integer) y=IIf(x10,100,一 100) f

    25、Show fCaption=yEnd Sub 运行以上程序,正确的结果是(分数:2.00)A.Fornml 的 Caption 属性值为 100B.Forum2 的 Caption 属性值为100 C.Fornml 的 Caption 属性值为-100D.Forum2 的 Caption 属性值为 100解析:解析:本题考查常用函数和窗体属性设置。在 Commandl 命令按钮的 Click 事件代码里面,定义变量 a,初始化为 10,然后调用 g 函数,参数为 Fornm2 和 a:在 g 函数中,首先判断输入的参数 x 是否大于 10,显然调用 g 函数时传入的 a 为 10,因此在 g

    26、函数中 y 的值为一 100,然后设置窗体 f 变量(Fornrn2)的 Caption 属性为 y,即设置 Fornm2 的 Caption 属性为-100。3.在窗体上画一个名称为 Command1 的命令按钮,并编写如下程序:Private Sub Command1_Click() Dim x As Integer x=10:y=5 Call f1(x,y) Print x,yEnd subPrivate Sub f1(ByRef x1 As Integer,_ y1 As Integer) x1=x1+2:y1=y1+2End Sub 程序运行后,单击命令按钮,在窗体上显示的内容是(分

    27、数:2.00)A.10 5B.12 2C.10 7D.12 7 解析:解析:本题考查函数参数传递。在 Commandl 的 Click 事件代码里而,定义了变量 x 和 y,值分别为 10 和 5,然后调用 f1 过程;f1 过程有两个参数,其中第一个参数是 ByRef 表明是按地址传递参数的,第二个参数是没有指明 ByVal 类型,因此默认页是 ByRef 地址传递参数,在 f1 过程中多参数做的修改,同样会修改实参;在 f1 过程中,分别对两个参数加 2,因此在 Commandl 的 Click 代码里面,调用 f1 过程后,x 和 y 的值增加 2,变成 12 和 7。4.在窗体上画一个

    28、名称为 Filel 的文件列表框,并编写如下程序: Private Sub File1_DblClick() x=Shell(File1FileName,1) End Sub 以下关于该程序的叙述中,错误的是(分数:2.00)A.x 没有实际作用,因此可以将该语句写成 Call Shell(File1FileName,1) B.双击文件列表框中的文件,将触发该事件过程C.要执行的文件的名字通过 File1FileName 指定D.File1 中显示的是的当前驱动器、当前目录下的文件解析:解析:本题考查常用内部函数,Shell 函数的功能是执行一个可执行文件,返回一个Variant(Double

    29、),如果成功的话,代表这个程序的任务 ID,若不成功,则会返回 O。选项 A)错误,x 获取 Shell 函数返回值;选项 B)、C)和 D)均正确。5.在窗体上画一个名称为 Command1 的命令按钮,然后编写如下程序:Option Base 1Private Sub Commandl_Click() Dim a As Variant a=Array(1,2,3,4,5)Sum=0For i=1 To 5 Sum=Sum+a(i)Next ix=Sum5For i=1 To 5 If a(i)x then Print a(i)Next i End Sub 程序运行后,单击命令按钮,在窗体上

    30、显示的内容是(分数:2.00)A.12B.123C.345D.45 解析:解析:本题考查数组和循环。在 Commandl 的 Cliek 事件代码里面,定义了数组 a,并通过 Array函数给数组赋初值。接下来通过 For 循环计算数组元素的累加和 Sum,得到累加和后 x=Sum5 来计算平均值。最后通过 For 循环,打印大于平均值的元素。6.执行以下程序段 aS=”abbacddcba” For i=6 To 2 Step 一 2 X=Mid(a,i,i):Y=Lett(a,i) z=Right(a,i):z=UCase(X Y z) Next i Print z 输出的结果是(分数:2

    31、.00)A.ABAB.BBABBA C.AABAABD.AABAAB解析:解析:本题考查循环结构和常用内部函数,Mid、Left 和 Right 是字符串截取函数,UCase 是把字符串转换成大写的函数。在循环体内,X 是从 a 字符串的第 i 位开始,取出 i 长度的字符串,Y 从 a 字符串的最左边开始取出长度为 i 的字符串,Z 从 a 字符串的最右边开始取出长度为 i 的字符串,然后把“X Y z”转换成大小并赋值给 z。由于循环体每次操作都一样,只需要考虑循环最后一次执行的情况,循环最后一次执行的时候 i 的值为 2,此时 X=Mid(a,2,2)=”bb”,Y=Left(a,2)=

    32、”ab”,z=mght(a,2)=”ba“,所以 UCase(X Y z)=”BBABBA”。7.假定一个工程由一个窗体文件 Form1 和两个标准模块文件 Model1 和 Model2 组成 Model1 的代码如下: Public x As Integer:Publicy,As Integer Sub S1() Sub S2() x=1 y=10 S2 Form1show End Sub End Sub Model2 的代码如下: Sub Main() S1 End Sub 其中 Sub Main 被设置为启动过程。程序运行后,各模块的执行顺序是(分数:2.00)A.Form1Model

    33、1Model2B.Model1Model2Form1C.Model2Model1Form1 D.Model2Form1Model1解析:解析:本题考查启动顺序。本题中,设置 Main 为启动过程,而 Main 位于 Model2 当中,因此最先运行的是 Model2 中的 Mian 过程;在 Mian 过程中调用 S1 过程,而 S1 位于 Model1 模块中,因此接下来运行的是 Model1 模块;在 S1 过程中会调用 S2 过程:S2 过程中设置 Form1show 来启动 From1,因此最后运行的是 Form1。8.在窗体(名称为 Form1)上画一个名称为 Text1 的文本框和

    34、一个名称为 Command1 的命令按钮,然后编写一个事件过程。程序运行后,如果在文本本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的时间过程是(分数:2.00)A.Private Sub Text1_Change() Command1Caption=”计算机等级考试” End Sub B.Private Sub Text1_Change() Caption=”计算机等级考试” End SubC.Private Sub Text1_Change() TextlCaption=”计算机等级考试” End SubD.Private Sub Text1_Chang

    35、e() Text1Text=”计算机等级考试” End Sub解析:解析:本题考查控件属性和事件代码。题目要求在文本框输入字符的时候设置命令按钮的标题属性,因此需要在文本框的 Change 事件代码设置命令按钮的 Caption 属性。9.在窗体上画一个列表框和一个命令按钮,其名称分别为 list1 和 Command1,然后编写如下事件过程: Private Sub Form load() List1Addltem”Item1”:List1Addltem”Itern2”:ListlAddltem”Item3” End Sub Private Sub Command1_Click () Lis

    36、t1List(List1ListCount)=”AAAA” End Sub 程序运行后,单击命令按钮,其结果为(分数:2.00)A.把字符串“AAAA”添加到列表框中,但位置不能确定B.把字符串“AAAA”添加到列表框的最后(即“Item3”的后面) C.把列表框原有的最后一项改为“AAAA”D.把字符串“AAAA”插入到列表框的最前面(即“Item1”的前面)解析:解析:本题考查控件的属性和方法。在窗体的 Load 事件代码里面,使用列表框的 AddItem 方法为Listl 列表框增加三项;在命令按钮的 Click 事件代码里面,此时列表框 Listl 的 ListCount 属性为 3,

    37、因此 ListlList(ListlListCount)=”AAAA”实际是 ListlList(3)=”AAAA”,即向列表框的最后添加一项。10.在窗体上画一个命令按钮,然后编写如下事件过程: Private SUb Commandl_Click For i=1 To 5 a(i)=Chr(Asc(”A”)+(i 一 1) Next i For Each b In a Print b: Next End Sub 程序运行后,单击命令按钮,输出结果是(分数:2.00)A.ABCDE B.1 2 3 4 5C.abcdeD.出错信息解析:解析:本题考查常用函数和 For 循环。在第一个循环里面

    38、,给数组 a 的元素赋值,第一个元素的值为“A”,第二个元素值为“B”,以此类推;接下来第二个 For 循环打印输出数组 a 里面的元素值。11.设窗体上有一个名为 Text1 的文本框,并编写如下程序: Private Sub Form_load0 Show Text1Text=“”:Text1SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,_shift As integerX As Single,Y As Integer) Print”程序设计” End Sub Private Sub Text_KeyDown(key

    39、Cod As Integer,_shift As Integer) Print”Visual Basic”; End Sub 程序运行后,如果在文本框中输入字母“a”,然后单击窗体,则在窗体上显示的内容是(分数:2.00)A.Visual BasicB.程序设计C.Visual Basic 程序设计 D.a 程序设计解析:解析:本题考查控件属性和事件响应。在文本框输入字母“a”会触发文本框的 KeyDown 事件,在该事件代码里面输出“Visual Basic”字符串;接下来单击窗体,会触发窗体的 MouseUp 事件,在该事件代码里面输出“程序设计”。12.假定有下表所列的菜单结构: (分数

    40、:2.00)A.Private Sub bigicon_Click() bigiconChecked=False End SubB.Private Sub bigicon_Click() MeappearbigiconChecked=True End SubC.Private Sub bigicon_Click() bigiconChecked=True End Sub D.Private Sub bigicon_Click() appearbigiconChecked=True End Sub解析:解析:本题考查菜单的基本知识。在菜单前添加一个“”这是设置菜单的 Checked 属性。13.

    41、以下能从字符串“VisualBasic”中直接取出子字符串“Basic”的函数是(分数:2.00)A.LeftB.Mid C.StringD.Instr解析:解析:本题考查常用函数。常用的字符串截取方式是 Mid、LeR 和 Right,Mid(a,M,N)功能是从a 字符串左起第 M 位下标开始取值(包含 M 位),共取 N 位字符;Right(a,M)表示从右起第一位开始取值,向左取 M 位;Left(a,N)表示从 a 字符串左起第一位开始取值,向右取 N 位。14.在菜单编辑器中建立 1 个名称为 Menu()的菜单项,将其“可见”属性设置为 False,并建立其若干子菜单,然后编写如

    42、下过程 Private Sub Form_MousDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button=1 Then PopupMenu Menu() End If End Sub 则以下叙述中错误的是(分数:2.00)A.该过程的作用是弹出一个菜单B.单击鼠标右键时弹出菜单 C.Menu()是在菜单编辑器中定义的弹出菜单的名称D.参数 X、Y 指明鼠标当前位置的坐标解析:解析:在窗体的 MouseDown 事件过程中,判断是否是鼠标左键,如果是则弹出菜单,选项 B)错误。15.设有如下的用户定义类

    43、型: Type Student Number As String:Name As String:Age As Integer End Type 则以下正确引用该类型成员的代码是(分数:2.00)A.Studentname=”李明”B.Dim S As Student Sname=”李明” C.Dim S As Type Student Sname=”李明”D.Dim s As Type Sname=”李明”解析:解析:本题考查用户定义类型,用户类型需要先定义,然后才能使用。选项 A)没有定义 Student类型的变量,错误;选项 B)先定义 Student 类型变量,然后使用,正确;选项 C)

    44、定义 Student 类犁变量s 的时候多写了 Type,错误;选项 D)定义 Student 类型变量错误。16.在窗体上画一个命令按钮和两个标签,其名称分别为 Command1、Label1 和 Label2,然后编写如下事件过程: Private Sub Command1_Click() a=0 For i=1 To 10 a=a+1:b=0 Forj=1 To 10 a=a+1:b=b+2 Nextj Label1Caption=Str(a):Label2Caption=Str(b) End Sub 程序运行后,单击命令按钮,在标签 Label1 和 Label2 中显示的内容分别是(

    45、分数:2.00)A.10 和 20B.20 和 110C.200 和 110D.110 和 20 解析:解析:本题考查循环。Commandl 的 Click 事件代码里面有两个 For 循环,而且是嵌套关系。在外层的 For 循环里面,a 增加 1,然后 b 置 0,进入内层循环,在内层循环中 a 增加 1,b 增加 2,最后输出a 和 b 的值。每次外循环的时候 b 的值清 0,然后执行内层循环,因此 b 的值就是最后一次执行内层循环后的值,内层循环执行 10 次,故 b 最后的值为 20;a 是统计循环执行的次数,内层循环执行 1010=100次,外层循环执行 10 次,故 a 最后的值为

    46、 110。17.为达到把 a、b 中的值交换后输出的目的,某人编程如下: Private Sub Commandl_Click() a=10:b=20 Call swap(a,b) Print a,b End Sub Private Sub swap(ByVal a As Integer,ByVal b As Integer) c=a:a=b:b=c End Sub 在运行时发现输出结果错了,需要修改。下面列出的错误原因和修改方案中正确的是(分数:2.00)A.调用 swap 过程的语句错误,应改为:Call swap(a,b)B.输出语句错误,应改为:print”aIt,V!b”C.过程的形

    47、式参数有错,应改为 swap(ByRef a Integer,ByRefb Integer) D.swap 中 3 条赋值语句的顺序是错误的,应改为 a=b:b=c:c=a解析:解析:本题考查函数参数传递。VB 有两种参数传递方式:传值 ByVal 和传地址 ByRef,ByVal 方式形参的修改不会影响到实参,ByRef 方式修改形参相当于修改实参。题目要求在调用 swap 过程后,修改形参影响实参,参数应该使用 ByRcf 方式。18.设有如图所示窗体和以下程序: (分数:2.00)A.文本框中无内容,焦点在文本框中 B.文本框中为“Basic”,焦点在文本框中C.文本框中为“Basic”

    48、,焦点在按钮上D.文本框中为“Visual Basic”,焦点在按钮上解析:解析:本题考查控件属性和事件过程。单击 Commandl 命令按钮,执行命令按钮的 Click 事件过程,在 Command 1 的 Click 事件过程中,设置文本框的 Text1Text 属性为“Visual Basic”。同时,由于鼠标从文本框移动到命令按钮,文本框失去焦点,触发文本框的 LostFocus 事件,在该事件代码里面,判断文本框内容是否为“BASIC”,由于在前面的 Commandl 的事件过程中设置了文本框的 Text 属性为“Visual Basic”,和“BASIC”不相等,因此该 if 判断

    49、条件成立,接下来把文本框的 Text 清空,并设置文本框获取输入焦点。19.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮,然后编写如下事件过程: Private Sub Commandl_Click() Dim I As Integer,n As Integer For i=0 T0 50 i=i+3:n=n+1 If i10 Then Exit For Next Text1Text=Str(n) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是(分数:2.00)A.2B.3 C.4D.5解析:解析:本题考查循环控件结构。在 Commandl 的 Click 事件过程中,变量 I 是循环控制变量,变量n 记录循环的次数。在 For 循环中,i 每次增加 3,n 增加 1,接下来通过 if 判断 i 是否大于 10,如果大于 10 则结束循环。I 和 n 的变化过程为:3 和 1、7 和 2、11 和 3,当 I 为 11 时,if 条件成立循环结束。2


    注意事项

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




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

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

    收起
    展开