vb上机题目

1. 基本操作（2小题，每小题15分，共计30分） 注意：下面出现的"考生文件夹"均为C:\WEXAM\00000000\ ********************************************************************** 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 （1）在名称为Form1的窗体上画两个标签（名称分别为Label1和Label2，标题 分别为"身高"和"体重"）、两个文本框（名称分别为Text1和Text2， Text属性均为空白）和一个命令按钮（名称为Command1，标题为"输入" ）。然后编写命令按钮的Click事件过程，程序运行后，如果单击命令按 钮，则先后显示两个输入对话框，在两个输入对话框中分别输入身高和体 重，并分别在两个文本框中显示出来，运行后的窗体如图所示。要求程序 中不得使用任何变量。 *注意： 存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件 名为sjt1.frm。 ********************************************************************** （2）在名称为Form1的窗体上画一个图片框（名称为Picture1）、一个垂直滚 动条（名称为VScroll1）和一个命令按钮（名称为Command1，标题为"设 置属性"），通过属性窗口在图片框中装入一个图形（文件名为pic1.jpg ，位于考生目录下），图片框的宽度与图形的宽度相同，图片框的高度任 意（如图1所示）。编写适当的事件过程。程序运行后，如果单击命令按 钮，则设置垂直滚动条的如下属性： Min 100 Max 2400 LargeChange 200 SmallChange 20 之后就可以通过移动滚动条上的滚动块来放大或缩小图片框的高度。运行 后的窗体如图2所示。要求程序中不得使用任何变量。 *注意： 存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件 名为sjt2.frm。 图1 图2 标签控件Label1添加有误 程序无法找到用户生成的工程文件! 题面要求操作：生成C:\WEXAM\00000000\sjt1.vbp工程文件 实际操作结果：未生成 标签控件Label2添加有误 程序无法找到用户生成的工程文件! 题面要求操作：生成C:\WEXAM\00000000\sjt1.vbp工程文件 实际操作结果：未生成 标签控件Label1标题设置有误 程序无法找到用户生成的工程文件! 题面要求操作：生成C:\WEXAM\00000000\sjt1.vbp工程文件 实际操作结果：未生成 标签控件Label2标题设置有误 程序无法找到用户生成的工程文件! 题面要求操作：生成C:\WEXAM\00000000\sjt1.vbp工程文件 实际操作结果：未生成 文本框Text1添加有误 程序无法找到用户生成的工程文件! 题面要求操作：生成C:\WEXAM\00000000\sjt1.vbp工程文件 实际操作结果：未生成 文本框Text2添加有误 程序无法找到用户生成的工程文件! 题面要求操作：生成C:\WEXAM\00000000\sjt1.vbp工程文件 实际操作结果：未生成 文本框Text1的Text属性设置有误 程序无法找到用户生成的工程文件! 题面要求操作：生成C:\WEXAM\00000000\sjt1.vbp工程文件 实际操作结果：未生成 文本框Text2的Text属性设置有误 程序无法找到用户生成的工程文件! 题面要求操作：生成C:\WEXAM\00000000\sjt1.vbp工程文件 实际操作结果：未生成 命令按钮Command1添加有误 程序无法找到用户生成的工程文件! 题面要求操作：生成C:\WEXAM\00000000\sjt1.vbp工程文件 实际操作结果：未生成 命令按钮Command1标题设置有误 程序无法找到用户生成的工程文件! 题面要求操作：生成C:\WEXAM\00000000\sjt1.vbp工程文件 实际操作结果：未生成 命令按钮Command1的Click事件编写有误1 程序无法找到用户生成的工程文件! 题面要求操作：生成C:\WEXAM\00000000\sjt1.vbp工程文件 实际操作结果：未生成 命令按钮Command1的Click事件编写有误2 程序无法找到用户生成的工程文件! 题面要求操作：生成C:\WEXAM\00000000\sjt1.vbp工程文件 实际操作结果：未生成 图片框Picture1添加有误 程序无法找到用户生成的工程文件! 题面要求操作：生成C:\WEXAM\00000000\sjt2.frm工程文件 实际操作结果：未生成 垂直滚动条VScroll1添加有误 程序无法找到用户生成的工程文件! 题面要求操作：生成C:\WEXAM\00000000\sjt2.vbp工程文件 实际操作结果：未生成 命令按钮Command1添加有误 程序无法找到用户生成的工程文件! 题面要求操作：生成C:\WEXAM\00000000\sjt2.vbp工程文件 实际操作结果：未生成 图片pic1.jpg加载有误 程序无法找到用户生成的工程文件! 题面要求操作：生成C:\WEXAM\00000000\sjt2.frm工程文件 实际操作结果：未生成 图片框Picture1的宽设置有误 程序无法找到用户生成的工程文件! 题面要求操作：生成C:\WEXAM\00000000\sjt2.frm工程文件 实际操作结果：未生成 垂直滚动条VScroll1的Max属性设置有误 程序无法找到用户生成的工程文件! 题面要求操作：生成C:\WEXAM\00000000\sjt2.vbp工程文件 实际操作结果：未生成 垂直滚动条VScroll1的Min属性设置有误 程序无法找到用户生成的工程文件! 题面要求操作：生成C:\WEXAM\00000000\sjt2.vbp工程文件 实际操作结果：未生成 垂直滚动条VScroll1的LargeChange属性设置有误 程序无法找到用户生成的工程文件! 题面要求操作：生成C:\WEXAM\00000000\sjt2.vbp工程文件 实际操作结果：未生成 垂直滚动条VScroll1的SmallChange属性设置有误 程序无法找到用户生成的工程文件! 题面要求操作：生成C:\WEXAM\00000000\sjt2.vbp工程文件 实际操作结果：未生成 垂直滚动条VScroll1的Change事件编写有误 程序无法找到用户生成的工程文件! 题面要求操作：生成C:\WEXAM\00000000\sjt2.vbp工程文件 实际操作结果：未生成 第1小题 本题主要考查了控件的绘制、设置和InputBox函数。 1、InputBox函数可以产生一个对话框，这个对话框作为输入数据的界面，等待用户输入数据，并返回所输入的内容。其 格式 pdf格式笔记格式下载页码格式下载公文格式下载简报格式下载 为： InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context]) （1）prompt：是一个字符串，其长度不超过1024个字符，它是在对话框内显示的信息，用来提示用户输入。 （2）title：字符串，它是对话框的标题，显示在对话框顶部的标题区。 （3）default：字符串，用来显示输入缓冲区的默认信息。也就是说，在执行InputBox函数后，如果用户没有输入任何信息，则可用此默认字符串作为输入值。如果用户不想用这个默认字符串作为输入值，则可在输入区直接键入数据，以取代默认值；如果省略该参数，则对话框的输入区为空白，等待用户键入信息。 解题方法： 新建一个工程，点击工具箱中的Label控件图标，然后在窗体上拖拉出两个标签控件Label1、Label2，通过属性窗口分别设置其Caption属性为"身高"、"体重"；点击工具箱中的TextBox控件图标，然后在窗体上拖拉出两个文本框Text1、Text2，通过属性窗口分别设置其初始内容为空；再在窗体上添加一个命令按钮，设置其Name属性为Command1，Caption属性为"输入"。 修改后的代码如下： Private Sub Command1_Click() Text1.Text = InputBox("请输入身高") '把InputBox函数返回的字符串赋给文本框Text1 Text2.Text = InputBox("请输入体重") '把InputBox函数返回的字符串赋给文本框Text2 End Sub 按要求进行操作并保存文件即完成本题。 第2小题 本题主要考查了图片框的属性和滚动条的属性。 1、图片框的Picture属性 picture属性：通过picture属性可以返回/设置控件中显示的图形。 2、图片框的AutoSize属性 AutoSize属性设置为True，可以自动调整大小。 3、滚动条的Max属性 Max属性：滚动条所能 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 示的最大值，取值范围是-32768到+32767。当滚动条位于最右（水平滚动条）端或最下端（垂直滚动条）时，Value属性将被设置为该值。 4、滚动条的Min属性 Min属性：滚动条所能表示的最小值，取值范围是-32768到+32767。当滚动条位于最左端（水平滚动条）或最上端（垂直滚动条）时，Value属性将被设置为该值。 5、滚动条的LargeChange属性 LargeChange属性：单击滚动条中滚动框前面或后面的位置时，Value属性增加或减小的增量值。 6、滚动条的SmallChange属性 SmallChange属性：单击滚动条两端的箭头时，Value属性增加或减小的增量值。 7、滚动条的Value属性 Value属性：该属性表示滚动框在滚动条上的当前位置。如果在程序中设置该值，则把滚动框移到相应的位置。注意不能把Value属性设置为Max和Min之外的值。 解题方法： 新建一个工程，单击工具箱中的PictureBox图标，然后在窗体上拖拉出一个图片框Picture1，在其picture属性中装入考生文件夹下的图形文件pic1.jpg，并将图片框Picture1的宽度与图形的宽度设置为相同；单击工具箱中的VScrollBar图标，然后在窗体上拖拉出一个垂直滚动条VScroll1；单击工具箱中的CommandButton图标，然后在窗体上拖拉出一个命令按钮Command1，通过属性窗口设置其Caption属性为"设置属性"。 修改后的代码如下： Private Sub Command1_Click() VScroll1.Max = 2400 VScroll1.Min = 100 VScroll1.LargeChange = 200 VScroll1.SmallChange = 20 End Sub Private Sub VScroll1_Change() Picture1.Height = VScroll1.Value '图片框Picture1的高度被赋予垂直滚动条VScroll1的滚动框当前所在位置的值 End Sub 按要求进行操作并保存文件即完成本题。 2. 简单应用（2小题，每题20分，计40分） 注意：下面出现的"考生文件夹"均为C:\WEXAM\00000000\ *********************************************************************** （1）在考生目录下有一个工程文件sjt3.vbp，窗体中有两个图片框，名称分别 为P1、P2，其中的图片分别是一个航天飞机和一朵云彩，还有一个计时器， 名称为Timer1，一个命令按钮，名称为C1，标题为"发射"。并给出了两个 事件过程，但并不完整，要求： 1）设置计时器的属性，使其在初始状态下不计时； 2）设置计时器的属性，使其每隔0.1秒调用Timer事件过程一次。 3）去掉程序中的注释符，把程序中的 ？改为正确的内容，使得在运行时 单击"发射"按钮，则航天飞机每隔0.1秒向上移动一次，当到达P2的下 方时停止移动，如图所示。 注意： 不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 ********************************************************************** （2）在考生文件夹下有一个工程文件sjt4.vbp，窗体上已经有两个文本框，名 称分别为Text1、Text2；和一个命令按钮，名称为C1，标题为"确定"；请 画两个单选按钮，名称分别为Op1、Op2，标题分别为"男生"、"女生"；再 画两个复选框，名称分别为Ch1、Ch2，标题分别为"体育"、"音乐"。请编 写适当的事件过程，使得在运行时，单击"确定"按钮后实现下面的要求： 1）根据选中的单选按钮，在Text1中显示"我是男生"或"我是女生"。 2）根据选中的复选框，在Text2中显示"我的爱好是体育"或"我的爱好是 音乐"或"我的爱好是体育音乐"。如图所示。 注意： 不得修改已经给出的程序和已有控件的属性。在结束程序运行之前，必 须选中一个单选按钮和至少一个复选框，并单击"确定"按钮。必须使用 窗体右上角的关闭按钮结束程序，否则无成绩。 计时器Timer1的Enabled属性设置有误 过程或函数编写错误 题面要求操作：编写指定的过程或函数 实际操作结果：未编写 计时器Timer1的Interval属性设置有误 过程或函数编写错误 题面要求操作：编写指定的过程或函数 实际操作结果：未编写 第一个？处填写程序错误 过程或函数编写错误 题面要求操作：编写指定的过程或函数 实际操作结果：未编写或编写不正确 第二个？处填写程序错误 过程或函数编写错误 题面要求操作：编写指定的过程或函数 实际操作结果：未编写或编写不正确 第三个？处填写程序错误 过程或函数编写错误 题面要求操作：编写指定的过程或函数 实际操作结果：未编写或编写不正确 单选按钮OP1添加有误 语句或命令编写错误 题面要求操作：sjt4.frm 实际操作结果：未编写 单选按钮OP2添加有误 语句或命令编写错误 题面要求操作：sjt4.frm 实际操作结果：未编写 单选按钮OP1标题设置错误 过程或函数编写错误 题面要求操作：编写指定的过程或函数 实际操作结果：未编写 单选按钮OP2标题设置错误 过程或函数编写错误 题面要求操作：编写指定的过程或函数 实际操作结果：未编写 复选框Ch1添加有误 语句或命令编写错误 题面要求操作：sjt4.frm 实际操作结果：未编写 复选框Ch2添加有误 语句或命令编写错误 题面要求操作：sjt4.frm 实际操作结果：未编写 复选框Ch1标题设置有误 过程或函数编写错误 题面要求操作：编写指定的过程或函数 实际操作结果：未编写 复选框Ch2标题设置有误 过程或函数编写错误 题面要求操作：编写指定的过程或函数 实际操作结果：未编写 生成的结果文件中身份为男生和女生有误 程序无法找到用户生成的结果文件! 题面要求操作：生成C:\WEXAM\00000000\out4.txt工程文件 实际操作结果：未生成 生成的结果文件中个人爱好有误 程序无法找到用户生成的结果文件! 题面要求操作：生成C:\WEXAM\00000000\out4.txt工程文件 实际操作结果：未生成 第1小题 本题主要考查了计时器控件的使用和图片框的属性。 1、定时器控件：通过引发Timer事件，Timer控件可以有规律地隔一段时间执行一次代码。Timer控件用于背景进程中，它是不可见的，Timer控件的Enabled属性决定该控件是否对时间的推移做响应。将Enabled设置为False会关闭Timer控件，设置为True则打开它。当Timer控件置为有效时，倒计时总是从其Interval属性的设置值开始。创建Timer事件程序用以告诉Visual Basic在每次Interval到时该做什么。在本题中几个问题都是围绕Enabled展开的。"初始状态下不计时"需要在设计状态下设置Enabled为False；每隔0.1秒调用Timer事件过程一次，需要设置Interval为100。 2、图片框的Top属性 Top属性表示对象上边界距容器坐标系横轴的距离。 3、图片框的Height属性 Heigh属性表示对象的高度。 4、Move方法 Move方法用来移动一个对象。格式为： Move(Left As Single, [Top], [Width], [Height]) 解题方法： 打开工程文件sjt3.vbp，选中窗体Form1上计时器Timer1，通过属性窗口设置其Enabled属性为"False"，Interval属性为100。 修改后的代码如下： Private Sub C1_Click() Timer1.Enabled = True '当单击命令按钮C1时，计时器Timer1开始计时 End Sub Private Sub Timer1_Timer() Static a% '申请一个静态整型变量a a = a + 1 If P1.Top > P2.Top + P2.Height Then '当图片P1距窗体上边界的距离大于图片P2下边界（图片P2距窗体上边界的距离加上自身的高度）距窗体上边界的距离时，也就是航天飞机在云彩的下方时 P1.Move P1.Left, P1.Top - 5 - a, P1.Width, P1.Height '图片P1的距窗体上边界的距离减少（5+a），即向上移动（5+a），高、宽和距窗体左边界的距离不变， Else Timer1.Enabled = False '当图片P1距窗体上边界的距离等于或小于图片P2下边界，计时器Timer1停止计时 End If End Sub 按要求进行操作并保存文件即完成本题。 本题主要考查了计时器控件的使用。 第2小题 本题主要考查了单选按钮和复选框。 1、单选按钮OptionButton和复选框CheckBox的功能相似，但是二者间也存在着重要差别。在选择一个OptionButton时，同组中的其它OptionButton控件自动无效。相反，可以选择任意数量的CheckBox控件。只要注意了这一点本题可以在C1_Click事件中判断他们的选中情况OptionButton的Value为True表示选中，CheckBox的Value=1时表示选中。 2、Value属性 Value属性：用来表示复选框和单选按钮的状态，对于单选按钮来说，Value属性可以设置为True和False，取值为True时，单选按钮是"打开"的，按钮中心有一个圆点；取值为False时，单选按钮是"关闭"的，按钮是一个圆圈。 对于复选框来说，Value属性可以设置为0、1或2。其中： 0---表示没有选择该复选框。 1---表示选中该复选框。 2---表示该复选框被禁止。 解题方法： 打开工程文件sjt4.vbp，单击工具箱中的OptionButton控件图标，然后在窗体上拖拉出两个单选按钮，通过属性窗口分别设置其Name属性为Op1、Op2，Caption属性为"男生"、"女生"；单击工具箱中的CheckBox控件图标，然后在窗体上拖拉出两个复选框，通过属性窗口分别设置其Name属性为Ch1、Ch2，Caption属性为"体育"、"音乐"。 修改后的代码如下： Private Sub C1_Click() If Op1.Value Then '如果选中单选按钮Op1 Text1.Text = "我是" & Op1.Caption Else Text1.Text = "我是" & Op2.Caption End If Text2.Text = "我的爱好是" If Ch1.Value = 1 Then '如果选中复选框Ch1 Text2.Text = Text2.Text & Ch1.Caption End If If Ch2.Value = 1 Then '如果选中复选框Ch2 Text2.Text = Text2.Text & Ch2.Caption End If End Sub 按要求进行操作并保存文件即完成本题。 3. 综合应用（1小题，计30分） 注意：下面出现的"考生文件夹"均为C:\WEXAM\00000000\ 在考生文件夹下有一个工程文件sjt7.vbp，在Form1的窗体中有一个文本框， 二个命令按钮和一个计时器。程序的功能是在运行时，单击"开始计数"按 钮，就开始计数，每隔1秒，文本框中的数加1；单击"停止计数"按钮，则 停止计数（如图所示）。要求：修改适当的控件的属性，并去掉程序中的注 释符，把程序中的 ？ 改为正确的内容，使其实现上述功能，但不能修改程 序中的其他部分。最后把修改后的文件以原来的文件名存盘。 计时器Timer1的Interval属性设置有误 过程或函数编写错误 题面要求操作：编写指定的过程或函数 实际操作结果：未编写 计时器Timer1的Enabled属性设置有误 过程或函数编写错误 题面要求操作：编写指定的过程或函数 实际操作结果：未编写 第一个？处填写程序错误 过程或函数编写错误 题面要求操作：编写指定的过程或函数 实际操作结果：未编写或编写不正确 第二个？处填写程序错误 过程或函数编写错误 题面要求操作：编写指定的过程或函数 实际操作结果：未编写或编写不正确 第三个？处填写程序错误 过程或函数编写错误 题面要求操作：编写指定的过程或函数 实际操作结果：未编写或编写不正确 本题主要考查了计时器控件的属性和控件数组。 1、计时器控件的Interval属性 返回或设置计时器事件之间的间隔，以毫秒为单位，取值范围是0到65535。 2、计时器的Enabled属性 用来设置计时器是否有效，取值为True和False两种，取值为True，则计时器可用，程序运行时，将根据Interval属性所设置的时间间隔触发计时器事件；取值为False，计时器不可用，将不会触发计时器事件。 3、控件数组 控件数组是一组具有共同名称和类型的控件。它们的事件过程也相同。一个控件数组至少应有一个元素，元素数目可在系统资源和内存允许的范围内增加；数组的大小也取决于每个控件所需的内存和Windows资源。控件数组中的每一个控件都有惟一的索引号（Index），即下标，根据这个下标，可以调用控件数组中任意控件的事件，设置控件数组中任意控件的相关属性。 解题方法： 打开工程文件sjt7.vbp，并修改相应的代码。 修改后的代码如下： Private Sub C1_Click(Index As Integer) Select Case Index '以命令按钮数组C1的索引号为Select Case语句的测试表达式 Case 1 Timer1.Enabled = False '如果命令按钮数组C1的索引号为1，即单击"停止记数"按钮，将计时器Timer1设置为无效 Case 0 Timer1.Enabled = True '如果命令按钮数组C1的索引号为0，即单击"开始记数"按钮，将计时器Timer1设置为有效 End Select End Sub Private Sub Timer1_Timer() Text1.Text = Text1.Text + 1 '每执行一次计时器Timer1的Timer事件，即每隔一秒，文本框Text1中的数加1 End Sub 按要求保存文件即完成本题。