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

    [计算机类试卷]国家二级VB机试(上机操作)模拟试卷134及答案与解析.doc

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

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

    [计算机类试卷]国家二级VB机试(上机操作)模拟试卷134及答案与解析.doc

    1、国家二级 VB机试(上机操作)模拟试卷 134及答案与解析 一、基本操作题 1 在名称为 Form1的窗体上添加一个名称为 Label1的标签,标签的宽和高分别为2000、 300,有边框,并利用属性窗口设置适当的属性,使其标题 “等级考试 ”居中显示,并使标签的外观如图所示。注意:存盘时必须存放在考生文件夹下,工程文件名保存为 sjt1 vbp,窗体文件名保存为 sjt1 frm。2 在名称为 Form1的窗体上添加一个名称为 Image1的图像框,有边框,并可以自动调整装入图片的大小以适应图像框的尺寸;再添加三个命 令按钮,名称分别为Command1、 Command2、 Command3

    2、,标题分别为 “红桃 ”、 “黑桃 ”、 “清除 ”。在考生文件夹下有两个图标文件,其名称分别为 “Misc34 ico”和 “Misc37 ico”。程序运行时,单击 “黑桃 ”按钮,则在图像框中显示黑桃图案 (Misc37 ico文件 );单击“红桃 ”按钮,则在图像框中显示红桃图案 (Misc34 ico文件,如图所示 );单击 “清除 ”按钮则清除图像框中的图案。请编写相应控件的 Click事件过程,实现上述功能。注意:要求程序中不得使用变量,每个事件过程中只能写一 条语句。存盘时必须存放在考生文件夹下,工程文件名保存为 sjt2 vbp,窗体文件名保存为sjt2 frm。 二、简单应

    3、用题 3 在考生文件夹下有一个工程文件 sjt3 vbp。其窗体文件上有一个标题为 “得分 ”的框架,在框架中有一个名称为 Text1的文本框数组,含 6个文本框控件;文本框Text2用来输入难度系数。程序运行时,在左边的 6个文本框中输入 6个得分,输入难度系数后,单击 “计算分数 ”按钮,则可计算出最后得分并显示在文本框 Text3中 (如图所示 )。计算方法:去掉 1个最高得分和 1个最低得分,求剩下得分的 平均分,再乘以 3,再乘以难度系数。最后结果保留到第 2位小数,不四舍五入。注意:文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的 ?改为正确的内容,考

    4、生不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。 4 在考生文件夹下有一个工程文件 sjt4 vbp。窗体上的控件如图所示。程序运行时,若选中 “累加 ”单选按钮,则 “10”、 “12”菜单项不可用,若选中 “阶乘 ”单选按钮,则 “1000”、 “2000”菜单项不可用 (如图所示 )。选中菜单中的一个菜单项后,单击 “计 算 ”按钮,则相应的计算结果在文本框中显示 (例如,选中 “累加 ”和 “2000”,则计算 1+2+3+2000 ,选中 “阶乘 ”和 “10”,则计算 10!)。单击 “存盘 ”按钮则把文本框中的结果保存到考生文件夹下的 out4 dat

    5、文件中。要求:编写 “计算 ”按钮的Click事件过程。注意:不得修改已经存在的程序,在结束程序运行之前,必须用“存盘 ”按钮存储计算结果,否则无成绩。最后,程序按原文件名存盘。三、综合应用题 5 在考生文件夹下有一个工程文件 sjt5 vbp。其功能是产生并显示一个数列的前 n项。数列产生的规 律是:数列的前 2项是小于 10的正整数,将此两数相乘,若乘积 10,则以此乘积作为数列的第 3项;若乘积 10,则以乘积的十位数为数列的第 3项,以乘积的个位数为数列的第 4项。再用数列的最后两项相乘,用上述规则形成后面的项,直至产生了第 n项。窗体上部从左到右 3个文本框的名称分别为Text1、

    6、Text2、 Text3,窗体下部的文本框名称为 Text4。程序运行时,在 Text1、Text2中输入数列的前两项, Text3中输入要产生的项数 n,单击 “计算 ”按钮则产生此数列的前 n项,并显示在 Text4中。如图所示。 已经给出 了全部控件,但程序不完整,请去掉程序中的注释符,把程序中的 ?改为正确的内容。注意:不得修改原有程序和控件的属性。最后把修改后的文件按原文件名存盘。 国家二级 VB机试(上机操作)模拟试卷 134答案与解析 一、基本操作题 1 【正确答案】 操作步骤 步骤 1:新建一个窗体,按照题目要求建立标签控件并设置其属性,如图 3 32所示。程序中用到的控件及属

    7、性见表 3 47。 步骤 2:调试并运行程序,关闭程序后按题目要求存盘。 2 【正确答案】 操作步骤 步骤 1:建立界面,添加相应的控件并设置控件的属性。程序中 涉及的控件及属性见表 3 48。步骤 2:打开代码编辑窗口,在指定位置编写如下代码。参考代码 Private Sub Command1_Click()Image1 Picture=LoadPicture(App path&“ Misc 34 ico“)加载图片 End SubPrivate Sub Command2_Click()Image1 Picture=LoadPicture(App path&“ Misc37 ico“)End

    8、 SubPrivate Sub Command3_Click()Set Image1 Picture=Nothing清除 Image1中的图片 End Sub步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 二、简单应用题 3 【正确答案】 操作步骤 步骤 1:打开本题工程 文件。 步骤 2:打开代码编辑窗口,去掉程序中的注释符 “”,将问号改为正确的内容。 参考代码 (画下划线部分是需填入的内容 ) Private Sub Command1_Click() Dim k As Integer, s As Single, a As Single, b As Single a=Val(Text

    9、1(0) Text)将第一个文本框的值作为最大值赋予 a s=a b=a将第一个数作为最小值赋予 b For k=1 To 5剩余文本框作为循环次数的条件 s=s+Val(Text1(k) Text) Ifa Val(Textl(k) Text)Then 取出每个文本框的值与最大值比较,求最大值 a=Val(Text1(k) Text; ) End If If b Val(Textl(k) Text)Then b=Val(Text1(k) Text; ) End If Next k s=(s-a-b) 4 根据要求去掉一个最高分和一个最低分后求四科的平均分 s=s*3*Val(Text2 Te

    10、xt; ) 根据题意此处应填平均分 Text3=Tnt(s*100) 100 Tnt(N)是求小于或等于 N的最大整数,同时将最后结果显示在 Text3上 End Sub 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 4 【正确答案】 操作步骤 步骤 1:打开本题工程文件; 步骤 2:打开代码编辑窗口,在指定位置编写如下代码。 参考代码 Private Sub Command1_Click() Dim i As Integer Dim j As Integer Dim m As Long Dim sum As Long m=1 Tf n=10 or n=12Then通过判断 n的值,可

    11、确定使用什么操作 For i=2 To n m=im Next i求 n的阶乘 Text1 Text=m End If sum=0 If n=2000or n=1000Then For j=1 To n sum=sum+j Next; j求 1到 n的和 Text1 Text=sum End If End Sub 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 三、综合应用题 5 【正确答案】 操作步骤 步骤 1:打开本题工程文件。 步骤 2:打开代码编辑窗 口,去掉程序中的注释符 “”,将问号改为正确的内容。 参考代码 (画下划线部分是需填入的内容 ) Private Sub Comm

    12、and1_click() Text4=“ a=Val(Text1) b=Val(Text2) n=Val(Text3) Text4=Text4&a&“&b 文本框 Text4中第二项的内容一定是 b k=2 Do While k n c=a*b k=k+1 If C 10 Then判断乘积是否小于 10 Text4=Text4&“&c若小于 10,则直接接到 Text4文本末尾 a=b将 b赋给 a成为下一次循环的前一项 b=c将 c作为下一次循环的后一项 Else d=c 10当 C大于 10,则取整 Text4=Text4&“&d a=d将十位数作为下一次循环的前一项 k=k+1 If k =nThen 当 k n时,则数列数已够,不用求下一项 d=C Mod 10 Text4=Text4&“&d b=d将余数作为下一次循环的后一项 End If End If Loop End Sub 步骤 3:调试并运行程序,关闭程 序后按题目要求存盘。


    注意事项

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




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

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

    收起
    展开