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

    【计算机类职业资格】VB机试-试卷59及答案解析.doc

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

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

    【计算机类职业资格】VB机试-试卷59及答案解析.doc

    1、VB 机试-试卷 59 及答案解析(总分:12.00,做题时间:90 分钟)一、基本操作题(总题数:2,分数:4.00)1.基本操作题()(分数:2.00)_2.(1)在名称为 Forml 的窗体上画一个名称为 Option1 的单选按钮数组(Index 属性从 0 开始),含 4 个单选按钮,其标题分别为“Iternl”、“Item2”、“Item3”和“Item4”。利用属性窗口设置适当的属性,使“Item3”选中,“Item4”为灰色,程序运行时的窗体界面如图 171 所示。 注意:保存时必须存放在考生文件夹下。窗体文件名为 sjlfrm,工程文件名为 sjlvbp。 (2)在名称为 F

    2、orml 的窗体中,画一个组合框。组合榧的名称为 Comb01,初始内容为空,有“Item1”、“Item2”和“Item3”三个可供选择项,还有一个名称为 Textl 的文本框,内容为空。编写适当的事件过程,使得程序运行时,选择组合框中的某项在文本框中显示出来。程序中不得使用任何变量。程序运行时的窗体界面如图 172 所示。(分数:2.00)_二、简单应用题(总题数:2,分数:4.00)3.简单应用题()(分数:2.00)_4.(1)在考生文件夹中有文件 sj3vbp 及其窗体文件 sj3frm该程序是不完整的。窗体上有一个名称为 Text1 的文本框;两个复选框,名称分别为 Check1

    3、和 Check2,标题分别为“Item1”和“Item2”;一个按钮,标题为“选择”。要求程序运行后,如果 Checkl 和 Check2 都不选,单击窗体后,则在文本框中什么都不显示;如果只选中 Checkl,单击按钮,则在文本框中显示“选中 Item1”;如果只选中Check2,然后单击按钮,则在文本框中显示“选中 Item2”;如果同时选中 Checkl 和 Check2单击窗体,则在文本框中显示“不能全选”。程序运行时窗体显示如图 1-3 所示。 注意:请在有“?”的地方填入正确内容然后删除“?”及代码前的所有注释符(即“”号),但不能修改其他部分。存盘时:不得改变文件和文件名。(2)

    4、在考生文件夹下有一个工程文件 sj4vbp,要求程序运行后,如果多次单击列表框List1 中的项,则可同时选择这些项。而如果单击“导出”按钮,则在列表框 List2 中输出所有选中的列表项,如图 1-4 所示。 (分数:2.00)_三、综合应用题(总题数:2,分数:4.00)5.综合应用题()(分数:2.00)_6.在考生文件夹中有工程文件 sj5vbp 及其窗体文件 sj5frm,该程序是不完整的,请将程序补充完整。在名称为 Forml 的窗体上有两个命令按钮,其名称分别为 Command1 和 Command2,标题分别为“计算”和“保存”;两个单选按钮,名称分别为 Optionl 和 O

    5、ption2,标题分别为“50150 的素数”和“200350 的素数”;一个文本框,名称为 Text 1,程序运行界面如图 85 所示。如果选中一个单选按钮并单击“计算”按钮,则计算出该单选按钮标题所指明的所有素数之和,并在文本框中显示出来。如果单击“保存”按钮,则把计算结果存入 out5txt 文件中,该文件必须放在考生文件夹中。(在考生文件夹中有标准模块 modebas,其中的 isPrimeNum 函数可以判断整数 x 是否为素数,如果是素数,则函数返回 True,否则返回 False,而 writeData 过程可以把结果存人指定的文件,考生可以将该模块文件添加到自己的工程中。) (

    6、分数:2.00)_VB 机试-试卷 59 答案解析(总分:12.00,做题时间:90 分钟)一、基本操作题(总题数:2,分数:4.00)1.基本操作题()(分数:2.00)_解析:2.(1)在名称为 Forml 的窗体上画一个名称为 Option1 的单选按钮数组(Index 属性从 0 开始),含 4 个单选按钮,其标题分别为“Iternl”、“Item2”、“Item3”和“Item4”。利用属性窗口设置适当的属性,使“Item3”选中,“Item4”为灰色,程序运行时的窗体界面如图 171 所示。 注意:保存时必须存放在考生文件夹下。窗体文件名为 sjlfrm,工程文件名为 sjlvbp

    7、。 (2)在名称为 Forml 的窗体中,画一个组合框。组合榧的名称为 Comb01,初始内容为空,有“Item1”、“Item2”和“Item3”三个可供选择项,还有一个名称为 Textl 的文本框,内容为空。编写适当的事件过程,使得程序运行时,选择组合框中的某项在文本框中显示出来。程序中不得使用任何变量。程序运行时的窗体界面如图 172 所示。(分数:2.00)_正确答案:(正确答案:(1)根据题意,新建“标准 EXE”工程,将一组 Option 控件(4 个)添加到窗体上,其名称都为 Optionl,Index 属性分别为 0,1,2,3,索引为 2 的 Value 属性为 True,索

    8、引为 3 的Enable 为 False。单击 按钮运行程序,并按要求保存。 (2)根据题意,新建“标准 EXE”工程,将一个 ComboBox 控件和一个 Text 控件添加到窗体上,ComboBox 的名称为 Combol,其 Style 为 2,List 中添加以下 3 项:“Iteml”、“Item2”和“Item3”,Text 的名称为 Textl,Text 属性为空。双击Combo1,进入代码窗口,编写如下代码: Private Sub Combo1_Click() TextlText=Combo1List(Combo1ListIndex) 在 Textl 中显示列表框选中的项 E

    9、nd Sub 单击 )解析:二、简单应用题(总题数:2,分数:4.00)3.简单应用题()(分数:2.00)_解析:4.(1)在考生文件夹中有文件 sj3vbp 及其窗体文件 sj3frm该程序是不完整的。窗体上有一个名称为 Text1 的文本框;两个复选框,名称分别为 Check1 和 Check2,标题分别为“Item1”和“Item2”;一个按钮,标题为“选择”。要求程序运行后,如果 Checkl 和 Check2 都不选,单击窗体后,则在文本框中什么都不显示;如果只选中 Checkl,单击按钮,则在文本框中显示“选中 Item1”;如果只选中Check2,然后单击按钮,则在文本框中显示

    10、“选中 Item2”;如果同时选中 Checkl 和 Check2单击窗体,则在文本框中显示“不能全选”。程序运行时窗体显示如图 1-3 所示。 注意:请在有“?”的地方填入正确内容然后删除“?”及代码前的所有注释符(即“”号),但不能修改其他部分。存盘时:不得改变文件和文件名。(2)在考生文件夹下有一个工程文件 sj4vbp,要求程序运行后,如果多次单击列表框List1 中的项,则可同时选择这些项。而如果单击“导出”按钮,则在列表框 List2 中输出所有选中的列表项,如图 1-4 所示。 (分数:2.00)_正确答案:(正确答案: (1)根据题意,将两个名称分别为 Checkl 和 Che

    11、ck2 的复选按钮、一个名称为Textl 的文本框和一个名称为 Commandl 的命令按钮放入到窗体中,复选按钮的 Caption 属性分别为 Iteml和 Item2,Text1 的 Text 属性为空,命令按钮的 Caption 褐性为“选择”。双击 Commandl 进入代码编写窗口,代码如下: Private Sub Commandl_Click() If Checkl Value =1 Then当选中 Checkl 时 If Check2 Value =1 Then选中 Check2 Textl Text =”不能全选” 在 Textl 中显示不能全选 Else没有选中 Check

    12、2 Textl Text ”选中 Iteml” 在 Textl 中显示选中 Iteml End If Else当没选中Checkl 时 If Check2 Value =1 Then 选中 Check2 Textl Text =选中 Item2” 显示选中 Item2 Else Textl. Text =“ 不显示 End If End If End Sub 单击 按钮运行程序,并按要求保存。 (2)列表框控件用于显示可供单一或多个选择的列表项。在程序运行时可通过代码:列表框名AddItem“项目”给列表框添加列表项;MultiSelect 属性用于设置是否可在列表项中选择多项,值为 0(缺省

    13、设置)表示不允许选择多项,值为 1 表示允许做简单多项选择,值为 2 表示允许配合使用Shift、Ctrl 键做多项选择;Selected(Index)属性用于设置或返回指定索引号的列表项选择状态(索引号从 0 开始)值为 True 表示被选中,值为 False 表示未被选中;List(Index)属性用于设置或返回指定索引号的列表项的内容;ListCount 属性用来返回列表框中当前的列表项条数。 根据题意,将列表框 List的 MultiSelect 为 1Simple,双击 Commandl 进入代码窗口,编写如下代码: Private Sub Commandl_Click() Dim

    14、i As Integer For i=0 To ListlListCount -1 遍历 listl 列表 If Listl Selected(i) =True Then找到选中项 List2 AddItem ListlList(i) 将其加入到 list2 列表框中 End If Next i End Sub 单击图片 )解析:三、综合应用题(总题数:2,分数:4.00)5.综合应用题()(分数:2.00)_解析:6.在考生文件夹中有工程文件 sj5vbp 及其窗体文件 sj5frm,该程序是不完整的,请将程序补充完整。在名称为 Forml 的窗体上有两个命令按钮,其名称分别为 Comman

    15、d1 和 Command2,标题分别为“计算”和“保存”;两个单选按钮,名称分别为 Optionl 和 Option2,标题分别为“50150 的素数”和“200350 的素数”;一个文本框,名称为 Text 1,程序运行界面如图 85 所示。如果选中一个单选按钮并单击“计算”按钮,则计算出该单选按钮标题所指明的所有素数之和,并在文本框中显示出来。如果单击“保存”按钮,则把计算结果存入 out5txt 文件中,该文件必须放在考生文件夹中。(在考生文件夹中有标准模块 modebas,其中的 isPrimeNum 函数可以判断整数 x 是否为素数,如果是素数,则函数返回 True,否则返回 Fal

    16、se,而 writeData 过程可以把结果存人指定的文件,考生可以将该模块文件添加到自己的工程中。) (分数:2.00)_正确答案:(正确答案: 素数的判断准则就是看该数是否除了 1 及其本身以外别无其他约数,若是则该数就是素数,否则就不是素数。本题判断素数的标准模块 modebas 已经写好了,只要将它添加到工程中即可。在“工程”窗口中单击右键,在弹出的快捷菜单中选择“添加“添加模块”,然后在弹出对话框的“现存选项卡中选择“modebas”,单击“确定”按钮即添加成功。补充后的代码如下: Private Sub Commandl Click() Dim min As Integer Dim

    17、 max AS Integer Dim i AS Integer If Optionl Value =True Then根据选中的 Option 来设置 For 循环上下限 min=50 max=150 Else min=200 max=350 End If total=0 For i=min To max If isPrimeNum(i)= True Then 调用 modebas 的isPrimeNum 函数判断素数 total=total+i End If Next i TextlText=total End Sub Private Sub Command2 Click() writeD

    18、ata(total) 调用 modebas 的 writeData 来进行数据保存 End Sub 标准模块modebas 中的代码如下: Function isPrimeNum(num As Integer)As Boolean isPrimeNum=True Dim i As Integer For i=2 To num-1 If num Mod i=0 Then isPrimeNum=False Exit For End If Next i End Function Function writeData(total As Long) Open“AppPath&out5txt“For Output As#1 Write#1,total Close#1 End Function 单击 )解析:


    注意事项

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




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

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

    收起
    展开