国二级VB上机题46-5510套.doc

第46套1. 基本操作（2小题，每小题15分，共计30分） 注意：下面出现的“考生文件夹”均为%USER%* 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 （1）在名称为Form1 的窗体上画一个名称为Label1、标题为“设置速度”的 标签，通过属性窗口把标签的大小设置为自动调整。画一个名称为 HScroll1的水平滚动条，通过属性窗口设置适当属性使滚动条的最大值 为80 ，最小值为1，单击滚动条两端的箭头时， 滚动框移动2，滚动框 的初始值为30。程序运行后的窗体如图所示。 注意： 存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件 名为sjt1.frm。* （2）在名称为Form1的窗体上画一个名称为Shape1的形状控件，画两个名称分 别为Command1、Command2，标题分别为“圆形”、 “红色边框”的命令 按钮。将窗体的标题设置为“图形控件”，如图1所示。请编写适当的事 件过程使得在运行时，单击“圆形”按钮将形状控件设为圆形。单击“ 红色边框”按钮， 将形状控件的边框颜色设为红色（&HFF&），如图2所 示。 注意： 要求程序中不得使用变量，每个事件过程中只能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件 名为sjt2.frm。2. 简单应用（2小题，每题20分，计40分） 注意：下面出现的“考生文件夹”均为%USER%* （1）在考生文件夹下有一个工程文件sjt3.vbp，含有名称分别为Form1、Form2 的两个窗体。 其中Form1上有两个控件（图像框和计时器）和一个菜单项 “操作”，含有三个菜单命令（ 如图 1所示 ）。Form2 上有一个名称为 Command1、标题为“返回”的命令按钮（如图 2所示）。要求当单击“窗 体2”菜单命令时，隐藏Form1，显示Form2。 单击“动画”菜单命令时， 使小汽车开始移动，一旦移到窗口的右边界时自动跳到窗体的左边界重新 移动。单击“退出”菜单命令时，结束程序运行。请去掉程序中的注释符 ，把程序中的 ？改为正确的内容。 注意： 考生不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。* （2）在考生文件夹下有一个工程文件sjt4.vbp。其窗体上已有部分控件，请按 照如图 1所示添加框架和单选按钮。 要求： 画二个框架， 名称分别为 Frame1、Frame2，在Frame1 中添加一个名为Option1的单选按钮数组，含 二个单选钮，标题分别为“古典音乐”、“流行音乐”，在名称为Frame2 中添加二个单选按钮，名称分别为Option2、Option3，标题分别为“篮球 ”、“羽毛球”。刚运行程序时，“古典音乐”和“篮球”单选钮为选中 状态。单击 “选择” 按钮，将把选中的单选钮的标题显示在标签Label2 中，如图 2所示。如果“音乐”或“体育”未被选中，相应的单选钮不可 选。 要求： 按照题目要求添加控件，去掉程序中的注释符，把程序中的 ？ 改为正 确的内容。 注意： 不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名 存盘。3. 综合应用（1小题，计30分） 注意：下面出现的“考生文件夹”均为%USER% 在考生文件夹中有一个工程文件sjt5.vbp，其功能是：找出矩阵元素的最大 值，并求出矩阵对角线元素之和，窗体外观如图所示。程序运行时，矩阵数 据被放入二维数组a 中。当单击“找矩阵元素最大值”命令按钮时，找出矩 阵中最大的数，并显示在标签Label3中。当单击“对角线元素之和”命令按 钮时，计算矩阵主对角线元素之和，并显示在标签Label4中。文件中已给出 部分程序，请编写“找矩阵元素最大值”及“对角线元素之和”两个命令按 钮的事件过程中的部分程序代码。 注意： 不得修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存 盘。程序调试通过后，两个命令按钮的事件过程必须至少各执行一次。第46套答案一、基本操作题第1小题 启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个标签控件，通过其属性窗口将名称设为Label1，标题（Caption属性）设为“设置速度”，AutoSize属性设为True。画一个水平滚动条控件，通过其属性窗口将名称设为HScroll1，最大值（Max属性）设为80，最小值（Min属性）设为1，最小移动（SmallChange属性）设为2，初始值（Value属性）设为30。参考文件：c:wexam26990001hlpsys参考答案sjt1.vbp、sjt1.frm、sjt1.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt1.vbp文件并运行。第2小题 启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个形状控件，通过其属性窗口将名称设为Shape1。画一个目录列表框控件，通过其属性窗口将名称设为Dir1。画二个命令按钮控件，通过其属性窗口将名称分别设为Command1和Command2，标题（Caption属性）分别设为“圆形”和“红色边框”。 单击“圆形”按钮（即运行Click事件过程），在该Private Sub Command1_Click()事件过程中加入语句：Private Sub Command1_Click() Shape1.Shape = 3End Sub 单击“红色边框”按钮（即运行Click事件过程），在该Private Sub Command2_Click()事件过程中加入语句：Private Sub Command2_Click() Shape1.BorderColor = &HFF&End Sub参考文件：c:wexam26990001hlpsys参考答案sjt2.vbp、sjt2.frm、sjt2.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt2.vbp文件并运行。二、简单应用题第1小题 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt31.frm和sjt32.frm。 由于sjt31.frm所提供的窗体程序不完整，单击子菜单命令，即运行Private Sub mnuOper_Click(Index As Integer)事件过程，在该事件过程中，有二处地方需要修改。1) 将语句 Select Case ? 改为 Select Case Index2) 将语句 Timer1.Enabled =? 改为 Timer1.Enabled = True 在计时器的Private Sub Timer1_Timer()事件过程中，有二处地方需要修改。1) 将语句 If Picture1.Left + Picture1.Width = ? Then 改为 If Picture1.Left + Picture1.Width = Width Then2) 将语句 Picture1.Left = ? 改为 Picture1.Left = 0参考文件：c:wexam26990001hlpsys参考答案sjt3.vbp、sjt31.frm、sjt31.frx、sjt32.frm、sjt3.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt3.vbp文件并运行。第2小题 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。 由于所提供的窗体控件不完整，需画二个框架控件，通过其属性窗口将名称分别设为Frame1和Frame2。在Frame1中画一个单选按钮数组控件，含有二个单选钮，通过其属性窗口将名称设为Option1，标题（Caption属性）分别设为“古典音乐”和“流行音乐”。在Frame1中画二个单选按钮控件，通过其属性窗口将名称分别设为Option2和Option3，标题（Caption属性）分别设为“篮球”和“羽毛球”。 由于所提供的窗体程序不完整，在Private Sub Command1_Click()事件过程中，有三处地方需要修改。1) 将语句 If ? = True Then 改为 If Option1(0).Value = True Then2) 将语句 If ? = True Then 改为 If Option2.Value = True Then3) 将语句 Label2.Caption = ? 改为 Label2.Caption = s参考文件：c:wexam26990001hlpsys参考答案sjt4.vbp、sjt4.frm、sjt4.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt4.vbp文件并运行。三、综合应用题 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。 由于所提供的窗体程序不完整，需在“找矩阵元素最大值”命令按钮的Click事件过程中加入语句：Private Sub Command1_Click() =考生编写程序开始= Max = a(1, 1) For i = 1 To 4 For j = 1 To 4 If a(i, j) Max Then Max = a(i, j) End If Next j Next i Label3.Caption = Max =考生编写程序结束= 不得修改以下部分 save Label3End Sub 在“对角线元素之和”命令按钮的Click事件过程中加入语句：Private Sub Command2_Click() =考生编写程序开始= Sum = 0 For i = 1 To 4 Sum = Sum + a(i, i) Next i Label4.Caption = Sum =考生编写程序结束= 不得修改以下部分 save Label4End Sub参考文件：c:wexam26990001hlpsys参考答案sjt5.vbp、sjt5.frm、sjt5.vbw、out5.txt请把这些文件复制到c:wexam26990001中，然后打开sjt5.vbp文件并运行。第47套1. 基本操作（2小题，每小题15分，共计30分） 注意：下面出现的“考生文件夹”均为%USER%* 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 （1）在标题为“文本框”、名称为Form1 的窗体上画一个名称为Text1 的文本 框，无初始内容，其高、宽分别为2000、1800，可显示多行，有水平滚动 条，并通过属性窗口把文本框的字体样式设置为“斜体”（如图所示）。 注意： 存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名 为sjt1.frm。* （2）在名称为Form1的窗体上画一个名称为List1的列表框，通过属性窗口输入 4个列表项：“数学”、“物理”、“化学”、“语文”，如图所示。 请编写适当的事件过程使得在装入窗体时，把最后一个列表项自动改为“ 英语”；单击窗体时，则删除最后一个列表项。 注意： 要求程序中不得使用变量，每个事件过程中只能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名 为sjt2.frm。2. 简单应用（2小题，每题20分，计40分） 注意：下面出现的“考生文件夹”均为%USER%* （1）在名称为Form1的窗体上画一个名称为Text1的文本框；画二个标题分别为 “对齐方式”、“字体”，名称分别为Frame1、Frame2的框架；在Frame1 框架中画三个单选按钮，标题分别为“左对齐”、“居中”、“右对齐” ，名称分别为Option1、Option2、Option3；在Frame2框架中画二个单选按 钮，标题分别为“宋体”、“黑体”，名称分别为Option4、Option5。 要求： 编写五个单选按钮的 Click事件过程，使程序运行时，单击这些单选按 钮，可以对文本框中的文字实现相应的操作（如图所示）。 注意： 要求程序中不得使用变量，每个事件过程中只能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名 为sjt3.frm。* （2）在考生文件夹下有一个工程文件sjt4.vbp。 其窗体上有一个圆，相当于 一个时钟，当程序运行时通过窗体的Activate 事件过程在圆上产生12个 刻度点，并完成其他初始化工作；另有长、短2条（红色、蓝色）直线， 名称分别为Line1和Line2， 表示两个指针。程序运行时，单击“开始” 按钮，则每隔0.5秒Line1（长指针）顺时针转动一个刻度，Line2（短指 针）顺时针转动1/12个刻度（即长指针转动一圈，短指针转动一个刻度） ，单击“停止”按钮，两个指针停止转动，如图所示。 在窗体文件中已经给出了全部控件，但程序不完整，要求去掉程序中的注 释符，把程序中的 ？改为正确的内容。 提示： 程序中的符号常量x0、y0是圆心到窗体左上角的距离，radius是圆的半 径。 注意： 不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文 件名存盘。3. 综合应用（1小题，计30分） 注意：下面出现的“考生文件夹”均为%USER% 在考生目录下有一个工程文件sjt5.vbp， 其窗体如图所示。考生目录下有 一个in5.dat文件，文件中有5个运动员的姓名、7个裁判的打分和动作的难 度系数。每人的数据占一行，顺序是：姓名、7个分数、难度系数。程序运 行时，单击“输入”按钮，可把in5.dat文件中的5个姓名读入数组athlete 中，把5组得分（每组7个）和难度系数读入二维数组a中（每行的最后一个 元素是难度系数），并把这些数据显示在Text1文本框中；单击“选出冠军 ”按钮，则把冠军的姓名和成绩分别显示在文本框 Text2、Text3中。成绩 的计算方法是： 去掉一个最高分和一个最低分，求剩下得分的平均分，再 乘以3，再乘以难度系数；单击“存盘”按钮，则把冠军姓名和成绩存入考 生目录下的out5.dat文件中。 要求： 去掉程序中的注释符，把程序中的 ？ 改为正确的内容（程序中getmark 函数的功能是计算并返回第n个运动员的最后得分），并编写“选出冠军 ”按钮的Click事件过程。 注意： 不得修改已经存在的程序和控件的属性，在结束程序运行前，必须用“存 盘”按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。第47套答案一、基本操作题第1小题 启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个文本框控件，通过其属性窗口将名称设为Text1，多行文本（MultiLine属性）设为True，文本框滚动条（ScrollBars属性）设为1，文本内容（Text属性）设为空，高（Height属性）设为2000，宽（Width属性）设为1800，点击Font属性在弹出的字体对话框中将字体设为“斜体”。激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“文本框”。参考文件：c:wexam26990001hlpsys参考答案sjt1.vbp、sjt1.frm、sjt1.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt1.vbp文件并运行。第2小题 启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个列表框控件，通过其属性窗口将名称设为List1，向列表框中添加项目（List属性），添加的项目分别为“数学”、“物理”、“化学”、“语文”，每个项目为一行。 启动窗体（即运行Load事件过程），在该Load事件过程中加入语句：Private Sub Form_Load() List1.List(List1.ListCount - 1) = 英语End Sub 单击窗体（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Form_Click() List1.RemoveItem List1.ListCount - 1End Sub参考文件：c:wexam26990001hlpsys参考答案sjt2.vbp、sjt2.frm、sjt2.frx、sjt2.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt2.vbp文件并运行。二、简单应用题第1小题 启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个文本框控件，通过其属性窗口将名称设为Text1。画二个框架控件，通过其属性窗口将名称分别设为Frame1、Frame2，标题（Caption属性）分别设为“对齐方式”、“字体”。在Frame1框架中画三个单选按钮控件，通过其属性窗口将名称分别设为Option1、Option2、Option3，标题（Caption属性）分别设为“左对齐”、“居中”、“右对齐”。在Frame2框架中画二个单选按钮控件，通过其属性窗口将名称分别设为Option4、Option5，标题（Caption属性）分别设为“宋体”、“黑体”。 单击“左对齐”单选按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Option1_Click() Text1.Alignment = 0End Sub 单击“居中”单选按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Option2_Click() Text1.Alignment = 2End Sub 单击“右对齐”单选按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Option3_Click() Text1.Alignment = 1End Sub 单击“宋体”单选按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Option4_Click() Text1.Font = 宋体End Sub 单击“黑体”单选按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Option5_Click() Text1.Font = 黑体End Sub参考文件：c:wexam26990001hlpsys参考答案sjt3.vbp、sjt3.frm、sjt3.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt3.vbp文件并运行。第2小题 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。 由于所提供的窗体程序不完整，在“停止”按钮的Private Sub Command2_Click()事件过程中，有一处地方需要修改。1) 将语句 ? 改为 Timer1.Enabled = False 在窗体的Private Sub Form_Activate()事件过程中，有二处地方需要修改。1) 将语句 For k = 0 To 359 Step ? 改为 For k = 0 To 359 Step 360 / 122) 将语句 x = radius * Cos(k * 3.14159 / 180) + ? 改为 x = radius * Cos(k * 3.14159 / 180) + x0 在计时器的Private Sub Timer1_Timer()事件过程中，有二处地方需要修改。1) 将语句 Line1.? = y0 - len1 * Sin(a * 3.14159 / 180) 改为 Line1.Y2 = y0 - len1 * Sin(a * 3.14159 / 180)2) 将语句 b = ? - 30 / 12 改为 b = b - 30 / 12参考文件：c:wexam26990001hlpsys参考答案sjt4.vbp、sjt4.frm、sjt4.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt4.vbp文件并运行。三、综合应用题 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。 由于所提供的窗体程序不完整，需添加事件过程。 单击“选出冠军”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command2_Click() Dim k As Integer maxmark = getmark(1) m = 1 For k = 2 To 5 If maxmark getmark(k) Then maxmark = getmark(k) m = k End If Next k Text2 = athlete(m) Text3 = maxmarkEnd Sub 在函数的Private Function getmark(n As Integer) As Single事件过程中，有三处地方需要修改。1) 将语句 s = ? 改为 s = a(n, 1)2) 将语句 For k = 2 To ? 改为 For k = 2 To 73) 将语句 getmark = s * 3 * ? 改为 getmark = s * 3 * a(n, 8)参考文件：c:wexam26990001hlpsys参考答案sjt5.vbp、sjt5.frm、sjt5.vbw、out5.dat请把这些文件复制到c:wexam26990001中，然后打开sjt5.vbp文件并运行。第48套1. 基本操作（2小题，每小题15分，共计30分） 注意：下面出现的“考生文件夹”均为%USER%* 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 （1）在名称为Form1的窗体上画一个名称为Picture1的图片框（PictureBox）， 高、宽均为1000。在图片框内再画一个有边框的名称为Image1的图像框（ Image）。并通过属性窗口把考生目录下的图标文件Point11（香蕉图标） 装入图像框Image1中，如图所示。 注意： 存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件 名为sjt1.frm。* （2）在名称为Form1的窗体上画一个名称为Command1、标题为“保存文件”的 命令按钮，再画一个名称为CommonDialog1的通用对话框。 要求： 1）通过属性窗口设置适当的属性，使得运行时对话框的标题为“保存文 件”，且默认文件名为out2； 2）运行时单击“保存文件”命令按钮，则以“保存对话框”方式打开该 通用对话框。如图所示。 注意： 要求程序中不能使用变量，每个事件过程中只能写一条语句。 保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件 名为sjt2.frm。2. 简单应用（2小题，每题20分，计40分） 注意：下面出现的“考生文件夹”均为%USER%* （1）在考生目录下有一个工程文件sjt3.vbp。窗体上有个钟表图案，其中代表 指针的直线的名称是Line1， 还有一个名称为Label1的标签，和其他一些 控件（如图 1所示）。在运行时，若用鼠标左键单击圆的边线，则指针指 向鼠标单击的位置（如图 2所示）；若用鼠标右键单击圆的边线，则指针 恢复到起始位置（如图 1所示）；若鼠标左键或右键单击其他位置，则在 标签上显示“鼠标位置不对”。 文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释 符，把程序中的 ？ 改为正确的内容。程序中的oncircle函数的作用是判 断鼠标单击的位置是否在圆的边线上（ 判断结果略有误差 ），是则返回 True，否则返回False。 符号常量x0、y0是圆心距窗体左上角的距离；符 号常量radius是圆的半径。 注意： 不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原 文件名存盘。* （2）在考生目录下有一个工程文件sjt4.vbp，窗体如图所示。其功能是单击“ 输入数据”按钮，则可输入一个整数n（ 要求：8=n ? Or n 12 Or n ? Then 改为 ElseIf finduser(Trim$(Text1) 0 Then2) 将语句 ? = 注册成功！ 改为 Form1.Label1 = 注册成功！ 在Sub writeusers()事件过程中，有一处地方需要修改。1) 将语句 n = n + ? 改为 n = n + 1 打开窗体文件sjt53.frm。 由于所提供的窗体控件不完整，在“登录”按钮的Private Sub Command1_Click()事件过程中，有二处地方需要修改。1) 将语句 If k = ? Then 改为 If k = 0 Then2) 将语句 ElseIf Trim$(Text2) users( ? ) Then 改为 ElseIf Trim$(Text2) users(k, 2) Then参考文件：c:wexam26990001hlpsys参考答案sjt5.vbp、sjt51.frm、sjt52.frm、sjt53.frm、sjt5.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt5.vbp文件并运行。第49套1. 基本操作（2小题，每小题15分，共计30分） 注意：下面出现的“考生文件夹”均为%USER%* 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 （1）在名称为 Form1的窗体上画两个标签（名称分别为Label1和Label2，标题 分别为“姓名”和“年龄”）、两个文本框（名称分别为Text1和Text2， Text属性均为空白）和一个命令按钮（名称为Command1，标题为“显示” ）。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中 分别输入姓名和年龄，然后单击命令按钮，则在窗体上显示两个文本框中 的内容，如图所示。要求程序中不得使用任何变量。 *注意： 存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件 名为sjt1.frm。* （2）在名称为 Form1的窗体上画一个图片框（名称为Picture1）、一个水平滚 动条（名称为HScroll1）和一个命令按钮（名称为Command1，标题为“设 置属性”），通过属性窗口在图片框中装入一个图形（文件名为pic1.jpg， 位于考生目录下），图片框的高度与图形的高度相同，图片框的宽度任意 （如图 1所示）。编写适当的事件过程，程序运行后，如果单击命令按钮， 则设置水平滚动条的如下属性： Min 100 Max 1500 LargeChange 100 SmallChange 10 之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。运行后的窗 体如图 2所示。要求程序中不得使用任何变量。 *注意： 存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件 名为sjt2.frm。2. 简单应用（2小题，每题20分，计40分） 注意：下面出现的“考生文件夹”均为%USER%* （1）在考生文件夹下有一个工程文件sjt3.vbp（相应的窗体文件名为sjt3.frm ），请装入该文件，在窗体上画一个列表框（名称为List1 ）和一个文本 框（名称为Text1 ），如图 1所示。编写窗体的MouseDown 事件过程。程 序运行后，如果用鼠标左键单击窗体，则从键盘上输入要添加到列表框中 的