当前位置：文档库 › vb套题——鼠标事件课案

vb套题——鼠标事件课案

第57套：

1. 基本操作（2小题，每小题15分，共计30分）

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

**********************************************************************

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

（1）在名称为Form1，标题为“图片”的窗体上画1个名称为Image1的图像框，其高为2500，宽为2000。请通过属性窗口设置适当属性，装入考生目录下

的图片文件pic1.jpg，并使图片适应图像框的大小（如图所示）。

注意：

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

为sjt1.frm。

解题思路：

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

在该窗体上画一个图像框控件，通过其属性窗口将名称设为Image1，高（Height属性）设为2500，宽（Width属性）设为2000，通过Picture属性装入pic1.jpg图像文件。激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“图片”。

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

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

**********************************************************************

（2）在名称为Form1的窗体上画1个名称为Label1，标题为“口令”的标签；画一个名称为 Text1的文本框；再画三个命令按钮，名称分别为Command1、

Command2、Command3，标题分别为“显示口令”、“隐藏口令”、“重新输入”。

程序运行时，在 Text1中输入若干字符，单击“隐藏口令”按钮，则只显

示同样数量的“*”（如图2所示）；单击“显示口令”按钮，则显示输入

的字符（如图1所示），单击“重新输入”按钮，则清除Text1中的内容，

并把光标定位到Text1中。

请画出所有控件，编写命令按钮的Click 事件过程，程序中不得使用变

量，在“显示口令”、“隐藏口令”按钮的事件过程中只能写1条语句。

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

为sjt2.frm。

解题思路：

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

在该窗体上画一个标签控件，通过其属性窗口将名称设为Label1，标题（Caption属性）设为“口令”。画一个文本框控件，通过其属性窗口将名称设为Text1。画三个命令按钮控件，通过其属性窗口将名称分别设为Command1、Command2、Command3，标题（Caption属性）分别设为“显示口令”、“隐藏口令”、“重新输入”。

单击“显示口令”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command1_Click()

Text1.PasswordChar = ""

End Sub

单击“隐藏口令”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command2_Click()

Text1.PasswordChar = "*"

End Sub

单击“重新输入”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command3_Click()

Text1.Text = ""

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，在程序运行时，单击“输入整数”按钮，可以从键盘输入一个整数，并在窗体上显示此整数的所有不同

因子和因子个数。图1是输入53后的结果，图2是输入100的结果。已经给

出了全部控件和程序，但程序不完整。

请去掉程序中的注释符，把程序中的？改为正确的内容。不能修改程

序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工

程文件和窗体文件。

解题思路：

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

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

1) 将语句

'? = InputBox("请输入一个整数")

改为

n = InputBox("请输入一个整数")

由于提供的Fun()函数不完整，有二处地方需要修改。

1) 将语句

'If m Mod k = ? Then

改为

If m Mod k = 0 Then

2) 将语句

改为

fun = s

参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt3.vbp、sjt3.frm、sjt3.vbw 请把这些文件复制到c:\wexam\26990001中，然后打开sjt3.vbp文件并运行。

**********************************************************************

（2）在考生文件夹下有一个工程文件sjt4.vbp。在其窗体中“待选城市”下的

List1列表框中有若干个城市名称。程序运行时，选中List1中若干个列表项（如图1所示），单击“选中”按钮则把选中的项目移到List2中，单击

“显示”，则在Text1文本框中显示这些选中的城市（如图2所示）。已经

给出了所有控件和程序，但程序不完整。

要求：

请去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确

运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名

保存工程文件和窗体文件。

解题思路：

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

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

1) 将语句

'For k = List1.ListCount - 1 To 0 ?

改为

For k = List1.ListCount - 1 To 0 Step -1

2) 将语句

'List2.AddItem ?

改为

List2.AddItem List1.Text

3) 将语句

'List1.RemoveItem ?

改为

List1.RemoveItem k

在窗体的Private Sub Command2_Click()事件过程中，有一处地方需要修改。

1) 将语句

'Text1 = ? & " " & List2.List(k)

改为

Text1 = Text1 & " " & List2.List(k)

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

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

**********************************************************************

3. 综合应用（1小题，计30分）

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

在考生文件夹下有一个工程文件sjt5.vbp，其窗体中有一个实心圆。程序运

行时，当用鼠标左键单击窗体任何位置时，实心圆则向单击位置直线移动；

若用鼠标右键单击窗体，则实心圆停止移动。窗体文件中已经给出了全部控

件，但程序不完整。

要求：

请去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运

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

名存盘。

解题思路：

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

由于所提供的窗体程序不完整，在窗体的Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)事件过程中，有四处地方需要修改。

1) 将语句

'stepx = ?

改为

stepx = 0

2) 将语句

'? = a * stepx

改为

stepy = a * stepx

3) 将语句

'? = True

改为

Timer1.Enabled = True

4) 将语句

'? = False

改为

Timer1.Enabled = False

在窗体的Private Sub Timer1_Timer()事件过程中，有一处地方需要修改。

1) 将语句

'Shape1.Move Shape1.Left + stepx, Shape1.Top + ?

改为

Shape1.Move Shape1.Left + stepx, Shape1.Top + stepy

参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt5.vbp、sjt5.frm、sjt5.vbw 请把这些文件复制到c:\wexam\26990001中，然后打开sjt5.vbp文件并运行。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

第80套：

1. 基本操作（2小题，每小题15分，共计30分）

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

**********************************************************************

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

（1）在名称为Form1的窗体上画出如图所示的三角形。下表给出了直线Line1、

Line2的坐标值，请按此表画Line1、Line2，并画出直线Line3，从而组成如图所示的三角形。

注意：

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

为sjt1.frm。

解题思路：

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

根据题意建立Line1、Line2控件，并分别设置X1、Y1、X2、Y2，再根据Line1和Line2的顶点画Line3草图，然后设置X1、Y1、X2、Y2，如X1为1680则设为1600，Y1为720则设为600，X2为2520则设为2600，Y2为1560则设为1600,也可以手工计算出Line3的X1、Y1、X2、Y2再设。

**********************************************************************

（2）在名称为Form1的窗体上画一个名称为List1的列表框，并任意输入若干列表项；再画一个名称为Text1的文本框，无初始内容。请编写List1和Text1

的Click事件过程。程序运行后，如果单击列表框中的某一项，则在文本

框中显示该项相应的顺序号，即：若单击第一项，则在文本框中显示1，

若单击第二项，则在文本框中显示2，依此类推，（如图所示）；如果单

击文本框，则把该列表项的内容显示在文本框中。

注意：

要求程序中不得使用变量，事件过程中只能写一条语句。

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

为sjt2.frm。

**********************************************************************

解题思路：

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

在该窗体上画一个列表框控件，通过其属性窗口将名称设为List1，输入列表项（List 属性）。画一个文本框控件，通过其属性窗口将名称设为Text1，内容（Text属性）清空。

在列表框的Click事件过程中加入语句：

Private Sub List1_Click()

Text1.Text = List1.ListIndex + 1

End Sub

在文本框的Click事件过程中加入语句：

Private Sub Text1_Click()

Text1.Text = List1.List(Text1.Text - 1)

End Sub

2. 简单应用（2小题，每题20分，计40分）

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

***********************************************************************

（1）在考生目录下有一个工程文件sjt3.vbp，有两个名称分别为Form1和Form2 的窗体，Form1为启动窗体，程序执行时Form2不显示。Form1中有菜单（

如图1所示），程序运行时，若单击“格式”菜单项，则显示Form2窗体（

如图2所示），选中一种字号和字体后单击“确定”按钮，则可改变Form1

上文本框的字号和字体，并使Form2窗体消失。若单击“退出”菜单项，则

结束程序的运行。

文件中已经给出了所有控件和程序，但程序不完整，要求：

1）利用属性窗口设置适当的属性，使Form1窗体标题栏右上角的最大、最小化按钮消失（如图1所示）；

2）利用属性窗口把Form2窗体的标题设置为“格式”（如图2所示）；

3）请去掉程序中的注释符，把程序中的？改为正确的内容。

注意：

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

原文件名存盘。

解题思路：

打开工程文件sjt3.vbp，并打开sjt31窗体(双击工程资源管理器窗口的Form1即可打开)，设置属性MinButton和MaxButton为False，再打开sjt32窗体，设置Caption属性为“格式”，打开sjt31窗体代码窗口，修改代码如下：

1)'? .Show

改为下句

Form2.Show

打开sjt32窗体代码窗口，修改代码如下

1)'Form1.Text1.? = List1.Text

改为下句

Form1.Text1.FontSize = List1.Text

2)'Form1.Text1.FontName = List2.List(List2. ? )

改为下句

Form1.Text1.FontName = List2.List(List2.ListIndex)

3)'Form2.Visible = ?

改为下句

Form2.Visible = False

**********************************************************************

（2）在考生目录下有一个工程文件sjt4.vbp，包含了所有控件和部分程序。程序运行时，请按以下顺序操作：

1）单击“读入数据”按钮，可把考生目录下的文件 in4.dat中的100个整数读到数组a中；

2）从名称为Combo1的组合框中选中一项（如图所示）。

3）单击“计算”按钮，则可按该选项的要求对a中的数计算平均值（四舍五入取整或截尾取整）并放到文本框中。

4）单击窗体右上角的关闭按钮结束程序。

“读入数据”按钮的 Click事件过程已经给出，请为“计算”按钮编写适

当的事件过程实现上述功能。

提示：

存放前n个数之和的变量应使用Long类型。

注意：

不得修改已经存在的程序，在结束程序运行之前，必须进行一次计算，

且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按

原文件名存盘。

解题思路：

打开工程文件sjt4.vbp，编写代码如下：

Private Sub Command2_Click()

'考生应完成的程序

If Combo1.ListIndex = 0 Then n = 50

If Combo1.ListIndex = 1 Then n = 80

If Combo1.ListIndex = 2 Then n = 100

Sum = 0

For i = 1 To n

Sum = Sum + a(i)

Next i

Text1 = Int(Sum / n)

End Sub

********************************************************************** 3. 综合应用（1小题，计30分）

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

在考生目录下有一个工程文件sjt5.vbp。窗体左边的图片框名称为Picture1，框中还有六个小图片框，它们是一个数组，名称为Pic，在窗体右边从上到下有三个显示不同物品的图片框，名称分别为Picture2、Picture3、Picture4，还有一个文本框Text1以及四个标签，如图1所示。

程序运行时，可以用鼠标拖拽的方法把右边的物品放到左边的图片框中（右边的物品不动），同时把该物品的价格累加到Text1中，如图2所示。最多可放六个物品。

实现此功能的方法是：

程序刚运行时，Picture1中的图片框数组不显示，当拖拽一次物品时，就显示一个图片框数组元素，并在该图片框数组元素中加载相应的图片，产生物品被放入的效果。

文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。

注意：

不得修改已经存在的内容和控件属性，最后把修改后的文件按原文件名存

盘。

解题思路：

打开工程文件sjt5.vbp，修改代码如下：1)'Select Case ? .Name

改为下句

Select Case https://www.wendangku.net/doc/ad2074244.html,

2)'For k = 0 To ?

改为下句

For k = 0 To 5

3)'If Pic(k).Visible = ? Then

改为下句

If Pic(k).Visible = False Then 4)'Pic(k). ? = True

改为下句

Pic(k).Visible = True

5)'Text1 = Text1 + ?

改为下句

Text1 = Text1 + a

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※