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

    [计算机类试卷]VB机试模拟试卷4及答案与解析.doc

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

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

    [计算机类试卷]VB机试模拟试卷4及答案与解析.doc

    1、VB机试模拟试卷 4及答案与解析 一、基本操作题( 30分) 1 注意:下面出现的 “考生文件夹 ”均为 c:wexam25160001。 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1的窗体上建立一个名称为 Text1的文本框,一个名称为 Cmd1,标题为 “输出 ”的命令按钮,如图 4-1所示。要求程序运行后,在文本框输入几个字符,单击 “输出 ”按钮,则在窗体上显示文本框中的文字。 注意:在程序中不能使用任何变量。保存时必须存放在考生文件夹下,窗体文件名为 sjt1.frm,工程文件名为 sjt1.vbp。 (2)在名称为

    2、Form1的窗体上建立两个名称分别为 Cmd1和 Cmd2,标题为 “按钮一 ”和 “按钮二 ”的命令按钮,如图 4-2所示。要求程序运行后,如果单击 “按钮一 ”,则把 “按钮二 ”移到 “按钮一 ”上,使两个按钮重合,如图 4-3所示。 注意:在程序中不得使用任何变量 (必须通过属性设置来移动控件 )。保存时必须存放在考生文件夹下,窗体文件名为 sjt2.frm,工程文件名为sjt2.vbp 二、简单应用题( 40分) 2 注意:下面出现的 “考生文件夹 ”均为 c: wexam25160001。 (1)在窗体上建立一个名称为 Text1的文本框,然后建立两个主菜单,其标题分别为 “商品类

    3、别 ”和 “帮助 ”,名称分别为 vbMenu和 vbHelp,其中 “商品类别 ”菜单包括 “百货 ”、 “食品 ”和“家电 ”三个子菜单,名称分别为 vbMenu1、 vbMenu2和 vbMenu3。程序运行后,如果在 “商品类别 ”的下拉菜单中选择 “百货 ”,则在文本框内显示 “大类核算 ”;如果选择 “食品 ”,则在文本框内显示 “中类核算 ”;如果选择 “家电 ”,则在文本框内显示“小类核算 ”。程序中不能使用任何变量,直接显示字符串。程序 运行界面如图 6-3所示。 注意:保存时必须存放在考生文件夹下,窗体文件名为 sjt3.frm,工程文件名为 sjt3.vbp。 (2)在考

    4、生文件夹中有文件 sjt4.vbp及其窗体文件 sjt4.frm,该程序是不完整的,请在有 ? 号的地方填入正确内容,然后删除 ? 及所有注释符 (即,号 ),但不能修改其他部分。存盘时不得改变文件夹和文件名。 本题描述如下: 窗体上有一个名称为Text1的文本框:两个复选框,名称分别为 Ch1和 Ch2,标题分别为 “英语班 ”和 “计算机班 ”。要求程序运行后,如果只选中 Ch1,单击窗体,则在 文本框中显示 “报名参加英语班 ”;如果只选中 Ch2,然后单击窗体,则在文本框中显示 “报名参加计算机班 ”:如果同时选中 Ch1和 Ch2,单击窗体,则在文本框中显示 “报名参加英语班和计算机

    5、班 ”;如果 Ch1和 Ch2都不选取,在单击窗体后,则在文本框中什么都不显示。程序运行界面如图 6-4所示 三、综合应用题( 30分) 3 下面出现的 “考生文件夹 ”均为 c:wexam25160001。 在考生文件夹中有工程文件sjt5.vbp及其窗体文件 sjt5.frm,该程序是不完整的,请在有 ?号的地方填入正确内容,然后删除 ?及所有注释符 (即,号 )但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下: 在名称为 Form1的窗体上有一个文本框,名称为Text1, MultiLine属性为 True, ScrollBars属性为 2,两个命令按钮,名称分别为Cmd

    6、1和 Cmd2,标题分别为 “读入数据 ”和 “排序显示保存 ”,如图 5-6所示。程序运行后,如果单击 “读入数据 ”按钮,则读入 in.txt文件中的 100个整数,放入一个数组中 (数组下界为 1):如果单击 “排序显示保存 ”按钮,则对这 100个整数按从大到小进行排序,把排序后的全部数据在 文本框 Text1中显示出来,然后存入考生文件夹的 out.txt文件中。 (考生文件夹下的标准模块 model.bas中的 putdata过程可以把指定个数的数组元素存入 out txt文件。 )注意:文件必须存放在考生文件夹下,窗体文件名为 sjt5.frm,工程文件名 sjt5.vbp,排序

    7、结果存入 out.txt文件中,否则没有成绩。 VB机试模拟试卷 4答案与解析 一、基本操作题( 30分) 1 【正确答案】 (1)在窗体上建立好控件后,先设置控件属性,再编写事件过程。 通过命令按钮的 Caption属性来设置其 标题,单击命令按钮触发 Click事件;文本框显示内容是用 Text属性。文本框中的内容通过其 Text属性得到,在命令 按钮的Click事件中利用 Print方法将文本框中的内容输出,完成题目要求。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表 4-1。第二步:编写程序代码。 参考代码: Private Sub Cmd1_Click()

    8、Cls Print Text1.Text End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 (2)在窗体上建立好控件后,先设置控件的 属性,再编写事件过程。 命令按钮的 Caption属性用来设置其标题,单击命令按钮触发 Click事件,本题考查的是按钮的摆放位置的设置,涉及到对象的 Left和 Top属性。 Left表示控件与所在窗体的左边之间的距离, Top表示控件与所在窗体的顶边之间的距离。让两个按钮位置重合只需将两个按钮的 Left和 Top设置相同即可。 解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表 4-2。第二步:编写程序代码。 参考代

    9、码: Private Sub Cmd1_Click() Cmd2.Left = Cmd1.Left Cmd2.Top = Cmd1.Top End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 二、简单应用题( 40分) 2 【正确答案】 (1)在窗体上建立好控件后,先设置控件属性,再编写事件过程。 在 Visual Basic中,菜单也被看作控件,具有属性和事件。菜单的建立在菜单编辑器中完成,菜单的级数通过内缩符号来表示,第一级菜单没有内缩符号,第二级菜单的内缩符号为 1:文本框的内容由 Text属性设置。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属 性见

    10、表 6-3。第二步:编写程序代码。 参考代码: Private Sub vbMenu1_Click() Text1.Text=“大类核算 “ End Sub Private Sub vbMenu2_Click() Text1.Text=“中类核算 “ End Sub Private Sub vbMenu3_Click() Text1.Text=“小类核算 “ End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 (2)在窗体上建立好控件后,先设置控件属性,再编写事件过程。 在 Visual Basic中,复选按钮的标题由 Caption属性设置, Value属性用来表示复选框的状

    11、态,复选框的 Value属性有 0、 1或 2三种取值,其作用为: 0:表示未选中; 1:表示选中该复选框; 2:表示该复选框被禁止 (灰色 )。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表 6-4。第二步:编写程序代码。 程序提供的代码: Option Explicit Private Sub Form Click() Text1.Text = “ If Ch1.Value = ? Then Text1.TeXt = Text1.Text + “英语班 “ End If If Ch2.Value Then If Text1.Text “ Then Text1.Te

    12、xt = ? + “和 “ Text1.Text = Text1.Text + “计算机班 “ End If If Text1.Text “ Then Text1.Text = “报名 参加 “ + Text1.Text End If End Sub 参考代码: Option Explicit Private Sub Form Click() Text1.Text = “ If Ch1.Value = 1 Then Text1.Text = Text1.Text + “英语班 “ End If If Ch2.Value Then If Text1.Text “ Then Text1.Text

    13、= Text1.Text + “和 “ Text1.Text = Text1.Text + “计算机班 “ End If If Textl.Text “ Then Text1.Text = “报名参加 “ + Text1.Text End If End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 三、综合应用题( 30分) 3 【正确答案】 在窗体上建立好控件后,先设置控件属性,再编写事件过程。 文本框显示的内容由 Text属性设置:按钮的标题由 Caption属性设置,单击命令按钮触发 Click事件:在本题中涉及到文件的操作,读入顺序文件以顺序的方式打开,用 Input#语

    14、句读取数 据,另外需要注意的是对文件操作完后,一定要关闭文件。排序的方法有多种,如冒泡排序、选择排序等,本题用的是选择排序法。 选择法排序的思想是:每一次循环从数组的 n-i+1(I=1, 2, , n-1)个元素中选择一个值最小的元素与你 n-i+1个元素的前面那个元素交换位置,即与整个数组的第 i个位置的元素交换位置。如此下去,直到 i=n-1时,排序结束。解题步骤: 第一步:建立界面并设置控件的属性。程序中用到的控件及其属性见表 5-5。第二步:编写程序代码。 程序提供的代码。 model.bas代码: Sub putdata(a() As Integer, n As Integer)

    15、Dim sFile As String sFile =“out.txt“ Open App.Path & sFite For Output As #1 For i= 1 To n Print #1, a(i) ; Next Close #1 End Sub 窗体代码: Option Explicit Dim i(1 To 100) As Integer Private Sub Cmd1_ Click() Dim j As Integer Open App Path&“in.txt“For Input As #1 For j = ? To 100 Input #1, i(j) Text1.Tex

    16、t = Text1.Text & i(j) & Space(5) Next Close #1 End Sub Private Sub Cmd2_Click() Dim j As Integer Dim k As Integer Dim temp As Integer Dim flag As Boolean For j = 1 To 100 flag = ? For k = 1 To 100 - j If i(k) i(k + 1) Then temp = i (k) i(k) = i(k + 1) i(k + 1) = temp flag = True End If IQ If Not fla

    17、g Then Exit For End If Next Text1.Text = “ For j = 1 To 100 Text1.Text = Text1.Text & i(j) & Space(5) Next putdata i, 100 End Sub 参考代码: Option Explicit Dim i(1 To 100) As Integer Private Sub Cmd1_Click() Dim j As Integer Open App. Path& “in.txt“ For Input As #1 For j = 1 To 100 Input #1, i(j) Text1.

    18、Text = Text1.Text & i(j) & Space(5) Next Close #1 End Sub Private Sub Cmd2_Click() Dim j As Integer Dim k As Integer Dim temp As Integer Dim flag As Boolean For j = 1 To 100 flag = False For k = 1 To 100 - j If i(k) i(k + 1) Then temp = i (k) i(k) = i(k + 1) i(k + 1) = temp flag = True End If Next If Not flag Then Exit For End If Next Text1.Text = “ For j = 1 To 100 Text1.Text = Text1.Text & i(j) & Space(5) Next putdata i, 100 End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。


    注意事项

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




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

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

    收起
    展开