• 人力资源
  • 人力资源实操
  • 物流师
  • 营养师
  • ISO/TS16949
  • ISO9000/ISO14000
  • 在线题库
  • 更多 »
  • 一级 建造师
  • 土建 造价员
  • 二级建造师
  • 安装造价员
  • 安装预算
  • 土建预算
  • 装饰预算
  • 园林预算
  • 施 工员
  • 在线题库
  • 新概念英语1
  • 新概念英语2
  • 商务英语
  • 韩语初级
  • 韩语综合
  • 日语N4级
  • 日语N5级
  • 西班牙初级
  • 西班牙中级
  • 在线题库
  • 三菱PLC
  • 西门子PLC
  • 变频器
  • 单片机C程序
  • 机械制图
  • 建筑弱电工程
  • 初级素描
  • 素材高级班
  • 素材中级班
  • 速写
  • 硬/软笔书法
  • 墙绘
  • 水粉色彩
  • 小小服装
  • 网页 设计
  • 网络 工程
  • 网站 开发
  • 电脑 组装与维修
  • 计算 机二级
  • 计算 机等级
  • C语 言
  • VB语 言
  • MYSQL数据库
  • 思科 设备
  • 您现在的 位置: 亚搏全站客户端官网版上元教育 >> 电脑培训 >> 考试资讯 >> 正文

    【考试资讯】2012年计算机二级VB上机试题及解题思路

    来源:上元教育   【上元教育:技能改变命运,上元成就未来】   2012-7-10
    上元教育集团是一家综合性培训学校,每年为长三角地区输送万余名技能型人才!选择上元教育,就是选择成功!

      1. 基本操作(2小题,每小题15分,共计30分)

      注意:下面出现的“考生文件夹”均为%USER%

      请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

      (1)在名称为Form1的窗体上画一个名称为CD1的通用对话框,通过属性窗口设置CD1的初始路径为C:\,默认的文件名为None,,标题为“保存等级考试”。请编写窗体的Load事件过程,使得程序运行时,该对话框打开为保存文件对话框(如图所示)。要求程序中不得使用变量,每个事件过程中只能写一条语句。

      注意:

      存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。

      解题思路:

      启动Visual Basic系统,创建一个Form1窗体。

      在该窗体上画一个通用对话框控件,通过其属性窗口将名称设为CD1,DialogTitle属性设为“保存等级考试”,FileName属性设为None,InitDir属性设为c:\。

      在Private Sub Form_Load()事件过程中加入语句:

      Private Sub Form_Load()

      CD1.ShowSave

      End Sub

      参考文件:c:\wexam\26990001\hlpsys\参考答案\sjt1.vbp、sjt1.frm、sjt1.vbw

      请把这些文件复制到c:\wexam\26990001中,然后打开sjt1.vbp文件并运行。

      (2)在名称为 Form1的窗体上设计一个弹出式菜单。要求如下:

      按以上要求设置菜单项,并编写适当的事件过程,使得在窗体上单击鼠标右键弹出该菜单,如图所示。要求程序中不得使用变量。

      注意:

      存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm

      解题思路:

      启动Visual Basic系统,创建一个Form1窗体。

      在该窗体上通过菜单编辑器建立一个主菜单,在菜单编辑器的标题处输入“右键菜单”,名称处输入mnu0。

      在“右键菜单”菜单下有三个子菜单,在菜单编辑器的标题处分别输入“菜单命令”、“不可用菜单”和“带标记的菜单项”,名称处分别输入mnu1、mnu2和mnu3。

      在Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

      事件过程中加入语句:

      Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

      If Button = 2 Then

      Call PopupMenu(mnu0)

      End If

      End Sub

      参考文件:c:\wexam\26990001\hlpsys\参考答案\sjt2.vbp、sjt2.frm、sjt2.vbw

      请把这些文件复制到c:\wexam\26990001中,然后打开sjt2.vbp文件并运行。

      2. 简单应用(2小题,每题20分,计40分)

      注意:下面出现的“考生文件夹”均为%USER%

      (1)在考生文件夹中有工程文件 sjt3.vbp,其中的窗体如图所示。程序刚运行时,会生成一个有 10个元素的整型数组。若选中“查找最大值”(或“查找最小值”)单选按钮,再单击“查找”按钮,则找出数组中的最大值(或最小值),并显示在标签Label2中。请去掉程序中的注释符,把程序中的 ?改为正确的内容。

      注意:

      考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文件名存盘。

      解题思路:

      启动Visual Basic系统,打开考生文件夹下需编辑的工程文件sjt3.vbp,相应的窗体文件名为sjt3.frm。

      由于所提供的窗体程序不完整,在Private Sub Command1_Click()事件过程中,有四处地方需要修改。

      1) 将语句

      'If a(i) ? x Then

      改为

      If a(i) > x Then

      2) 将语句

      '? = a(i)

      改为

      x = a(i)

      3) 将语句

      'ElseIf a(i) ? Then

      改为

      ElseIf a(i) < y Then

      4) 将语句

      '? = a(i)

      改为

      y = a(i)

      参考文件:c:\wexam\26990001\hlpsys\参考答案\sjt3.vbp、sjt3.frm、sjt3.vbw

      请把这些文件复制到c:\wexam\26990001中,然后打开sjt3.vbp文件并运行。

      (2)在考生文件夹中有一个工程文件sjt4.vbp。窗体上已有控件,如图所示。请在属性窗口中将List1设置为可以多项选择(允许使用Shift或Ctrl进行选择)列表项。要求:双击List1 中的某一项时,被选中的项目被添加到List2中,同时清除List1中相应的项目。若单击“>>”(List2 中已有项目不变)按钮,List1 中所有的项目显示在List2中,List1中的内容不变。

      要求:

      按照题目要求设置控件属性,去掉程序中的注释符,把程序中的?改为正确的内容。

      注意:

      不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。

      解题思路:

      启动Visual Basic系统,打开考生文件夹下需编辑的工程文件sjt4.vbp,相应的窗体文件名为sjt4.frm。

      由于所提供的窗体控件属性不完整,通过List1属性窗口将MultiSelect属性设为Simple。

      由于所提供的窗体程序不完整,在Public Sub MoveItem(L1 As ListBox, L2 As ListBox)事件过程中,有二处地方需要修改。

      1) 将语句

      'L2.AddItem ?

      改为

      L2.AddItem L1.List(L1.ListIndex)

      2) 将语句

      'L1.RemoveItem ?

      改为

      L1.RemoveItem L1.ListIndex

      在Public Sub MoveAll()事件过程中,有一处地方需要修改。

      1) 将语句

      'For i = 0 To ?

      改为

      For i = 0 To List1.ListCount - 1

      在Private Sub List1_DblClick()事件过程中,有一处地方需要修改。

      1) 将语句

      'Call MoveItem(?)

      改为

      Call MoveItem(List1, List2)

      参考文件:c:\wexam\26990001\hlpsys\参考答案\sjt4.vbp、sjt4.frm、sjt4.frx、sjt4.vbw

      请把这些文件复制到c:\wexam\26990001中,然后打开sjt4.vbp文件并运行。

      3. 综合应用(1小题,计30分)

      注意:下面出现的“考生文件夹”均为%USER%

      在考生文件夹中有一个工程文件sjt5.vbp,如图所示。运行程序时,从文件中读入矩阵数据并放入二维数组 a中。单击“计算”命令按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果显示在标签lblFirst中;同时计算矩阵主对角线的元素之和,计算结果显示在标签 lblSecond中。要求:工程文件中已给出部分程序,请编写"计算"命令按钮事件过程中的部分

      程序代码,以便完成上述功能。

      注意:

      不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后,必须执行程序,并用“计算”按钮进行计算,否则无成绩。

      解题思路:

      启动Visual Basic系统,打开考生文件夹下需编辑的工程文件sjt5.vbp,相应的窗体文件名为sjt5.frm。

      由于所提供的窗体程序不完整,需添加事件过程。

      单击“计算”按钮(即运行Click事件过程),在该Click事件过程中加入语句:

      Private Sub Command1_Click()

      Dim Sum As Long

      N = 7

      Counter = 0

      Sum = 0

      '===============考生编写程序开始======================

      For k = 1 To N

      Sum = Sum + a(k, k)

      If a(k, k) / 3 = Int(a(k, k) / 3) Then

      Counter = Counter + 1

      End If

      If k <> N - k + 1 Then

      Sum = Sum + a(k, N - k + 1)

      If a(k, N - k + 1) / 3 = Int(a(k, N - k + 1) / 3) Then

      Counter = Counter + 1

      End If

      End If

      Next

      lblSecond.Caption = Sum

      lblFirst.Caption = Counter

      '===============考生编写程序结束======================

      Save

      End Sub

      参考文件:c:\wexam\26990001\hlpsys\参考答案\sjt5.vbp、sjt5.frm、sjt5.vbw、out5.txt

      请把这些文件复制到c:\wexam\26990001中,然后打开sjt5.vbp文件并运行。

    编辑:yzsy007  

    分享到: 更多

    开课信息

    相关文章