1、二级 VISUAL+BASIC 机试-121 及答案解析(总分：100.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：30.00)请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。（分数：30.00）(1).在名称为 Form1 的窗体上画一个名称为 Label1、标题为“设置速度”的标签，通过属性窗口把标签的大小设置为自动调整。画一个名称为 Hscroll1 的水平滚动条，通过属性窗口设置适当属性使滚动条的最大值为 80，最小值为 1，单击滚动条两端的箭头时，滚动框移动 2，滚动框的初始值为 30。程序运行后的窗体如图 1 所示。*注意：存盘时
2、必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。（分数：15.00）_(2).在名称为 Form1 的窗体上画一个名称为 Shape1 的形状控件，画两个名称分别为Command1、Command2，标题分别为“圆形”、“红色边框”的命令按钮。将窗体的标题设置为“图形控件”，如图 2 所示。请编写适当的事件过程使得在运行时，单击“圆形”按钮将形状控件设为圆形。单击“红色边框”按钮，将形状控件的边框颜色设为红色(&HFF&)，如图 3 所示。*注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2.
3、vbp，窗体文件名为 sjt2.frm。（分数：15.00）_二、简单应用题(总题数：1，分数：40.00)完成下列问题：（分数：40.00）(1).在考生文件夹下有一个工程文件 sjt3.vbp，含有名称分别为 Form1、Form2 的两个窗体。其中 Form1上有 2 个控件(图像框和计时器)和 1 个菜单项“操作”，含有 3 个菜单命令(如图 4 所示)。Form2 上有一个名称为 Command1、标题为“返回”的命令按钮(如图 5 所示)。要求当单击“窗体 2”菜单命令时，隐藏Form1，显示 Form2。单击“动画”菜单命令时，使小汽车开始移动，一旦移到窗口的右边界时自动跳到窗体
4、的左边界重新移动。单击“退出”菜单命令时，结束程序运行。在程序中的横线处填写正确的内容。*注意：考生不得修改窗体文件中已经存在的程序，最后程序按原文件名存盘。题目提供的源程序Form1 的源程序：Private Sub mnuOper_Click(Index As Integer)Select Case (1) Case 1Form2.ShowForm1.HideCase 2Timer1.Enabled= (2) Case 3EndEnd SelectEnd SubPrivate Sub Timer1_Timer()Picture1.Left=Picture1.Left+100If Pictu
5、re1.Left+Picture1.Width= (3) ThenPicture1.Left= (4) End IfEnd SubForm2 的源程序：Private Sub Command1_Click()Form1.ShowForm2.HideEnd Sub（分数：20.00）_(2).在考生文件夹下有一个工程文件 sjt4.vbp。其窗体上已有部分控件，请按照图 6 所示添加框架和单选按钮。请画 2 个框架，名称分别为 Frame1、Frame2，在 Frame1 中添加一个名为 Option1 的单选按钮数组，含两个单选按钮，标题分别为“古典音乐”、“流行音乐”；在名称为 Frame2
6、 中添加 2 个单选按钮，名称分别为 Option2、Option3，标题分别为“篮球”、“羽毛球”。刚运行程序时，“古典音乐”和“篮球”单选按钮为选中状态。单击“选择”按钮，将把选中的单选钮的标题显示在标签 Label2 中，如图 7 所示。如果“音乐”或“体育”复选框未被选中，则相应的单选按钮不可选。*要求：按照题目要求添加控件，在程序中的横线处填写正确的内容。注意：不能修改程序的其他部分和控件属性，最后把修改后的文件按原文件名存盘。题目提供的源程序Private Sub Check2_Click()If Check2.Value=1 ThenFrame2.Enabled=TrueElse
7、Frame2.Enabled=FalseEnd IfEnd SubPrivate Sub Command1_Click()If Check1.Value=1 ThenIf (1) =True Thens=“古典音乐“Elses=“流行音乐“End IfEnd IfIf Check2.Value=1 ThenIf (2) =True Thens=s & “篮球“Elses=s & “羽毛球“End IfEnd IfLabel2.Caption= (3) End SubPrivate Sub Form_Load()Check1.Value=1Check2.Value=1End Sub（分数：20.
8、00）_三、综合应用题(总题数：1，分数：30.00)1.在考生文件夹下有一个工程文件 sjt5.vbp，其功能是：找出矩阵元素的最大值，并求出矩阵对角线元素之和，窗体外观如图 8 所示。程序运行时，矩阵数据被放入二维数组 a 中。当单击“找矩阵元素最大值”命令按钮时，找出矩阵中最大的数，并显示在标签 Label3 中。当单击“对角线元素之和”命令按钮时，计算矩阵主对角线元素之和，并显示在标签 Label4 中。文件中已给出部分程序，请编写“找矩阵元素最大值”及“对角线元素之和”两个命令按钮的事件过程中的部分程序代码。（分数：30.00）_二级 VISUAL+BASIC 机试-121 答案解析
9、(总分：100.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：30.00)请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。（分数：30.00）(1).在名称为 Form1 的窗体上画一个名称为 Label1、标题为“设置速度”的标签，通过属性窗口把标签的大小设置为自动调整。画一个名称为 Hscroll1 的水平滚动条，通过属性窗口设置适当属性使滚动条的最大值为 80，最小值为 1，单击滚动条两端的箭头时，滚动框移动 2，滚动框的初始值为 30。程序运行后的窗体如图 1 所示。*注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，
10、窗体文件名为 sjt1.frm。（分数：15.00）_正确答案：(操作步骤第 1 步：新建立一个标准 EXE 工程，保持窗体所有属性不变。第 2 步：添加一个标签控件，将其 Caption 属性设置为“设置速度”，AutoSize 属性设置为 True。第 3 步：在窗体上添加一个水平滚动条，设置其 Min 值为 1，Max 值为 80，Value 属性值为30，SmallChange 值为 2。第 4 步：调试、运行并保存程序。)解析：解析 标签控件的内容由 Caption 属性决定，如果将 AutoSize 属性设置为 True，则标签控件会自动调整大小以适应标签文字。滚动条的刻度范围由
11、Min 和 Max 两个属性决定，对于本题只需将滚动条的Min 属性设置为 1，Max 属性设置为 80 即可满足刻度范围要求；滚动条上滑块的当前值由 Value 属性决定；单击滚动条两端箭头时，滑块移动的大小由 SmallChange 属性决定。(2).在名称为 Form1 的窗体上画一个名称为 Shape1 的形状控件，画两个名称分别为Command1、Command2，标题分别为“圆形”、“红色边框”的命令按钮。将窗体的标题设置为“图形控件”，如图 2 所示。请编写适当的事件过程使得在运行时，单击“圆形”按钮将形状控件设为圆形。单击“红色边框”按钮，将形状控件的边框颜色设为红色(&HFF
12、&)，如图 3 所示。*注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。（分数：15.00）_正确答案：(操作步骤第 1 步：新建一个标准 EXE 工程，保持窗体所有属性不变。第 2 步：添加一个形状控件。在窗体上画一个适当大小的形状控件。第 3 步：添加两个命令按钮。一个的 Caption 属性设置为“圆形”，另一个的 Caption 属性设置为“边框红色”。第 4 步：编写代码。为两个命令按钮编写 Click 事件过程如下：Private Sub Command1_Click()Sha
13、pe1.Shape=3End SubPrivate Sub Command2_Click()Shape1.BorderColor=&HFF&End Sub第 5 步：调试、运行并保存程序。)解析：解析 形状控件的形状由其 Shape 属性决定，Shape 属性值为 3-Circle 时形状控件呈圆形。形状控件的边框颜色由 BorderColor 属性决定。二、简单应用题(总题数：1，分数：40.00)完成下列问题：（分数：40.00）(1).在考生文件夹下有一个工程文件 sjt3.vbp，含有名称分别为 Form1、Form2 的两个窗体。其中 Form1上有 2 个控件(图像框和计时器)和
14、1 个菜单项“操作”，含有 3 个菜单命令(如图 4 所示)。Form2 上有一个名称为 Command1、标题为“返回”的命令按钮(如图 5 所示)。要求当单击“窗体 2”菜单命令时，隐藏Form1，显示 Form2。单击“动画”菜单命令时，使小汽车开始移动，一旦移到窗口的右边界时自动跳到窗体的左边界重新移动。单击“退出”菜单命令时，结束程序运行。在程序中的横线处填写正确的内容。*注意：考生不得修改窗体文件中已经存在的程序，最后程序按原文件名存盘。题目提供的源程序Form1 的源程序：Private Sub mnuOper_Click(Index As Integer)Select Case
15、 (1) Case 1Form2.ShowForm1.HideCase 2Timer1.Enabled= (2) Case 3EndEnd SelectEnd SubPrivate Sub Timer1_Timer()Picture1.Left=Picture1.Left+100If Picture1.Left+Picture1.Width= (3) ThenPicture1.Left= (4) End IfEnd SubForm2 的源程序：Private Sub Command1_Click()Form1.ShowForm2.HideEnd Sub（分数：20.00）_正确答案：(操作步骤
16、第 1 步：打开工程文件 sjt3.vbp。第 2 步：修改程序。第 3 步：调试、运行并保存程序。lIndex 2True 3Form1.Width 4-Picture1.Width)解析：解析 本题中使用了菜单控件数组，与其他控件数组一样，菜单控件数组事件过程中也采用Index 参数来标识菜单，Index=1，则显示第二个窗体，Index=2，则开始移动小汽车；Index=3，则退出程序。小汽车的移动是在计时器控件 Timer1 的 Timer 事件中完成的，只要 Timer1 的 Enabled 属性值为True，Interval 属性值大于 0，则会按照 Interval 属性指定的时
17、间间隔不停地执行 Timer 事件过程，以达到移动小汽车的目的。小汽车放在图像框中，要小汽车从左向右移动，只需要在图像框原有 Left 属性值以固定值定时增加即可。(2).在考生文件夹下有一个工程文件 sjt4.vbp。其窗体上已有部分控件，请按照图 6 所示添加框架和单选按钮。请画 2 个框架，名称分别为 Frame1、Frame2，在 Frame1 中添加一个名为 Option1 的单选按钮数组，含两个单选按钮，标题分别为“古典音乐”、“流行音乐”；在名称为 Frame2 中添加 2 个单选按钮，名称分别为 Option2、Option3，标题分别为“篮球”、“羽毛球”。刚运行程序时，“古
18、典音乐”和“篮球”单选按钮为选中状态。单击“选择”按钮，将把选中的单选钮的标题显示在标签 Label2 中，如图 7 所示。如果“音乐”或“体育”复选框未被选中，则相应的单选按钮不可选。*要求：按照题目要求添加控件，在程序中的横线处填写正确的内容。注意：不能修改程序的其他部分和控件属性，最后把修改后的文件按原文件名存盘。题目提供的源程序Private Sub Check2_Click()If Check2.Value=1 ThenFrame2.Enabled=TrueElseFrame2.Enabled=FalseEnd IfEnd SubPrivate Sub Command1_Click(
19、)If Check1.Value=1 ThenIf (1) =True Thens=“古典音乐“Elses=“流行音乐“End IfEnd IfIf Check2.Value=1 ThenIf (2) =True Thens=s & “篮球“Elses=s & “羽毛球“End IfEnd IfLabel2.Caption= (3) End SubPrivate Sub Form_Load()Check1.Value=1Check2.Value=1End Sub（分数：20.00）_正确答案：(操作步骤第 l 步：打开工程文件 sjt4.vbp。第 2 步：添加第一个框架，在窗体上画一个框架控
20、件，保留名称 Frame1 不变，删除其 Caption 属性中原有内容。第 3 步：添加单选按钮数组，在框架 Frame1 中画一个单选按钮，保持名称 Option1 不变，修改其Caption 属性为“古典音乐”，修改其 Index 属性为 0；再在框架 Frame1 内画一个单选按钮，将其名称改为 Option1，Caption 属性改为“流行音乐”，Index 属性改为 1。第 4 步：添加第二个框架，在窗体上再画一个框架控件 Frame2，保持其名称 Frame2 不变，删除其Caption 属性中的内容。第 5 步：添加单选按钮，在框架 Frame2 中添加一个单选按钮，保持其名称
21、 Option2 不变，修改其Caption 属性为“篮球”；再在 Frmae2 中添加一个单选按钮，保持其名称 Option3 不变，修改其 Caption属性为“羽毛球”。第 6 步：修改程序。第 7 步：调试、运行并保存程序。1Option1(0).Value 或 Option1(0) 2Option2.Value 或 Option2 3s)解析：解析 本题首先需要添加控件，添加控件时需要注意两个方面：一是必须先画框架控件，再在框架之内画单选按钮；二是框架 Frame1 内的两个单选按钮属于一个单选按钮控件数组，可以通过修改这两个单选按钮的名称和 Index 属性值来实现。编写代码时，各
22、框架内的单选按钮为一组，分别进行是否选定的判断。三、综合应用题(总题数：1，分数：30.00)1.在考生文件夹下有一个工程文件 sjt5.vbp，其功能是：找出矩阵元素的最大值，并求出矩阵对角线元素之和，窗体外观如图 8 所示。程序运行时，矩阵数据被放入二维数组 a 中。当单击“找矩阵元素最大值”命令按钮时，找出矩阵中最大的数，并显示在标签 Label3 中。当单击“对角线元素之和”命令按钮时，计算矩阵主对角线元素之和，并显示在标签 Label4 中。文件中已给出部分程序，请编写“找矩阵元素最大值”及“对角线元素之和”两个命令按钮的事件过程中的部分程序代码。（分数：30.00）_正确答案：(操
23、作步骤第 l 步：打开工程 sjt5.vbp。第 2 步：编写程序，参考程序如下。Private Sub Command1_Click()考生应编写的程序Dim i As Integer, j As Integer, max As Integermax=a(1,1)For i=1 To 4For j=1 To 4If a(i,j)max Then max=a(i,j)Next jNext iLabel3=max不得修改以下部分save Label3End SubPrivate Sub Command2_Click()考生应编写的程序Dim sum As Integer, i As Intege
24、r, j As Integersum=0For i=1 To 4For j=1 To 4If i=j Then sum=sum+a(i,j)Next jNext iLabel4=sum不得修改以下部分save Label4End Sub第 3 步：调试、运行并保存程序。)解析：解析 为找出矩阵中最大的数，原程序在 Form_Load 事件过程中将所有数据读入到二维数组 A 中，先假定数组中任意一个元素为最大值，再遍历整个数组，用数组元素与假定的最大值比较，如果发现新的更大的值，则将新的更大的值假定为最大值；继续比较，直到数组的最后一个元素比较完毕为止。为计算矩阵主对角线元素之和，也要遍历二维数组，找出行标和列标相等的元素即为二维数组(矩阵)对角线上的元素，将这样的元素累加起来就得到了对角线上元素的和。
