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

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

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

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

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

    1、国家二级 VB机试(上机操作)模拟试卷 413及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上添加一个名称为 Command1的命令按钮,标题为 “打开文件 ”,再添加一个名称为 CD1的通用对话框。程序运行后,如果单击命令按钮,则弹出打开文件对话框,请按下列要求设置属性和编写代码: 设置适当属性,使对话框的标题为 “打开文件 ”; 设置适当属性,使对话框的 “文件类型 ”下拉式组合框中有两项可供选择: “文本文件 ”、 “所有文件 ”(如图所示 ),默认的类型是 “所有文件 ”; 编写命令按钮的事件过程,使得 单击按钮可以弹出 “打开文件 ”对话框。 要求:程序中不得使用

    2、变量,事件过程中只能写入一条语句。 注意:存盘时必须存放在考生文件夹下,工程文件名保存为 sjt1 vbp,窗体文件名保存为 sjt1 frm。 (2)在名称为 Form1的窗体上添加一个名称为 Command1的命令按钮,其标题为 “移动本按钮 ”,如图所示。 要求编写适当的事件过程,使得程序运行时,每单击按钮一次,按钮向左移动 100。 要求:程序中不得使用变量,事件过程中只能写入一条语句。 注意:存盘时必须存放在考生文件夹下,工程文件名保存为 sjt2 vbp,窗体文件名保存为 sjt2 frm。 二、简单应用题 2 (1)在名称为 Form1的窗体上添加一个名称为 Label1、标题为

    3、 “添加项目 ”的标签;添加一个名称为 Text1的文本框,初始内容为空;添加一个名称为 Combol的下拉式组合框,并通过属性窗口输入若干项目 (不少于 3个,内容任意 );再添加两个命令按钮,名称分别为 Command1、 Command2,其标题分别为 “添加 ”、 “统计 ”。在程序运行时,向 Text1中输入字符,单击 “添加 ”按钮后,则将 Text1中的内容作为一个列表项被添加到组合框的列表中;单击 “统计 ”按钮,则在窗体空白处显示组合框中列表项的个数,如图所示。请编写两个命令按钮的 Click事件过程。注意:程序中不得使用变量,也不能使用循环结构。存盘时必须存放在考生文件夹下

    4、,工程文件名保存为sjt3 vbp,窗体文件名保存为 sjt3 frm。 (2)在考生文件夹下有一个工程文件sjt4 vbp,其窗体如图所示。该程序用来对在上面的文本框中输入的英文字母串(称为 “明文 ”)加密,加密结果 (称为 “密文 ”)显示在下面的文本框中。加密的方法为:选中一个单选按钮,单击 “加密 ”按钮后,根据选中的单选按钮后面的数 字 n,将 “明文 ”中的每个字母改为它后面的第 n个字母 (“z”后面的字母认为是 “a”, “z”后面的字母认为是 “A”),如图所示。窗体中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的 ?改为正确的内容。注意:不得修改

    5、程序中的其他部分和控件的属性。最后将修改后的文件按原文件名存盘。 三、综合应用题 3 考生文件夹下有一个工程文件 sjt5 vbp,窗体上有两个文本框,名称分别为Text1、 Text2,都可以多行显示。还有三个命令按钮,名称分别为 C1、 C2、 C3,标题分别为 “取数 ”、 “排 序 ”、 “存盘 ”。 “取数 ”按钮的功能是将考生文件夹下的in5 dat文件中的 50个整数读到数组中,并在 Text1中显示出来; “排序 ”按钮的功能是对这 50个数按升序排序,并显示在 Text2中; “存盘 ”按钮的功能是把排好序的 50个数存到考生目录下的 out5 dat文件中,如图所示。在窗体

    6、中已经给出了全部控件和部分程序代码,要求阅读程序并去掉程序中的注释符,把程序中的 ?改为正确的内容,并编写 “排序 ”按钮的 Click事件过程,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。最后将修改后的文件按原文 件名存盘。 国家二级 VB机试(上机操作)模拟试卷 413答案与解析 一、基本操作题 1 【正确答案】 (1)【操作步骤】 步骤 1:新建一个窗体,按照要求建立控件并设置其属性,如图 3 21所示。程序中用到的控件及属性见表 3 13。步骤 2:打开代码编辑窗口,在指定位置编写如下代码。 参考答案 Private sub Command1_Click() C

    7、D1 Show Open 显示打开文件对话框 End Sub 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1:新建一个 窗体,按照要求建立控件并设置相应属性如表 3 14所示。步骤 2:打开代码编辑窗口,在指定位置编写如下代码。 参考答案 Private sub Command1_Click() Command1 Left Command1 Left 100 End Sub 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 二、简单应用题 2 【正确答案】 (1)【操作步骤】 步骤 1:新建一个窗体,按照题目要求建立控件并设置控件属性,如图 3 22所示

    8、。程序中用到的控件及属性设置见表 3 15。 步骤 2:打开代码编辑窗口,在指定位置编写如下代码。 参考答案 Private Sub Command1_Click() Combo1 AddItem Text1 End Sub Private Sub Command2_Click() Print Combo1 ListCount End Sub 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1:打开本题工程文件。 步骤 2:打开代码编辑窗口,去掉程序中的注释符 “”,将问号改为正确的内容。 参考答案 Private Sub Command1_C1ick() Di

    9、m n As Integer, k As Integer, m As Integer Dim c As String, a As String For k 0 To 2 If Op1(k) Value Then n Val(Op1(k) Caption) End工 f Next k m Len(Text1 Text) a “ “ For k 1 To m c Mid $ (Text1 Text, k, 1) c String(1, Asc(c) n) If c “Z“Or c “Z“And c “a“Then c String(1, Asc(c) 26) End If a a c Next k

    10、 Text2 Text a End Sub 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1:打开本题工程文件。 步骤 2:打开代码编辑窗口,去掉程序中的注释符 “”,将问号改为正确的内容,并编写代码。 参考答案 Dim a(50) As Integer Private Sub C1_C1ick() Dim k As Integer, ch As String Open“in5 dat“For Input As #1 ch “ “ For k 1 TO 50 Input #1, a(k) 将取出的数据存入数组 a中 ch ch St

    11、r(a(k) “ “ 将数据存入 ch Next k Close #1 Text1 Text ch 在 Text1文本框中显示文件内容 End Sub Private Sub C2_Click() End Sub Private Sub C3_Click() Open“out5 dat“For Output As #1 Print #!, Text2 Text Close #! End Sub 需编写的 “排序 ”按钮的代码 Private Sub C2_Click() Dim t As Integer Dim i As Integer Dim J As Integer Dim ch As String ch “ “ For i 50 To 2 Step 1使用冒泡算法从小 到大排序 For j 1 To 49 If a(j) a(j 1) Then 两 t a(j 1) a(j 1) a(j) a(j) t End If Next j Next i For j 1 To 50 将排序后的数组重新赋给 ch ch ch Str(a(j) “ “ Next j Text2 Text ch End Sub 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。


    注意事项

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




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

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

    收起
    展开