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

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

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

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

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

    1、国家二级 VB机试(上机操作)模拟试卷 142及答案与解析 一、基本操作题 1 在名称为 Form1、标题为 “欢迎 ”的窗体上画 1个名称为 Label1的标签,其标题内容为 “欢迎使用本系统 ”,标题文字字体和字号分别为 “宋体 ”、 “三号 ”,标签大小能根据标题内容自动调整,效果如图所示。程序执行时,窗体的最大化按钮不可用(如图所示 ),请设置相应属性。注意:存盘时必须存放在考生文件夹下,工程文件名为 sjt1 vbp,窗体文件名为 sjt1 frm。 2 在名称为 Form1的窗体上,画 1个名称为 Label1的标签,其标题 为 “横坐标 X”,且能根据标题内容自动调整标签的大小;

    2、再画 1个名称为 Text1的文本框,其中的文字显示为空白;再画 1个名称为 Picture1的图片框,大小适中即可。要求:编写适当的事件过程,使得程序运行时,如果鼠标在图片框中移动,则能在文本框Text1中显示鼠标在图片框中的当前位置的横坐标,运行情况如图所示。注意:要求程序中不得使用变量,事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为 sjt2 vbp,窗体文件名为 sjt2 frm。二、简单应用题 3 在考生文件夹下有一个工程文件 sjt3 vbp。程序的功能是: 1)程序运行时,文件列表框显示当前文件夹中的所有扩展名为 jpg的文件。 2)双击文件列表框中某个图片

    3、文件名时,能在图像框中显示出该张图片,并将该图片文件的信息 (包括路径及文件名 )显示到标签中。 3)“下一张 ”命令按钮的功能:选中并显示上次选中文件的下一个图片文件 (如果文件列表框中没有被选中的图片文件或上次选中的是最后一个文件名,则从第 1个图片文件开始 )。在当前程序所在文件夹中,已经提供了所需要的图片文件,运行时窗体如图所示。在给出的窗体文件中已经有了全部控件,但程序不完整。请将事件 过程中的注释符去掉,把 ?改为正确的内容,以实现上述程序功能。注意:考生不得修改窗体文件中已经存在的控件和程序,最后将程序按原文件名存盘。 4 在考生文件夹下有一个工程文件 sjt4 vbp。程序的功

    4、能是:程序运行时,文本框中显示一篇英文短文,单击 “查找 ”按钮时可输入查找内容,如图 1所示。若未找到查找内容,查找结束;若找到查找内容,被找到的内容在文本框中以反相显示 (即呈选中状态 ),每找到一次都给出提示,并在左下角文本框中显示累计的次数,如图 2所示,若单击提示对话框的 “是 ”按钮,则继续向后查找;若单击 “否 ”按钮,则终止查找。在给出的窗体文件中已经有了全部控件,但程序不完整。请将事件过程中的注释符去掉,把 ?改为正确的内容,以实现上述程序功能。注意:考生不得修改窗体文件中已经存在的控件和程序,最后将程序按原文件名存盘。 三、综合应用题 5 在考生文件夹下有一个工程文件 sj

    5、t5 vbp。程序运行时,单击 “显示数据 ”按钮,则将考生文件夹下 in5 dat文件的内容读入一维数组 a中,并按下标顺序将数组 a各元素的值显示在 List1列表框中;单击 “移动 ”按钮,则将数组 a中的最大值移动到数组的最前面,其他数据的排列顺序不 变,并将移动后的结果显示在 List2列表框中。单击 “保存 ”按钮。则保存移动后的结果。要求: “显示数据 ”和 “保存 ”按钮的Click事件过程已经给出,请编写 “移动 ”按钮的 Click事件过程实现上述功能。程序窗体界面如图所示。注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前必须单击 “移动 ”按钮,并单击

    6、 “保存 ”按钮保存结果,否则无成绩。最后程序按原文件名存盘。 国家二级 VB机试(上机操作)模拟试卷 142答案与解析 一、基本操作题 1 【正确答案】 操作步骤 步骤 1:新建一个窗体,在属性 窗口中设置窗体的属性,按照表 4 3所示在属性窗口中设置相应属性,其运行效果如图 4 3所示。步骤 2:在窗体上添加一个标签控件,在属性窗口中设置标签的属性,按照表 4 4所示在属性窗口中设置相应属性,其运行效果如图 4 4所示。 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 2 【正确答案】 操作步骤 步骤 1:新建一个窗体,在窗体上添加一个标签控件,在属性窗口中设置标签的属性,按照表 4

    7、 5所示在属性窗口中设置相应属性,其运行效果如图 4 5所示。 步骤 2:在窗体上添加一个文本框控件,在属性窗口中设置文本框 的属性,按照表 4 6所示在属性窗口中设置相应属性,其运行效果如图 4 6所示。步骤 3:在窗体上添加一个图片框控件,适当调整大小,其运行效果如图 4 7所示。步骤 4:双击 “左击 ”按钮,打开代码编辑窗口,在代码编辑窗口中添加Picture1_MouseMove事件,并编写以下代码。编写程序代码。参考代码 (画下划线部分是需填入的内容 )Private Sub Picture1_MouseMove(Button AsInteger, Shift As Integer

    8、, X As Single, Y As Single)TExt1 TeXt=XEnd sub步骤 5:调试并运行程序,关闭程序后按题目要求存盘。 二、简单应用题 3 【正确答案】 操作步骤 步骤 1:打开本题工程文件。 步骤 2:打开代码编辑窗口,去掉程序中的注释符 “”,将问号改为正确的内容。 参考代码 (画下划线部分是需填入的内容 ) Private Sub Command1_Click() IfFile1 ListIndex=-1Or File1 ListIndex=File1 Lis Count-1Then File1 LiStIndex=0 Else If File1 ListInd

    9、ex =0 Then File1 ListIndex=File1 ListIndex+1 End If End If ShowInfor End Sub Private Sub File1_DblClick() Call ShowInfor End Sub Private Sub ShowInfor() Label1 Caption=App Path+“”+File1 FileName Image1 Picture=LoadPicture(Label1 Caption) End Sub Private Sub Form_Load() File1 Path=App Path File1 Patt

    10、ern=“* jig“ End Sub 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 4 【正确答案】 操作步骤 步骤 l:打开本题工程文件。 步骤 2:打开代码编辑窗口,去掉程序中的注释符 “”,将问号改为正确的内容。 参考代码 (画下划线部分是需填 入的内容 ) Private Sub Command1_Click() Dim fstr As String, ostr As String Dim times As Integer, pos As Integer Dim ans As Integer fstr=InputBox(“输入待查内容 “, “查找 “) If fstr=“T

    11、hen Exit Sub End If times=0 ostr=Text1 Text POS=InStr(1, ostr, fstr) DoWhile pos 0 Text1 SelStart=pos Text1 SelLength=Len(fstr) times=times+1 Text2 Text=timeS ans=MsgBox(“找到了,是否继续查找 ?“, vbYesNo) If ans=vbYes Then pos=pos+Len(fstr) pos=InStr(pos, ostr, fstr) Else Exit Do End It Loop End Sub 步骤 3:调试并运

    12、行程序,关闭程序后按题目要求存盘。 三、综合应用题 5 【正确答案】 操作步骤 步骤 1:打开本题工程文件。 步骤 2:打开代码编辑窗口,去掉程序中的注释符 “”,将问号改为正确的内容。 参考代码 (画下划线部分是需填入的内容 ) Dim i, max, maxindex As Integer max=a(1) For i=2 To UBound(a) If a(i) max Then max=a(i) maxindex=i End If Next i List2 AddItem(a(maxindex) For i maxindex Then List2 AddItem(a(i) End If Next i 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。


    注意事项

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




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

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

    收起
    展开