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

    【计算机类职业资格】二级VISUAL+BASIC-85及答案解析.doc

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

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

    【计算机类职业资格】二级VISUAL+BASIC-85及答案解析.doc

    1、二级 VISUAL+BASIC-85 及答案解析(总分:98.00,做题时间:90 分钟)一、选择题(总题数:35,分数:70.00)1.执行如下语句: a=InputBox(“Today“,“Tomorrow“,“Yesterday”,“Day before yesterday“,5) 将显示一个对话框,在对话框的输入区中显示的信息是_。(分数:2.50)A.TodavB.TomorrowC.YesterdayD.Day before yesterday2.编写如下程序: Private Sub Command1_Click() Dim a(3, 3) As Integer, s As In

    2、teger For i=1 To 3 For j=1 To 3 a(i, j)=i*j+i Next j Next i s=0 For i=1 To 3 s=s+a(i, 4-i) Next i Print s End Sub 程序运行后,单击命令按钮 Command1,输出结果为(分数:2.50)A.7B.13C.16D.203.下列程序执行后,其输出结果为 _ 。 Dim a(5) For i=0 To 4 a(i)=i+1 m=i+1 If m=3 Then a(m-1)=a(i-2)Else a(m)=a(i) If i=2 Then a(i-1)=a(m-3) a(4)=i Prin

    3、t a(i); Next i(分数:2.00)A.1 1 1 4 4B.1 2 3 4 1C.1 2 1 4 4D.1 1 1 4 14.有如下程序: Option Base 1 Private Sub Form Click() Dim arr,Sum Sum =0 arr=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后,单击窗体,输出结果为(分数:2.00)A.25B.26C.27D.285.

    4、下列程序的执行结果为_。 (分数:2.00)A.150B.200C.50D.56.下列说法正确的是_。(分数:2.50)A.窗体的属性包括 Name、Caption、Height、Visible、Paint 等B.窗体是 Visual Basic 的一个控件C.窗体的所有属性都可以在运行阶段设置D.窗体相当于一个容器,可以把其他控件放在其上7.对于如下图所示的二叉树,其后序遍历序列是_。 (分数:2.00)A.ABDECFGB.DEBAFCGC.DEBFGCAD.GFCEBDA8.在一个工程的窗体中有如下代码: Public x As Integer Private Sub Form_Load

    5、() Dim y As Integer End Sub 在该工程的标准模块的声明部分有如下代码: Public a As Integer Private b As Integer 关于上述代码,以下叙述中错误的是_。(分数:2.00)A.变量 x 的作用域是整个工程B.变量 y 的作用域是 Form_Load 过程C.变量 a 的作用域是整个工程D.变量 b 的作用域是整个标准模块9.关于水平滚动条,如下叙述中错误的是_。(分数:2.50)A.当滚动框的位置改变时,触发 Change 事件B.当拖动滚动条中的滚动框时,触发 Scroll 事件C.LargeChange 属性是滚动条的最大值D.

    6、Value 是滚动条中滚动框的当前值10.在 E-R 图中,用来表示实体联系的图形是_。(分数:2.50)A.椭圆形B.矩形C.菱形D.三角形11.在窗体上画一个名称为 Command1 的命令按钮,然后编写如下代码: Option Base 1 Function Fun(a()As Integer) Sum=0 For i=1 To 3 For J=1 To 3 Sum=Sum+a(i,j) Next j Next j Fun=Sum End Function Private Sub Command1_Click() Dim arr(3,3)As Integer For i=1 To 3 F

    7、or j=1 To 3 If i=j Then arr(i,j)=1 End If If ij Then arr(i,j)=j End If Next j Next i x=Fun(arr() Print x End Sub 程序运行后,单击命令按钮,输出结果为(分数:2.50)A.10B.15C.20D.3012.在软件设计中,不属于过程设计工具的是_。(分数:2.00)A.PDL(过程设计语言)B.PAD 图C.N-S 图D.DFD 图13.以下程序的功能是随机产生 10 个两位的整数: Option Base 1 Private Sub Command1_Click() Dim a(10

    8、) As Integer, i As Integer Randomize For i=1 To 10 a(i)=Int(Rnd*100)+1 Print a(i) Next i End Sub 运行以上程序,发现有错误,需要对产生随机数的语句进行修改。以下正确的修改是(分数:2.00)A.a(i)=Int(Rnd*100)B.a(i)=Int(Rnd*90)+10C.a(i)=Int(Rnd*100)+10D.a(i)=Int(Rnd*101)14.下列与拖放操作无关的是(分数:2.50)A.KeyPress 事件B.Drag 方法C.DragOver 事件D.DragDrop 事件15.为了

    9、在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设置为 True,这个属性是(分数:2.00)A.ValueB.CancelC.EnabledD.Default16.如果在 C 盘当前文件夹下已存在名为 StuData.dar 的顺序文件,那么执行语句 Open“C: StuData.dar” For Append As #1 之后将_ 。(分数:2.00)A.删除文件中原有内容。B.保留文件中原有内容,可在文件尾添加新内容。C.保留文件中原有内容,在文件头开始添加新内容。D.以上均不对。17.设窗体上有 3 个图像框:Image1、Image2、Image3,并有下面的程

    10、序代码: Private Sub Form_Load() Image1.Picture=LoadPicture(“LEAF.bmp“) Image2.Picture=LoadPicture(“OPEN.bmp“) Image3.Visible=False End Sub Private Sub Image1_Click() Image2.Picture=Image1.Picture End Sub Private Sub Image2_Click() Image3.Picture=Image2.Picture Image2.Picture=Image1.Picture Image1.Pictu

    11、re=Image3.Picture End Sub 在程序运行期间单击 Image2,则在窗体上看到的结果是(分数:2.50)A.在 Image3 中显示 Image2 中的图片B.Image1、Image2 中原有图片被交换了C.Image1、Image2 中都是原来 Imege1 中的图片D.Image1、Image2 中都是原来 Imege2 中的图片18.窗体上有一个 Text1 文本框、一个 Command1 命令按钮,并有以下程序: Private Sub Command1_Click() Dim n If Text1.Text“123456“ Then n=n+1 Print “

    12、口令输入错误“ Next m End Sub Function proc(i As Integer) Dim a As Integer Static b As Integer a=a+1 b=b+1 proc=a*b+i End Function 程序运行后,单击命令按钮 Command1,输出结果为_。(分数:1.00)A.3 3 3B.3 4 5C.3 5 6D.1 2 323.求 1!+2!+10!的程序如下: Private Function s(x As Integer) f=1 For i=1 To x f=f*i Next s=f End Function Private Sub

    13、 Command1_Click() Dim i As Integer, y As Long For i=1 To 10 _ Next Print y End Sub 为实现功能要求,程序的括号中应该填入的内容是(分数:3.00)A.Call s(i)B.Call sC.y=y+s(i)D.y=y+s24.窗体上有两个水平滚动条 HV、HT,还有一个文本框 Text1 和一个标题为“计算”的命令按钮Commandl,并编写了以下程序: (分数:2.00)A.过程调用语句不对,应为 calc(HV,HT)B.过程定义语句的形式参数不对,应为 Sub calc(x As Control,yAs Co

    14、ntrol)C.计算结果在文本框中显示出来D.程序不能正确运行25.如果一个正整数从高位到低位上的数字依次递减,则称其为降序数(如 9632 是降序数,而 8516 则不是降序数)。现编写如下程序,判断输入的正整数是否为降序数。 Private Sub Command1_Click() Dim n As Long Dim flag As Boolean n=InputBox(“输入一个正整数“) s=Trim(Str(n) For i=2 To Len(s) If Mid(s,i -1,1)Mid(s,i,1)Then Exit For Next i IF i=Len(s)Then flag=

    15、True Else flag= False If flag Then Print n;“是降序数“ Else Print n;“不是降序数“ End If End Sub 运行以上程序,发现有错误,需要对给 flag 变量赋值的 If 语句进行修改。以下正确的修改是_。(分数:2.00)A.Ifi=Len(s)+1 Then flag=False Else flag=TrueB.If i=Len(s)+1 Then flag=True Else flag=FalseC.If i=Len(s)-1 Then flag=False Else flag=TrueD.If i=Len(s)-1 The

    16、n flag=True Else flag=False26.如果 x 为整数且|x|=100,则打印“OK”,否则打印“Error”,表示这个条件的单行格式 If 语句是_。(分数:2.00)A.If Int(x)=x And Sqr(x)=100 Then Print “OK“ Else Print “Error“B.If Fix(x)=x And Abs(x)=100 Then Print “OK“ Else Print “Error“C.If Int(x)=x And(x=100,x=-i00)Then Print “OK“ Else Print “Errort“D.If Fix(x)=

    17、x And x=100 And x=-100 Then Print “OK“ Else Print “Error“27.阅读程序: Private Sub Form_Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub 程序运行后,单击窗体,输出结果是_。(分数:2.50)A.105B.1C.120D.1528.下列程序段的执行结果为 _。 X=5 Y=-20 If Not X0 Then X=Y-3 Else YX+3 Print X-Y;Y-X(分数:1.00)A.-3 3B.5 -8C.3 -3D.25 -2529.在数

    18、据管理技术发展过程中,文件系统与数据库系统的主要区别是数据库系统具有 _。(分数:1.00)A.数据无冗余B.数据可共享C.专门的数据管理软件D.特定的数据模型30.算法的有穷性是指 _ 。(分数:2.00)A.算法程序的运行时间是有限的B.算法程序所处理的数据量是有限的C.算法程序的长度是有限的D.算法只能被有限的用户使用31.下面不属于软件需求分析阶段主要工作的是_。(分数:1.00)A.需求变更申请B.需求分析C.需求评审D.需求获取32.设 Label1、Command1、Text1、Check1 分别为标签、命令按钮、文本框、复选框的名称,则以下属性设置语句中,运行时不会出错的是(分

    19、数:1.00)A.Label1.BackStyle=2B.Command1.Style=1C.Text1.ScrollBars=4D.Check1.Value=233.以下叙述中错误的是_。(分数:3.00)A.Visual Basic 是事件驱动型可视化编程工具B.Visual Basic 应用程序不具有明显的开始和结束语句C.Visual Basic 工具箱中的所有控件都具有宽度(Width)和高度(Height)属性D.Visual Basic 中控件的某些属性只能在运行时设置34.以下关于图片框控件的说法中,错误的是_。(分数:1.00)A.可以通过 Print 方法在图片框中输出文本

    20、B.图片框控件中的图形可以在程序运行过程中被清除C.图片框控件中可以放置其他控件D.用 Stretch 属性可以自动调整图片框中图形的大小35.在窗体上画个名称为 Text1 的文本框,并编写如下程序: Private Sub Form_Load() Show Text1.Text=“ “ Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) Print “程序设计“ End Sub Private Sub Text1_KeyDown

    21、(KeyCode As Integer,Shift As Integer) Print “Visual Basic“; End Sub 程序运行后,如果按 A 键,然后单击窗体,则窗体上显示的内容是 _。(分数:1.00)A.Visual BasicB.程序设计C.A 程序设计D.Visual Basic 程序设计二、填空题(总题数:15,分数:28.00)36.在窗体上画一个文本框,名称为 Text1,然后编写如下程序: Private Sub Form_Load() Open“d:/temp/dat.txt“For Output As#1 Text1.Text:“” End Sub Pri

    22、vate Sub Text1_KeyPress(KeyAscii As Integer) If _ 1_ =13 Then If UCase(Text1.Text1= _ 2_ Then Close#1 End Else Write#1, _ 3_ Text1.Text=“” End If End If End Sub 以上程序的功能是,在 D 盘 temp 目录建立 1 个名为 dat.txt 的文件,在文本框中输入字符,每次按回车键(回车符的 ASC码是 13)都把当前文本框中的内容写入文稿件 dat.txt,并清除文本框中的内容;如果输入“END”,则结束程序。请将程序补充完整。 (分数

    23、:2.00)37.能够将文本框控件隐藏起来的属性是 1。 (分数:2.00)38.在程序设计语言中,重复结构对应两类循环语句,对先执行循环体后判断的称为 1 循环结构。 (分数:2.00)39.由 Array 函数建立的数组的名字必须是 _ 1_ 类型。 (分数:2.00)40.如果在立即窗口中执行下列操作: a=8 b=9 print(ab); 则输出结果是 1。 (分数:2.00)41.有序线性表进行二分查找的前提是该线性表必须是 _ 1_ 存储的。 (分数:2.00)42.用户可以用 _ 1_ 语句定义自己的数据类型。 (分数:1.00)43.下列程序弹出对话框中按钮的个数为 1。 Ms

    24、gBox“确认!“,vbAbortRetryignore+vbMsgBoxHelpButton+vbinformation,“提示:“ (分数:2.00)44.在面向对象方法中一个对象请求另一个对象为其服务是通过发送 1 来完成的。 (分数:2.00)45.执行下面程序,第一行输出结果是 _ 1_ ,第二行输出结果是 _ 2_ 。 Option Explicit Private Sub Form_Click( ) Dim A As Integer A=2 Call Sub1 (A) End Sub Private Sub1 (x As Integer) x=x*2+1 If x10 Then

    25、Call Sub1(x) End If x=x,2+1 Print x End Sub (分数:1.00)46.一个变量未被显示定义,末尾也没有类型说明符,则该变量的隐含类型是上 1 类型。 (分数:2.00)47.运行下列程序: Dim t As Integer Private Sub Form_Click() t = 2 x=Val(InputBox(“输入一个整数 5“) Print funl(x); t End Sub Private Function fun1(y) If y0 Then fun1 = 1: t=10 Else If y=0 Then fun1 = 0: t=20 E

    26、lse fun1 = -1: t=30 End If End Function 从键盘为变量 x 输入数据 5,输出的结果是 _ 1_ 。 (分数:1.00)48.函数 Int(Rnd*10)+10 的值的范围是 _ 1_ 。 (分数:2.00)49.窗体上有名称为 Command1 的命令按钮事件过程及 2 个函数过程如下: Private Sub Command1_Click() Dim x As Integer,y As Integer,z x=3 y=5 z=fy(y) Print fx(fx(x),y End Sub Function fx(ByVal a As Integer) a

    27、=a+a fx=a End Function fy=a Function fy(ByRef a As Integer) a=a+a fy=a End Function 运行程序,并单击命令按钮,则窗体上显示的 2 个值依次是 1 和 2。 (分数:4.00)50.下面的程序用“冒泡”法将数组 a 中的 10 个整数按升序排列,请将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim a a=Array(678,45,324,528,439,387,87,875,273,823) For i= _ 1_ For j= _ 2_ If a(i

    28、) _ 3_ a(j)Then a1=a(i) a(i)=a(j) a(j)=a1 End If Next j Next i For i=1 To 10 Print a(i) Next i End Sub (分数:1.00)二级 VISUAL+BASIC-85 答案解析(总分:98.00,做题时间:90 分钟)一、选择题(总题数:35,分数:70.00)1.执行如下语句: a=InputBox(“Today“,“Tomorrow“,“Yesterday”,“Day before yesterday“,5) 将显示一个对话框,在对话框的输入区中显示的信息是_。(分数:2.50)A.TodavB.

    29、TomorrowC.Yesterday D.Day before yesterday解析:解析 InputBox 函数的功能是显示一个对话框,该对话框能接收用户输入的数据。语法格式为: InputBox(prompt,title,default,xpos,ypos,hlelpfile,context) InputBox 函数的语法具有以下几个命令参数: prompt 必要的。作为对话框消息出现的字符串表达式。prompt 的最大长度大约是 1024 个字符,由所用字符的宽度决定。如果 pronpt 包含多个行,则可在各行之间用回车符(Chr(13)、换行符(Chr(10)或回车换行符的组合(C

    30、hr(13) Next i(分数:2.00)A.1 1 1 4 4B.1 2 3 4 1C.1 2 1 4 4 D.1 1 1 4 1解析:解析 本题考查数组元素的赋值。数组 a 在循环中为数据赋值。循环变量 i 从 0 到 4,步长为 1。如果 i 等于 2,则将 a(0)的值赋给 a(2);如果 m 等于 3,则将 a(0)的值赋给 a(1)。因此数组元素的值为:1 2 1 4 4。4.有如下程序: Option Base 1 Private Sub Form Click() Dim arr,Sum Sum =0 arr=Array(1,3,5,7,9,11,13,15,17,19) Fo

    31、r i=1 To 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后,单击窗体,输出结果为(分数:2.00)A.25B.26C.27 D.28解析:解析 本题考查“/”与“/”的区别。“/”是浮点除法运算符,而“/”是整数除法运算符。比如:6/4=1.5,而 6/4=1。这两个运算符的差别是考试重点,容易混淆,务必掌握。题目程序的功能实际上是对数组中能被 3 整除的元素求和,即 3+9+15。27,故选项 C 正确。5.下列程序的执行结果为_。 (分数:2.00)A.150B.200

    32、C.50D.5 解析:解析 本题的难点是在循环体内的赋值问题。由于 int sum=0 在循环体内,每次循环都被赋值为0,事实上 int sum 的值为循环变量 i 的最后一次值。6.下列说法正确的是_。(分数:2.50)A.窗体的属性包括 Name、Caption、Height、Visible、Paint 等B.窗体是 Visual Basic 的一个控件C.窗体的所有属性都可以在运行阶段设置D.窗体相当于一个容器,可以把其他控件放在其上 解析:7.对于如下图所示的二叉树,其后序遍历序列是_。 (分数:2.00)A.ABDECFGB.DEBAFCGC.DEBFGCA D.GFCEBDA解析:

    33、8.在一个工程的窗体中有如下代码: Public x As Integer Private Sub Form_Load() Dim y As Integer End Sub 在该工程的标准模块的声明部分有如下代码: Public a As Integer Private b As Integer 关于上述代码,以下叙述中错误的是_。(分数:2.00)A.变量 x 的作用域是整个工程 B.变量 y 的作用域是 Form_Load 过程C.变量 a 的作用域是整个工程D.变量 b 的作用域是整个标准模块解析:解析 Visual Basic 中变量按作用域分为 3 类。局部变量:在过程内用 Dim

    34、语句或 Static 语句声明的变量,只能在本过程中使用。窗体/模块级变量:在“通用声明”段中用 Dim 语句或 Private 语句声明的变量,可被本窗体/模块的任何过程访问。全局变量:在“通用声明”段中用 Public 语句声明的变量,可被本应用程序的任何过程或函数访问。9.关于水平滚动条,如下叙述中错误的是_。(分数:2.50)A.当滚动框的位置改变时,触发 Change 事件B.当拖动滚动条中的滚动框时,触发 Scroll 事件C.LargeChange 属性是滚动条的最大值 D.Value 是滚动条中滚动框的当前值解析:解析 LargeChange 属性值是单击滚动块和左右两端箭头之

    35、间空白的地方时,Value 增加或减少的量,Small 属性值才是滚动条的最大值。故 C 选项错误。10.在 E-R 图中,用来表示实体联系的图形是_。(分数:2.50)A.椭圆形B.矩形C.菱形 D.三角形解析:解析 E-R 图即实体一联系图(Entily Relationship Diagram),提供了表示实体型、属性和联系的方法,用来描述现实世界的概念模型,构成 E-R 图的基本要素是实体型、属性和联系,其表示方法为:实体型(Entity):用矩形表示,矩形框内写明实体名;属性(Attribute):用椭圆形表示,并用无向边将其与相应的实体连接起来;联系(Relationship):用

    36、菱形表示,菱形框内写明联系名,并用无向边分别与有关实体连接起来,同时在无向边旁标上联系的类型(1:1,1:n 或 m:n)。11.在窗体上画一个名称为 Command1 的命令按钮,然后编写如下代码: Option Base 1 Function Fun(a()As Integer) Sum=0 For i=1 To 3 For J=1 To 3 Sum=Sum+a(i,j) Next j Next j Fun=Sum End Function Private Sub Command1_Click() Dim arr(3,3)As Integer For i=1 To 3 For j=1 To

    37、 3 If i=j Then arr(i,j)=1 End If If ij Then arr(i,j)=j End If Next j Next i x=Fun(arr() Print x End Sub 程序运行后,单击命令按钮,输出结果为(分数:2.50)A.10B.15 C.20D.30解析:12.在软件设计中,不属于过程设计工具的是_。(分数:2.00)A.PDL(过程设计语言)B.PAD 图C.N-S 图D.DFD 图 解析:13.以下程序的功能是随机产生 10 个两位的整数: Option Base 1 Private Sub Command1_Click() Dim a(10)

    38、 As Integer, i As Integer Randomize For i=1 To 10 a(i)=Int(Rnd*100)+1 Print a(i) Next i End Sub 运行以上程序,发现有错误,需要对产生随机数的语句进行修改。以下正确的修改是(分数:2.00)A.a(i)=Int(Rnd*100)B.a(i)=Int(Rnd*90)+10 C.a(i)=Int(Rnd*100)+10D.a(i)=Int(Rnd*101)解析:解析 随机数函数 Rnd 的功能是用于产生一个小于 1 但大于或等于 0 的随机数。为了生成某个指定范围内的随机整数,可使用以下公式:Int(up

    39、perbound-lowerbound+1)*Rnd+lowerbound),其中upperbound 是随机整数范围的上限,lowerbound,随机整数范围的下限。本题中 upperbound 为99,lowerbound 为 10。14.下列与拖放操作无关的是(分数:2.50)A.KeyPress 事件 B.Drag 方法C.DragOver 事件D.DragDrop 事件解析:15.为了在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设置为 True,这个属性是(分数:2.00)A.ValueB.CancelC.EnabledD.Default 解析:解析 考查按钮

    40、控件的 Default 属性。 按扭控件 Default 属性用来确定窗体的缺省命令按钮。用户可以按:Enter。键选择该按钮(激活其单击事件)。 按钮控件的 Caneel 属性。16.如果在 C 盘当前文件夹下已存在名为 StuData.dar 的顺序文件,那么执行语句 Open“C: StuData.dar” For Append As #1 之后将_ 。(分数:2.00)A.删除文件中原有内容。B.保留文件中原有内容,可在文件尾添加新内容。 C.保留文件中原有内容,在文件头开始添加新内容。D.以上均不对。解析:17.设窗体上有 3 个图像框:Image1、Image2、Image3,并有

    41、下面的程序代码: Private Sub Form_Load() Image1.Picture=LoadPicture(“LEAF.bmp“) Image2.Picture=LoadPicture(“OPEN.bmp“) Image3.Visible=False End Sub Private Sub Image1_Click() Image2.Picture=Image1.Picture End Sub Private Sub Image2_Click() Image3.Picture=Image2.Picture Image2.Picture=Image1.Picture Image1.P

    42、icture=Image3.Picture End Sub 在程序运行期间单击 Image2,则在窗体上看到的结果是(分数:2.50)A.在 Image3 中显示 Image2 中的图片B.Image1、Image2 中原有图片被交换了 C.Image1、Image2 中都是原来 Imege1 中的图片D.Image1、Image2 中都是原来 Imege2 中的图片解析:解析 本题中在窗体的 Load 事件中将 Image3 设置为不可见,然后在 Image1 的单击事件中将Image2 中的图片放到 Image1 中;在 Image2 的单击事件中使用 Image3 作为中间控件完成了Im

    43、age1、Image2 中原有图片的交换。18.窗体上有一个 Text1 文本框、一个 Command1 命令按钮,并有以下程序: Private Sub Command1_Click() Dim n If Text1.Text“123456“ Then n=n+1 Print “口令输入错误“ Next m End Sub Function proc(i As Integer) Dim a As Integer Static b As Integer a=a+1 b=b+1 proc=a*b+i End Function 程序运行后,单击命令按钮 Command1,输出结果为_。(分数:1.

    44、00)A.3 3 3B.3 4 5 C.3 5 6D.1 2 3解析:解析 变量 b 定义为 Static 即静态变量,它的特点是每次调用都会保留上次的值。程序 click 事件中调用了 3 次 proc(n),即 proc(2): 第一次,a=a+1=0+1=1,b=b+1=0+1=1,proc=a*b+i=1*1+2=3; 第二次,a=a+1=0+1=1,b=b+1=1+1=2,proc=a*b+i=1*2+2=4; 第三次,a=a+1=0+1=1,b=b+1=2+1=3,proc=a*b+i=1*3+2=5; 因此输出结果为 3 4 5。23.求 1!+2!+10!的程序如下: Priv

    45、ate Function s(x As Integer) f=1 For i=1 To x f=f*i Next s=f End Function Private Sub Command1_Click() Dim i As Integer, y As Long For i=1 To 10 _ Next Print y End Sub 为实现功能要求,程序的括号中应该填入的内容是(分数:3.00)A.Call s(i)B.Call sC.y=y+s(i) D.y=y+s解析:解析 函数过程有一个返回值,一般出现在表达式中组成表达式的一部分。本题的题目要求累加各个数的阶乘,而函数 s 的作用是求参

    46、数的阶乘,因此应该在每次循环中累加 f 函数的值,参数为循环变量 i。24.窗体上有两个水平滚动条 HV、HT,还有一个文本框 Text1 和一个标题为“计算”的命令按钮Commandl,并编写了以下程序: (分数:2.00)A.过程调用语句不对,应为 calc(HV,HT)B.过程定义语句的形式参数不对,应为 Sub calc(x As Control,yAs Control)C.计算结果在文本框中显示出来 D.程序不能正确运行解析:解析 访问滚动条控件的值,可以直接使用控件的名称,也可以在名称后面指明 Value 属性。滚动条位置是用数值来表示的,因此定义 Calc 过程时参数应该定义为

    47、Integer 类型。程序中,Text1.Text=x*y 语句说明计算的结果在文本框中显示出来。25.如果一个正整数从高位到低位上的数字依次递减,则称其为降序数(如 9632 是降序数,而 8516 则不是降序数)。现编写如下程序,判断输入的正整数是否为降序数。 Private Sub Command1_Click() Dim n As Long Dim flag As Boolean n=InputBox(“输入一个正整数“) s=Trim(Str(n) For i=2 To Len(s) If Mid(s,i -1,1)Mid(s,i,1)Then Exit For Next i IF

    48、i=Len(s)Then flag=True Else flag= False If flag Then Print n;“是降序数“ Else Print n;“不是降序数“ End If End Sub 运行以上程序,发现有错误,需要对给 flag 变量赋值的 If 语句进行修改。以下正确的修改是_。(分数:2.00)A.Ifi=Len(s)+1 Then flag=False Else flag=TrueB.If i=Len(s)+1 Then flag=True Else flag=False C.If i=Len(s)-1 Then flag=False Else flag=True

    49、D.If i=Len(s)-1 Then flag=True Else flag=False解析:解析 本题中如果输入的数据满足降序数,则 For 循环会一直执行到条件不再满足,而不会中途退出循环,这时 i 的值应该是 Len(s)+1,也就是说,如果 i 的值是 Len(s)+1 则该数是降序数,flag 的值为 True,否则为 False。本题答案为 B。26.如果 x 为整数且|x|=100,则打印“OK”,否则打印“Error”,表示这个条件的单行格式 If 语句是_。(分数:2.00)A.If Int(x)=x And Sqr(x)=100 Then Print “OK“ Else


    注意事项

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




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

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

    收起
    展开