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

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

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

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

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

    1、二级 VISUAL+BASIC-32-2 及答案解析(总分:65.00,做题时间:90 分钟)一、B1 基本操作题/B(总题数:1,分数:15.00)1.在名称为 Form1 的窗体上添加一个名称为 Image1 的图像框,其高、宽分别为 1900、1700,通过属性窗口把考生文件夹下的图像文件 pic1. bmp 载入图像框;再画两个命令按钮控件,名称分别为 C1、C2,标题分别为“放大”、“缩小”,如图所示。 要求: 请编写适当的事件过程,程序运行后,如果单击“放大”按钮,则将图像框的高度、宽度均增加 100;单击“缩小”按钮,则将图像框的高度、宽度均减少 100,要求程序中不得使用任何变

    2、量。 (分数:15.00)_二、B2 简单应用题/B(总题数:1,分数:20.00)2.在考生文件夹中有一个工程文件 sj3.vbp 和一个窗体文件 sj3.frm;窗体上有一个名为 Text1 的文件框,一个标题为“计算”,名称为 Command1 的命令按钮和一个组合框。请在名为 Combo1 的组合框中输入 3 个列表项:“5”、“9”、“13”(列表项的顺序不限,但必须是这 3 个数字),程序运行情况如下图所示。 请编写适当的事件过程,使得程序运行时,在组合框中选定一个数字后,单击“计算”按钮,则计算4000 以内能够被该数整除的所有数之和,并放人 Text1 中。最后按原文件名存盘(

    3、提示:由于计算结果较大,应使用长整型变量)。 注意:不得修改窗体文件中已经存在的程序,在结束程序运行之前,必须至少进行一次计算。必须用窗体右上角的关闭按钮结束程序,否则无成绩。 (分数:20.00)_三、B3 综合应用题/B(总题数:1,分数:30.00)3.在名称为 Form1 的窗体上建立一个文本框,名称为 Text1,可以多行显示文本,具备垂直滚动条,再建立两个命令按钮,名称分别为 Cmd1 和 Cmd2,标题分别为“读入数据”和“计算保存”。要求程序运行后,如果单击“读入数据”按钮,则读入 in010。txt 文件中的 100 个整数,放入一个数组中,数组下界为1。同时在文本框中显示出

    4、来。如果单击“计算保存”按钮,则计算小于或等于 100 的所有数之和,并把求和结果在文本框 Text1 中显示出来,同时把该结果存入考生文件夹中的文件 out010.txt 中。在考生文件夹下有标准模块文件 mode010.bas 添加到自己的工程中,直接调用此过程。 注意: 文件必须存放在考生文件夹下,窗体文件名为 djks010.frm,工程文件名为 djks010.vbp,计算结果存入 out010.txt 文件,否则没有成绩。程序运行时的窗体界面如下图所示。 (分数:30.00)_二级 VISUAL+BASIC-32-2 答案解析(总分:65.00,做题时间:90 分钟)一、B1 基本

    5、操作题/B(总题数:1,分数:15.00)1.在名称为 Form1 的窗体上添加一个名称为 Image1 的图像框,其高、宽分别为 1900、1700,通过属性窗口把考生文件夹下的图像文件 pic1. bmp 载入图像框;再画两个命令按钮控件,名称分别为 C1、C2,标题分别为“放大”、“缩小”,如图所示。 要求: 请编写适当的事件过程,程序运行后,如果单击“放大”按钮,则将图像框的高度、宽度均增加 100;单击“缩小”按钮,则将图像框的高度、宽度均减少 100,要求程序中不得使用任何变量。 (分数:15.00)_正确答案:(考点分析本题考点有:图像框的 Name、Width、Height、P

    6、icture 和 Stretch 属性,命令按钮的 Name、Caption 属性。解题思路图像框(Image)控件的 Picture 属性用于在设计阶段时装载在图像框中显示的图片,它的 Stretch(自动伸缩)属性用来设定载入其中的图片是否需要自动调整,以适应图像框的大小。图像框的宽和高分别由其Width 属性和 Height 属性设置。本题要在单击按钮时实现“放大”或“缩小”的功能,应在程序中动态设置图像框大小(宽和高),即在其原来基础上增加或减小图像框的宽和高。操作步骤步骤 1:新建一个窗体,按照题目要求建立控件并设置图像框相应属性,如图所示。* 步骤 2:按照步骤 1 设置其他控件相

    7、关属性,程序中涉及的控件及属性见表。 控件 图像框 命令按钮 1 命令按钮 2属性 Name WidthHeightPictureStretchNameCaptionNameCaption设置值 Imagel1700 1900 piclbmpTrue C1 放大 C2 缩小步骤 3:打开代码编辑窗口,在指定位置编写如下代码。参考答案Private Sub C1_ Click()当单击“放大“按钮时,依次将 Image1 的高与宽分别加 100Image1.Height=Image1.Height+100Image1.Width=Image1.Width+100End SubPrivate Su

    8、b C2_Click()当单击“缩小“按钮,则依次将 Image1 的高与宽分别减 100Image1.Height=Image1.Height-100Image1.Width=Image1.Width-100End Sub步骤 4:调试并运行程序,关闭程序后按题目要求存盘。)解析:二、B2 简单应用题/B(总题数:1,分数:20.00)2.在考生文件夹中有一个工程文件 sj3.vbp 和一个窗体文件 sj3.frm;窗体上有一个名为 Text1 的文件框,一个标题为“计算”,名称为 Command1 的命令按钮和一个组合框。请在名为 Combo1 的组合框中输入 3 个列表项:“5”、“9”

    9、、“13”(列表项的顺序不限,但必须是这 3 个数字),程序运行情况如下图所示。 请编写适当的事件过程,使得程序运行时,在组合框中选定一个数字后,单击“计算”按钮,则计算4000 以内能够被该数整除的所有数之和,并放人 Text1 中。最后按原文件名存盘(提示:由于计算结果较大,应使用长整型变量)。 注意:不得修改窗体文件中已经存在的程序,在结束程序运行之前,必须至少进行一次计算。必须用窗体右上角的关闭按钮结束程序,否则无成绩。 (分数:20.00)_正确答案:(组合框(ComboB0x)将文本框与列表框的特性组合在一起,既可在组合框的文本框部分输入信息,也可在列表框部分选择项目;组合框的列表

    10、项可以在设计阶段通过其 List 属性加入,加入时注意每输入完一项后,按Ctrl+Enter组合键换行再输入下一项,也可以通过代码设置,AddItem 方法用来向组合框中添加一个表项,其格式为:组合框Additem 列表项索引。 题目给出的源程序中已设计好窗体,只需在 Combo1 的 List 属性中添加“5”、“9”、“13”三个列表项,添加完成后,双击 Command1进入代码窗口,补充后的代码如下: Private Sub Command1_Click() If Combo1.Text=5 Then divide(5) Else If Combo1.Text=9 Then divide

    11、(9) Else divide(U13/U) End If End Sub Private Sub divide(X As Integer) Dim i As Integer Dim temp As ULong/U For i=1 To 4000 If i Mod Ux/U=0 Then temp=temp+i End If Next i Text1.Text=temp End Sub 单击*按钮运行程序,并按要求保存。)解析:三、B3 综合应用题/B(总题数:1,分数:30.00)3.在名称为 Form1 的窗体上建立一个文本框,名称为 Text1,可以多行显示文本,具备垂直滚动条,再建立两

    12、个命令按钮,名称分别为 Cmd1 和 Cmd2,标题分别为“读入数据”和“计算保存”。要求程序运行后,如果单击“读入数据”按钮,则读入 in010。txt 文件中的 100 个整数,放入一个数组中,数组下界为1。同时在文本框中显示出来。如果单击“计算保存”按钮,则计算小于或等于 100 的所有数之和,并把求和结果在文本框 Text1 中显示出来,同时把该结果存入考生文件夹中的文件 out010.txt 中。在考生文件夹下有标准模块文件 mode010.bas 添加到自己的工程中,直接调用此过程。 注意: 文件必须存放在考生文件夹下,窗体文件名为 djks010.frm,工程文件名为 djks0

    13、10.vbp,计算结果存入 out010.txt 文件,否则没有成绩。程序运行时的窗体界面如下图所示。 (分数:30.00)_正确答案:(第一步:单击考试界面的“功能”选项,从弹出的荣单中选择“启动应用程序”选项。Visual Basic 启动后,新建一个工程文件。打开考生文件夹下的 Mode010.bas 文件。 第二步:单击工具箱的命令按钮,在窗体上拖拉出两个命令按钮,Name 属性分别为 Cmd1 和 Cmd2,Caption 属性分别为“读入数据”和“计算保存”。再单击工具箱中的文本框控件,Name 属性为 Text1,Text 属性为空,ScrollBars 属性为 2,MultiL

    14、ine 属性为 True。 第三步:双击窗体的任何部分,进入程序编写窗口,补充程序如下: 在窗体模块中编写如下代码: 1 Option Explicit 2 Option Base 1 3 Dim t a(100) 4 Dim i As Integer 5 Dim n As Integer 6 Dim f As Integer 7 Dim s As Long 8 Private Sub Cmd1 Click( ) 9 Open App Path &“/in010.txt“For Input As #1 10 For i=1 To 100 11 Input #1, n 12 a(i)=n 13

    15、Text1.Text=Text1. Text &a(i) &“ 14 Next i 15 Close #1 16 End Sub 17 Private Sub Cmd2 Click( ) 18 For i=1 To 100 19 If a(i)=100 Then s=s+a(i) 20 Next i 21 Call WriteData(“out010.txt“,s) 22 Text1.Text=s 23 End Sub 第四步:填写完毕,调试程序,确定无误后,将工程与窗体按照 djks010 的文件名保存在考生文件夹下,并执行一次操作,将程序运行得到的结果存到考生文件夹的 out010.txt

    16、 文件中。)解析:解析 Visual Basic 中文件的打开方式主要有 Output、Append、Input、Random 等几种方式。Output、Append、Input 方式打开的文件进行的读写操作都是以顺序方式进行的。其中 Output、Append打开的文件主要用来输出数据,与 Print #、Write #等方法配合使用;以 Input 方式打开的文件主要用来输入数据它与 Input#与 Line Input#语句配合使用。本题的 Cmd1 的事件过程中,使用 Input 语句读入数据,由于 Input 读入数据时按照数据项来读入,这一点与 Line Input 不同,故可以使用 For 循环来逐一接收读入的数据项,并将这些数据项逐一赋给一个数组。本题赋给了数组 a。在 Cmd2 的事件过程中,再次使用 For 循环逐一判断 a 数组中的元素,使得该元素小于等于 100 的时候就累加到 s 中,最后调用窗体模块中 WriteData 过程,保存结果。 可见,数据项的读入与 For 循环联系紧密。特别是当读入一组数据并将这组数据赋给一个数组时,使用 For 循环相当方便。


    注意事项

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




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

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

    收起
    展开