【考试资讯】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  

分享到: 更多

开课信息

相关文章