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

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

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

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

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

    1、国家二级 VB机试(上机操作)模拟试卷 124及答案与解析 一、基本操作题 1 在名称为 Form1的窗体上画两个标签 (名称分别为 Label1和 Label2,标题分别为“姓名 ”和 “年龄 ”)、两个文本框 (名称分别为 Text1和 Text2,初始内容均为空 )和一个命令按钮 (名称为 Command1,标题为 “显示 ”)。然后编写命令按钮的 Click事件过程。程序运行后,在两个文本框中分别输入姓名和年龄,然后单击 “显示 ”按钮,则在窗体上显示两个文本框中的内容,如图所示。要求程序中不得使用任何变量。注意:存盘时必须存放在考生 文件夹下,工程文件名保存为 sjt1 vbp,窗体

    2、文件名保存为 sjt1 frm。 2 在名称为 Form1的窗体上画一个图片框,其名称为 Picture1,一个水平滚动条,名称为 HScroll1,一个命令按钮,名称为 Command1,标题为 “设置属性 ”,通过属性窗口在图片框中装入一个图形 (文件名为 pic1 jpg,位于考生目录下 ),图片框的高度与图形的高度相同,图片框的宽度任意 (如图 1所示 )。编写适当的事件过程,程序运行后,如果单击命令按钮,则设置水平滚动条的属性如下: Min 100Max 1500LargeChange 100SmallChange 10之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。程序运行后

    3、的窗体如图 2所示。要求程序中不得使用任何变量。注意:存盘时必须存放在考生文件夹下,工程文件名为 sjt2 vbp,窗体文件名为sjt2 frm。二、简单应用题 3 在考生文件夹下有一个工程文件 sjt3 vbp(相应的窗体文件名为 sjt3 frm),在窗体上添加一个名称为 List1的列表框和一个名称为 Text1的文本框,如图 1所示。编写窗体的 MouseDown事件过程。程序运行后,如果用鼠标单 击窗体,则从键盘上输入要添加到列表框中的项目 (内容任意,不少于三个 );如果用鼠标右键单击窗体,则从键盘上输入要删除的项目,将其从列表框中删除。程序的运行情况如图 2所示。这个程序不完整,

    4、请把它补充完整,并能正确运行。要求:去掉程序中的注释符,把程序中的 ?改为适当的内容,使其正确运行,但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。4 在考生文件夹下有一个工程文件 sjt4 vbp(相应的窗体文件名为 sjt4 frm),其功能是通过调用过程 FindMin求数组的最小值。程序运行后,在 4个文本框 中各输入一个整数,然后单击命令按钮,即可求出数组的最小值,并在窗体上显示出来 (如图所示 )。要求:去掉程序中的注释符,把程序中的 ?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。三、综合应用题 5 在窗体上建立三个

    5、菜单 (名称分别为 Read、 Calc和 Save,标题分别为 “读入数据 ”、 “计算并输出 ”和 “存盘 ”),然后再添加一个文本框,名称为 Text1, MuhiLine属性设置为 True, ScrollBars属性设置为 2(如图所示 )。程序运行后,如果执行 “读入数据 ”命令,则读入考生文件夹下 datain1 txt文件中的 100个整数,放入一个数组中,数组的下界为 1;如果单击 “计算并输出 ”按钮,则把该数组中下标为偶数的元素在文本框中显示出来,求出它们的和,并把所求得的和在窗体上显示出来;如果单击 “存盘 ”按钮,则把所求得的和存人考生文件夹下的 dataout tx

    6、t文件中。在考生文件夹下有一个工程文件 sjt5 vbp,窗体文件中的 ReadData过程可以把 datain1 txt文件中的 100个整数读入 Arr数组中;而 writeData过程可以把指定的整数值写到考生 文件夹下指定的文件中 (整数值通过计算求得,文件名为 dataout txt)。注意:考生不得修改窗体文件中已经存在的程序。存盘时,工程文件名仍保存为 sjt5 vbp,窗体文件名仍保存为 sjt5 fnn。 国家二级 VB机试(上机操作)模拟试卷 124答案与解析 一、基本操作题 1 【正确答案】 操作步骤 步骤 1:新建一个窗体,按照题目要求建立控件并设置相应属性,程序中用到

    7、的控件及属性如表 3 16所示。步骤 2:打开代码编辑窗口,在指定位置编写如下代码。参考代码 Private Sub Command1_Click()Form1 Print Text1 Text&“,现年 “&Text2 Text; &“岁 “End Sub步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 2 【正确答案】 操作步骤 步骤 1:新建一个窗体,添加控件并设置相应的属性。程序中用到的控件及其属性见表 3 17。步骤 2:打开代码编辑窗口,在指定位置编写如下代码。参考代码 Private Sub Command1 C1ick()HScroll1 Max=1500设置滚动条的最大值

    8、、最小值、最大改变值、最小改变值 HScroll1 Min=100HScroll1 LargeChange=100HScroll1 SmallChange=10End SubPrivate Sub HScrolll Change()Picture1 Width=HScrolii Value将图片的 width与滚动条的 Value保持一致 End Sub步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 二、简单应用题 3 【正确答案】 操作步骤 步骤 1:打开本题工程文件,按表 3 18昕列在窗体画出控件并设置其属性。步骤 2:打开代码编辑窗口,去掉程序中的注释符 “”,将问号改为正确的内

    9、容。参考代码 (画下划线部分是需填入的内容 )Private Sub Form_MouseDown(Button As Integer, Shift AS Integer, X As Single, Y As Single)If Button=1 ThenText1 Text=InputBox(“请输入要添加的项目 “)List1 AddItemText1 Text将 Text1中的内容加入列表 End IfIf Button=2 ThenText1 Text=InputBox(“请输入要删除的项目 “)列表总数用 ListCount求得 For i=0 ToList1 ListCount-1

    10、判断列表项是否为要删除的项 If List1 List(i)=Text1 TextThen删除 i所对应的项 List1 RemoveItemiEnd IfNext iEnd IfEnd Sub程序结束步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 4 【正确答案】 操作步骤 步骤 1:打开本题工程文件。 步骤 2:打开代码编辑窗口,去掉程序中的注释符 “”,将问号改为正确的内容。 参考代码 (画下划线部分是需填入的内容 ) Option Base 1 Private Function FindMin(a()As Integer) Dim Start As Integer Dim Fin

    11、ish As Integer, i As Integer Start=LBound(a)求数组 下界值 Finish=UBound(a)求数组上界值 Min=a(Start)将第一个数赋给最小值进行比较 For i=Start To Finish循环判断找最小值 If a(i) Min Then Min=a(i) Next i FindMin=Min End Function Private Sub Command1_Click() Dim arr1 Dim arr2(4)As Integer arr1=Array(Val(Text1 Text), Val(Text2 Text), Val(T

    12、ext3 Text),Val(Text4 Text)申请 arrl数组并初始化 For i=1 To 4 arr2(i)=CInt(arr1(i)CInt函数将 arr1中的数值转换为整型 Next i M=FindMin(arr2) Print“最小值是: “; M End Sub 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 三、综合应用题 5 【正确答案】 操作步骤 步骤 1:打开本题工程文件,利用菜单设计器,按表中的设置建立 菜单项,在窗体 Form1中绘制一个文本框,其相关属性及其值见表3 19和表 3 20。步骤 2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。参

    13、考代码 需要考生编写的内容 Dim sum As integer考生编写程序结束 需要考生编写的内容Private Sub CalC C1ick()Text1 Text=“For i=2 To 100 Step 2从 2开始循环,以 2为步长的下标都是偶数 Text1 Text=Text1 Text&Amr(i)&Space(5)sum=sum+Arr(i)对 下标为偶数的值求和 Next iPrint sumEnd SubPrivate Sub Read Click()ReadData调用 ReadData子过程 End SubPrivate Sub Save Click()调用 Save Click函数WriteData“dataout txt“, sumEnd Sub考生编写程序结束步骤 3:调试并运行程序,关闭程序后按题目要求存盘。


    注意事项

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




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

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

    收起
    展开