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

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

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

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

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

    1、二级 VISUAL+BASIC 机试-119 及答案解析(总分:100.00,做题时间:90 分钟)一、基本操作题(总题数:1,分数:30.00)完成下列问题:(分数:30.00)(1).在名称为 Form1 的窗体上画一个名称为 Drive1 的驱动器列表框、一个名称为 Dir1 的目录列表框,一个名称为 File1 的文件列表框,一个名称为 Label1、标题为“文件名”的标签和一个名称为Label2、BorderStyle 为 1 的标签。窗体的标题没置为“文件系统控件”,如图 1 所示。请编写适当的程序,使得这 3 个文件系统控件可以同步变化,即当驱动器列表框中显示的内容发生变化时,目

    2、录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时,将选中的文件名显示在 Label2 中。*注意:存盘时必须存放在考生文件夹下,工程文件名为 sjt1.vbp,窗体文件名为 sjt1.frm。(分数:15.00)_(2).在名称为 Form1 的窗体上画一个名称为 Hscroll1 的水平滚动条,其刻度范围为 1100;再画一个名称为 Text1 的文本框,初始内容为 1。程序开始运行时,焦点在滚动条上。请编写适当的事件过程,使得程序运行时,文本框中实时显示滚动框的当前位置,运行情况如图 2 所示。*注意:要求程序中不得使用变量,每个事件过程中只能写一条语句。存盘时必须存放在考生

    3、文件夹下,工程文件名为 sjt2.vbp,窗体文件名为 sjt2.frm。(分数:15.00)_二、简单应用题(总题数:1,分数:40.00)完成下列问题:(分数:40.00)(1).在考生文件夹下有一个工程文件 sjt3.vbp。窗体上有名称为 Timer1 的定时器,以及名称为 Line1 和Line2 的两条水平直线。请用名称为 Shape1 的形状控件,在两条直线之间画一个宽和高都相等的形状,其显示形式为圆,并设置适当属性使其满足以下要求:圆的顶端距离窗体 Form1 顶端的距离为 360。圆的颜色为红色(红色对应的值为:&H000000FF&或&HFF&),如图 3 所示。*程序运行

    4、时,Shape1 将在 Line1 和 Lihe2 之间运动。当 Shape1 的顶端到达 Line1 时,会自动改变方向而向下运行;当 Shape1 的底部到达 Line2 时,会改变方向而向上运动。文件中给出的程序不完整,请在程序中的横线处填写正确的内容,使其实现上述功能。注意:不能修改程序的其他部分和已给出的控件的属性,最后把修改后的文件按原文件名存盘。题目提供的源程序Dim s As Integer, h As LongPrivate Sub Form_Load( )Timer1.Enabled= (1) s=-40End SubPrivate Sub Timer1_Timer()Sh

    5、ape1.Move Shape1.Left, Shape1.Top+sIf Shape1.Top= (2) Thens=-sEnd IfIf Shapp1.Top+ (3) =Line2.Y1 Thens=-sEnd IfEnd Sub(分数:20.00)_(2).在考生文件夹下有一个工程文件 sjt4.vbp,包含了所有控件和部分程序,如图 4 所示。程序功能如下:*单击“渎数据”按钮,可将考生文件夹下 in4.dat 文件中的 100 个整数读到数组 a 中。单击“计算”按钮,则根据从名称为 Combo1 的组合框中选中的项目,对数组 a 中的数据计算平均值,并将计算结果四舍五入取整后显示

    6、在文本框 Text1 中。“读数据”按钮的 Click 事件过程已经给出,请为“计算”按钮编写适当的事件过程,实现上述功能。注意:不得修改已经存在的控件和程序,在结束程序运行之前,必须进行一次计算,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后程序按原文件名存盘。题目提供的源程序Dim a(100) As IntegerPrivate Sub Command1_Click()Dim k As IntegerOpen App.Path & “/in4.dat“ For Input As #1For k=1 To 100Input #1, a(k)Next kClose #1End Sub

    7、Private Sub Command2_Click()考生应编写的程序End Sub(分数:20.00)_三、综合应用题(总题数:1,分数:30.00)1.在考生文件夹下有一个工程文件 sjt5.vbp,相应的窗体文件为 sjt5.frm,此外还有一个名为datain.txt 的文本文件,其内容如下:32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37程序运行后单击窗体,将把文件 datain.txt 中的数据输入到二维数组 Mat 中,在窗体上按 5 行、5 列的矩阵形式显示出来,然后交换矩阵第

    8、二列和第四列的数据,并在窗体上输出交换后的矩阵,如图 5 所示。在窗体的代码窗口中,已给出了部分程序,这个程序不完整,请把它补充完整,并能正确运行。(分数:30.00)_二级 VISUAL+BASIC 机试-119 答案解析(总分:100.00,做题时间:90 分钟)一、基本操作题(总题数:1,分数:30.00)完成下列问题:(分数:30.00)(1).在名称为 Form1 的窗体上画一个名称为 Drive1 的驱动器列表框、一个名称为 Dir1 的目录列表框,一个名称为 File1 的文件列表框,一个名称为 Label1、标题为“文件名”的标签和一个名称为Label2、BorderStyle

    9、 为 1 的标签。窗体的标题没置为“文件系统控件”,如图 1 所示。请编写适当的程序,使得这 3 个文件系统控件可以同步变化,即当驱动器列表框中显示的内容发生变化时,目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时,将选中的文件名显示在 Label2 中。*注意:存盘时必须存放在考生文件夹下,工程文件名为 sjt1.vbp,窗体文件名为 sjt1.frm。(分数:15.00)_正确答案:(操作步骤第 1 步:新建一个标准 EXE 工程,修改窗体的 Caption 属性为“文件系统控件”。第 2 步:在窗体上画一个驱动器列表框、一个目录列表框、一个文件列表框,保持各控件的默认属性

    10、不变。第 3 步:在窗体上画一个标签控件,修改其 Caption 属性为“文件名”;再画一个标签控件,修改其BorderStyle 属性值为 1。第 4 步:编写程序。Private Sub Dir1_Change()File1.Path=Dir1.PathEnd SubPrivate Sub Dirve1_Change()Dir1.Path=Drive1.DriveEnd SubPrivate Sub File1_Click( )Label2=File1.FileNameEnd Sub第 5 步:调试、运行并保存程序。)解析:解析 驱动器列表框显示系统下的盘符,目录列表框显示当前盘符下的目录

    11、文件路径,文件列表框显示当前目录下的文件名。通过下面的事件,使得三者同步变化:Private Sub Drive1_Change()Dir1.path=Drive1.DriveEnd SubPrivate Sub Dir1_Change()File1.Path=Dir1.PathEnd Sub单击文件列表框时,可以通过文件列表框的 FileName 属性取得当前从列表框中选取的文件名。(2).在名称为 Form1 的窗体上画一个名称为 Hscroll1 的水平滚动条,其刻度范围为 1100;再画一个名称为 Text1 的文本框,初始内容为 1。程序开始运行时,焦点在滚动条上。请编写适当的事件过

    12、程,使得程序运行时,文本框中实时显示滚动框的当前位置,运行情况如图 2 所示。*注意:要求程序中不得使用变量,每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为 sjt2.vbp,窗体文件名为 sjt2.frm。(分数:15.00)_正确答案:(操作步骤第 1 步:新建一个标准 EXE 工程,保持窗体默认属性不变。第 2 步:在窗体上画一个水平滚动条,将其 Min 属性设置为 1,Max 属性设置为 100。由于先添加滚动条,后添加文本框,滚动条的 TabIndex 属性默认为 0,所以无须修改。第 3 步:添加文本框。在窗体上画一个文本框,将其 Text 属性改为 1。

    13、第 4 步:编写代码。双击窗体上的滚动条控件进入代码编辑窗口,编写如下事件过程:Private Sub HScroll1_Change()Text1.Text=HScroll1.ValueEnd Sub第 5 步:调试并运行程序,按题目要求保存工程。)解析:解析 滚动条的刻度范围由 Min 和 Max 两个属性决定,对于本题只需将滚动条的 Min 属性设置为1,Max 属性设置为 100 即可满足刻度范围要求。窗体上控件焦点的顺序由各控件的 TabIndex 属性控制。程序运行时,要求焦点在滚动条上,只需将滚动条的 TabIndex 属性设置为 0 即可。滚动条的滑块位置由其 Value 属性

    14、设置,当 Value 属性值发生改变时会引发滚动条的 Change 事件。二、简单应用题(总题数:1,分数:40.00)完成下列问题:(分数:40.00)(1).在考生文件夹下有一个工程文件 sjt3.vbp。窗体上有名称为 Timer1 的定时器,以及名称为 Line1 和Line2 的两条水平直线。请用名称为 Shape1 的形状控件,在两条直线之间画一个宽和高都相等的形状,其显示形式为圆,并设置适当属性使其满足以下要求:圆的顶端距离窗体 Form1 顶端的距离为 360。圆的颜色为红色(红色对应的值为:&H000000FF&或&HFF&),如图 3 所示。*程序运行时,Shape1 将在

    15、 Line1 和 Lihe2 之间运动。当 Shape1 的顶端到达 Line1 时,会自动改变方向而向下运行;当 Shape1 的底部到达 Line2 时,会改变方向而向上运动。文件中给出的程序不完整,请在程序中的横线处填写正确的内容,使其实现上述功能。注意:不能修改程序的其他部分和已给出的控件的属性,最后把修改后的文件按原文件名存盘。题目提供的源程序Dim s As Integer, h As LongPrivate Sub Form_Load( )Timer1.Enabled= (1) s=-40End SubPrivate Sub Timer1_Timer()Shape1.Move S

    16、hape1.Left, Shape1.Top+sIf Shape1.Top= (2) Thens=-sEnd IfIf Shapp1.Top+ (3) =Line2.Y1 Thens=-sEnd IfEnd Sub(分数:20.00)_正确答案:(操作步骤第 1 步:添加形状控件。打开工程 sjt3.vbp,进入窗体设计状态。单击工具箱中的形状按钮 )解析:解析 在窗体的载入事件中启动计时器 Timer1,在 Trimer1 的 Timer 事件中通过形状控件的 Move方法移动形状,移动时只改变了 Y 轴方向的值,即可实现形状的上下移动。通过对 Shape1.Top 的值和Line1Y1 的

    17、值的比较来判定圆形是否越过上界,通过对 Shape1.Top+Shape1.Height 的值和 Line2.Y1 的值的比较来判定圆形是否越过下界。(2).在考生文件夹下有一个工程文件 sjt4.vbp,包含了所有控件和部分程序,如图 4 所示。程序功能如下:*单击“渎数据”按钮,可将考生文件夹下 in4.dat 文件中的 100 个整数读到数组 a 中。单击“计算”按钮,则根据从名称为 Combo1 的组合框中选中的项目,对数组 a 中的数据计算平均值,并将计算结果四舍五入取整后显示在文本框 Text1 中。“读数据”按钮的 Click 事件过程已经给出,请为“计算”按钮编写适当的事件过程

    18、,实现上述功能。注意:不得修改已经存在的控件和程序,在结束程序运行之前,必须进行一次计算,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后程序按原文件名存盘。题目提供的源程序Dim a(100) As IntegerPrivate Sub Command1_Click()Dim k As IntegerOpen App.Path & “/in4.dat“ For Input As #1For k=1 To 100Input #1, a(k)Next kClose #1End SubPrivate Sub Command2_Click()考生应编写的程序End Sub(分数:20.00)_

    19、正确答案:(操作步骤第 1 步:打开工程文件 sjt4.vbp。第 2 步:编写程序。参考程序如下:Dim m As Long, n As LongDim x As Integer, y As IntegerFor i=1 to 100if a(i) Mod 2=0 Thenm=m+a(i)y=y+1Elsen=n+a(i)y=y+1End IfNextSelect Case Combo1.TextCase “所有偶数“Text1=Round(m/x)Case “所有奇数“Text1=Round(n/y)Case “所有数“Text1=Round(m+n)/(x+y)End Select第 3

    20、 步:调试、运行并保存程序。)解析:解析 Command1_Click 事件过程实现“读数据”,将数据读入到数组 a 中。Command2_Click 事件过程负责数组 a 中数据平均值的计算和结果的显示。计算时可采用两种方法:一种方法是把数组 a 中所有的偶数、奇数及其个数分别累加到一个变量中,例如 m 为所有偶数的总和,x 为偶数的个数,n 为所有奇数的总和,y 为奇数的个数,根据组合框当前选取的计算内容来决定将 m/x、n/y 或(m+n)/(x+y)四舍五入取整显示在 Text1 中;另一种方法是先取得组合框当前选择的内容,再决定对数组 a 中的哪些数求平均数。用循环语句遍历数组 a,

    21、用 If 语句和 Mod 运算符可判断奇偶数,用 Int()或 Round()函数可以实现数据的四舍五入。三、综合应用题(总题数:1,分数:30.00)1.在考生文件夹下有一个工程文件 sjt5.vbp,相应的窗体文件为 sjt5.frm,此外还有一个名为datain.txt 的文本文件,其内容如下:32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37程序运行后单击窗体,将把文件 datain.txt 中的数据输入到二维数组 Mat 中,在窗体上按 5 行、5 列的矩阵形式显示出来,然后交换矩阵第二

    22、列和第四列的数据,并在窗体上输出交换后的矩阵,如图 5 所示。在窗体的代码窗口中,已给出了部分程序,这个程序不完整,请把它补充完整,并能正确运行。(分数:30.00)_正确答案:(操作步骤第 1 步:打开工程文件第 2 步:分析修改源程序第 3 步:调试、运行并保存程序。1Mat(N,M) 2For Input 3Input #1, Mat(i,j) 4Mat(I,4)=t)解析:解析 根据已给出的源程序可以看出,程序中采用数组来存储所有的数据,因此在1处明显就是要求定义一个数组,再根据循环体循环次数和引用的数组元素可以确定数组为 Mat(N,M)。有了数组后,需要从文件中读取数据存入到数组中,因此打开文件的模式应该是 For Input。3处应该是读数据。4处应该是交换两列的值,根据两变量交换的常用写法很容易得出答案。


    注意事项

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




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

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

    收起
    展开