1、BCE 培训中心内部资料；国家教育部考试中心题库 1 二级 VB 上机试题汇编第 01 套：1. 基本操作（2 小题，每小题 15 分，共计 30 分）注意：下面出现的“考生文件夹”均为%USER%*请根据以下各小题的要求设计 Visual Basic 应用程序（包括界面和代码） 。（1）在名称为 Form1 的窗体上画一个名称为 Text1 的文本框，其高、宽分别为400、2000。请在属性框中设置适当的属性满足以下要求：1）Text1 的字体为“黑体” ，字号为“四号” ；2）窗体的标题为“输入” ，不显示最大化按钮和最小化按钮。运行后的窗体如图所示。注意：存盘时必须存放在考生文件夹下，工
2、程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。解题思路：启动 Visual Basic 系统，创建一个 Form1 窗体。在该窗体上画一个文本框控件，通过其属性窗口将名称设为 Text1，高（Height 属性）设为 400，宽（Width属性）设为 2000，点击 Font 属性在弹出的字体对话框中将字体设为 “黑体” ，大小设为“四号” 。激活 Form1窗体，通过其属性窗口将标题（Caption 属性）设为“输入” ，最大化按钮（MaxButton 属性）设为 False，最小化按钮（MinButton 属性）设为 False。参考文件：c:wexam26990001hl
3、psys参考答案sjt1.vbp、sjt1.frm、sjt1.vbw请把这些文件复制到 c:wexam26990001 中，然后打开 sjt1.vbp 文件并运行。*（2）在名称为 Form1 的窗体上画一个名称为 Image1 的图象框，利用属性窗口装入考生目录下的图象文件 pic1.bmp，并设置适当属性使其中的图象可以适应图象框大小；再画两个命令按钮，名称分别为 Command1、Command2 ，标题分别为“向右移动” 、 “向下移动” 。请编写适当的事件过程， 使得在运行时，每单击“向右移动”按钮一次，图象框向右移动 100；每单击“向下移动”按钮一次，图象框向下移动 100。运行
4、时的窗体如图所示。要求程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。BCE 培训中心内部资料； 教学咨询 QQ：1052205362国家教育部考试中心题库 2解题思路：启动 Visual Basic 系统，创建一个 Form1 窗体。在该窗体上画一个图象框控件，通过其属性窗口将名称设为 Image1，通过其Picture 属性将 pic1.jpg 装入图片框，Stretch 属性设为 True。画二个命令按钮控件，通过其属性窗口将名称分别设为 Command1、Command2，标题（Capti
5、on 属性）设为“向右移动” 、 “向下移动” 。单击“向右移动”按钮（即运行 Click 事件过程） ，在该 Click 事件过程中加入语句：Private Sub Command1_Click()Image1.Left = Image1.Left + 100End Sub单击“向下移动”按钮（即运行 Click 事件过程） ，在该 Click 事件过程中加入语句：Private Sub Command2_Click()Image1.Top = Image1.Top + 100End Sub参考文件：c:wexam26990001hlpsys参考答案sjt2.vbp、sjt2.frm 、sj
6、t2.frx、 sjt2.vbw请把这些文件复制到 c:wexam26990001 中，然后打开 sjt2.vbp 文件并运行。2. 简单应用（2 小题，每题 20 分，计 40 分）注意：下面出现的“考生文件夹”均为%USER%*（1）在考生目录下有一个工程文件 sjt3.vbp，窗体上有一个圆和一条直线（直线的名称为 Line1）构成一个钟表的图案；有两个命令按钮，名称分别为Command1、Command2，标题分别为“开始” 、 “停止” ；还有一个名为Timer1 的计时器。程序运行时，钟表指针不动，单击“开始”按钮，则钟表上的指针（即 Line1）开始顺时针旋转（每秒转 6，一分钟
7、转一圈） ；单击“停止”按钮，则指针停止旋转。运行时的窗体如图所示。请设置计时器的适当属性，使得每秒激活计时器的 Timer 事件一次；并编写两个按钮的 Click 事件过程。文件中已经给出了所有控件和部分程序，不得修改已有程序和其它控件的属性；编写的事件过程中不得使用变量，且只能写一条语句。最后把修改后的文件按原文件名存盘。BCE 培训中心内部资料； 教学咨询 QQ：1052205362国家教育部考试中心题库 3解题思路：启动 Visual Basic 系统，打开考生文件夹下需编辑的工程文件 sjt3.vbp，相应的窗体文件名为 sjt3.frm。由于所提供的窗体控件不完整，通过其属性窗口将
8、计时器的 Enabled 属性设为False，Interval 属性设为1000。单击“开始”按钮（即运行 Click 事件过程） ，在该 Click 事件过程中加入语句：Private Sub Command1_Click()Timer1.Enabled = TrueEnd Sub单击“停止”按钮（即运行 Click 事件过程） ，在该 Click 事件过程中加入语句：Private Sub Command2_Click()Timer1.Enabled = FalseEnd Sub参考文件：c:wexam26990001hlpsys参考答案sjt3.vbp、sjt3.frm、sjt3.vbw
9、请把这些文件复制到 c:wexam26990001 中，然后打开 sjt3.vbp 文件并运行。*（2）在考生文件夹下有一个工程文件 sjt4.vbp，窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在 Text1 中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入 Text2（如图所示） 。在给出的窗体文件中已经给出了全部控件，但程序不完整，要求：去掉程序中的注释符，把程序中的 ？改为正确的内容。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。解题思路：启动 Visual Basic 系统，打开考生文件夹下
10、需编辑的工程文件 sjt4.vbp，相应的窗体文件名为 sjt4.frm。由于所提供的窗体程序不完整，在命令按钮的 Private Sub Command1_Click()事件过程中，有三处地方需要修改。1) 将语句a = Mid$(Text1.Text, ? , 1)改为a = Mid$(Text1.Text, k, 1)BCE 培训中心内部资料； 教学咨询 QQ：1052205362国家教育部考试中心题库 42) 将语句ch = ch + ?改为ch = ch + LCase(a)3) 将语句Text2 = ?改为Text2 = ch参考文件：c:wexam26990001hlpsys参考
11、答案sjt4.vbp、sjt4.frm、sjt4.vbw请把这些文件复制到 c:wexam26990001 中，然后打开 sjt4.vbp 文件并运行。*3. 综合应用（1 小题，计 30 分）注意：下面出现的“考生文件夹”均为%USER%在考生目录下有一个工程文件 sjt5.vbp。窗体中已经给出了所有控件（如图所示） 。请编写适当的事件过程完成以下功能：单击“读数”按钮，则把考生目录下的 in5.txt 文件中的一个整数放入 Text1；单击“ 计算”按钮，则计算出大于该数的第 1 个素数，并显示在 Text2 中；单击“存盘”按钮，则把找到的素数存到考生目录下的 out5.txt 文件中
12、。注意：在结束程序运行之前，必须单击“存盘”按钮，把结果存入 out5.txt 文件，否则无成绩。最后把修改后的文件按原文件名存盘。解题思路：启动 Visual Basic 系统，打开考生文件夹下需编辑的工程文件 sjt5.vbp，相应的窗体文件名为 sjt5.frm。由于所提供的窗体程序不完整，需添加事件过程。单击“计算”按钮（即运行 Click 事件过程） ，在该 Click 事件过程中加入语句：Private Sub Command2_Click()a% = CInt(Text1.Text)Doa% = a% + 1Loop Until isprime(a%)Text2.Text = a
13、%End Subisprime 函数是判断参数是否为素数的，函数中语句为：Function isprime(a As Integer)Dim flag As Booleank% = 2flag = TrueWhile k% = Int(a / 2) And flagIf a / k% = Int(a / k%) Thenflag = FalseEnd IfBCE 培训中心内部资料； 教学咨询 QQ：1052205362国家教育部考试中心题库 5k% = k% + 1Wendisprime = flagEnd Function参考文件：c:wexam26990001hlpsys参考答案sjt5.
14、vbp、sjt5.frm 、sjt5.vbw、out5.txt请把这些文件复制到 c:wexam26990001 中，然后打开 sjt5.vbp 文件并运行。第 02 套：1. 基本操作（2 小题，每小题 15 分，共计 30 分）注意：下面出现的“考生文件夹”均为%USER%*请根据以下各小题的要求设计 Visual Basic 应用程序（包括界面和代码） 。（1）在名称为 Form1 的窗体上用名称为 Shape1 的控件画一个圆，其直径为 1500（即宽、高均为 1500 ） ，并设置适当属性，使窗口标题为“圆” ，窗体标题栏上不显示最大化和最小化按钮（如图所示） 。注意：存盘时必须存放
15、在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。解题思路：启动 Visual Basic 系统，创建一个 Form1 窗体。在该窗体上用 Shape 图形控件画一个园，通过其属性窗口将名称设为 Shape1，高（Height 属性）设为 1500，宽（Width 属性）设为 1500，Shape 属性设为 3。激活 Form1 窗体，通过其属性窗口将标题（Caption 属性）设为“圆” ，最大化按钮（MaxButton 属性）设为 False，最小化按钮（MinButton 属性）设为False。参考文件：c:wexam26990001hlpsys参考答案sj
16、t1.vbp、sjt1.frm、sjt1.vbw请把这些文件复制到 c:wexam26990001 中，然后打开 sjt1.vbp 文件并运行。*（2）在名称为 Form1 的窗体中建立一个弹出式菜单（程序运行时不显示） ，名称为 file， 含两个菜单项，其名称分别为 open、save，标题分别为 “打开” 、 “存盘” 。编写适当的事件过程。程序运行后，如果用鼠标右键单击窗体，则弹出此菜单（如图所示） 。注意：程序中不能使用变量。保存时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frmBCE 培训中心内部资料； 教学咨询 QQ：1052205362国家
17、教育部考试中心题库 6解题思路：启动 Visual Basic 系统，创建一个 Form1 窗体。在该窗体上通过菜单编辑器建立一个主菜单，在菜单编辑器的标题处为空，名称处输入 file，将“可见”单选按钮设为不选状态。在该菜单下有二个子菜单，在菜单编辑器的标题处分别输入“打开” 、 “存盘” ，名称处分别输入 open、save。鼠标右键单击窗体（即运行 MouseDown 事件过程） ，在该 MouseDown 事件过程中加入语句：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As
18、 Single)If Button = 2 ThenPopupMenu fileEnd IfEnd Sub参考文件：c:wexam26990001hlpsys参考答案sjt2.vbp、sjt2.frm、sjt2.vbw请把这些文件复制到 c:wexam26990001 中，然后打开 sjt2.vbp 文件并运行。2. 简单应用（2 小题，每题 20 分，计 40 分）注意：下面出现的“考生文件夹”均为%USER%*（1）在考生目录下有一个工程文件 sjt3.vbp，窗体上有一个组合框 Combo1，其中已经预设了内容；还有一个文本框 Text1 和三个命令按钮，名称分别为Command1、Co
19、mmand2、Command3，标题分别为“修改 ”、 “确定” 、 “添加” 。程序运行时， “确定”按钮不可用，如图所示。程序的功能是：在运行时，如果选中组合框中的一个列表项，单击“修改”按钮，则把该项复制到 Text1 中（可在 Text1 中修改） ，并使“确定”按钮可用；若单击“确定”按钮， 则把修改后的 Text1 中的内容替换组合框中该列表项的原有内容，同时使“确定”按钮不可用；若单击“添加”按钮，则把在 Text1 中的内容添加到组合框中。所提供的窗体文件已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ？ 改为正确的内容。但不能修改程序中的其他部分，
20、也不能修改控件的属性。最后把修改后的文件按原文件名存盘。解题思路：启动 Visual Basic 系统，打开考生文件夹下需编辑的工程文件 sjt3.vbp，相应的窗体文件名为 sjt3.frm。由于所提供的窗体控件不完整，通过属性窗口将“确定”按钮的 Enabled 属性设为 False。由于所提供的窗体程序不完整，在“修改”按钮的 Private Sub Command1_Click()事件过程中，有一处地方需要修改。1) 将语句Command2. ? = TrueBCE 培训中心内部资料； 教学咨询 QQ：1052205362国家教育部考试中心题库 7改为Command2.Enabled
21、= True在“确定”按钮的 Private Sub Command2_Click()事件过程中，有一处地方需要修改。1) 将语句Combo1.List( ? ) = Text1改为Combo1.List(Combo1.ListIndex) = Text1在“添加”按钮的 Private Sub Command3_Click()事件过程中，有一处地方需要修改。1) 将语句? Text1改为Combo1.AddItem Text1参考文件：c:wexam26990001hlpsys参考答案sjt3.vbp、sjt3.frm 、sjt3.frx、 sjt3.vbw请把这些文件复制到 c:wexam
22、26990001 中，然后打开 sjt3.vbp 文件并运行。*（2）在考生目录下有一个工程文件 sjt4.vbp，窗体中的两个滚动条分别表示红灯亮和绿灯亮的时间（秒） ，移动滚动框可以调节时间，调节范围为 1-10秒。刚运行时，红灯亮。单击“开始”按钮则开始切换：红灯到时后自动变为黄灯，1 秒后变为绿灯；绿灯到时后自动变为黄灯，1 秒后变为红灯，如此切换（如图所示） 。所提供的窗体文件已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ？改为正确的内容。提示：在三个图片框 picture1、picture2、picture3 中分别放置了红灯亮、绿灯亮、黄灯亮的图标，并
23、重叠在一起，当要使某个灯亮时，就使相应的图片框可见，而其他图片框不可见，并保持规定的时间，时间到就切换为另一个图片框可见，其他图片框不可见。注意：考生不得修改工程中已经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。解题思路：启动 Visual Basic 系统，打开考生文件夹下需编辑的工程文件 sjt4.vbp，相应的窗体文件名为 sjt4.frm。由于所提供的窗体程序不完整，在命令按钮的 Private Sub Command1_Click()中，有二处地方需要修改。1) 将语句? = HScroll1.Value改为red = HScroll1.Value2) 将语句Timer1
24、.Enabled = ?改为Timer1.Enabled = True由于所提供的窗体程序不完整，在计时器的 Private Sub Timer1_Timer()中，有二处地方需要修改。1) 将语句BCE 培训中心内部资料； 教学咨询 QQ：1052205362国家教育部考试中心题库 8? .Visible = False改为Picture1.Visible = False2) 将语句green = ?改为green = green - 1参考文件：c:wexam26990001hlpsys参考答案sjt4.vbp、sjt4.frm 、sjt4.frx、 sjt4.vbw请把这些文件复制到 c
25、:wexam26990001 中，然后打开 sjt4.vbp 文件并运行。*3. 综合应用（1 小题，计 30 分）注意：下面出现的“考生文件夹”均为%USER%在考生文件夹下有一个工程文件 sjt5.vbp，相应的窗体文件是 sjt5.frm（如图所示） 。该程序的功能是： 单击“读数”按钮，读入考生文件夹下in5.txt 文件中的一个整数，并放入 Text1 中； 单击“计算 ”按钮，则计算小于该数的最大素数，并显示在 Text2 中；单击“存盘”按钮，则把该素数保存到考生文件夹下的 out5.txt 文件中。要求：1）程序已给出“存盘”按钮的事件过程代码。 “读数”按钮的事件过程和判断
26、x 是否是素数的函数 prime（x）不完整，请去掉注释，并在？处填上正确的内容，使程序完整。2）编写“计算”按钮的事件过程。计算小于 Text1 中数据的最大素数。3）请不要改动窗体上所有控件属性设置及相应的过程代码。最后将改动后的程序用原文件名保存。解题思路：启动 Visual Basic 系统，打开考生文件夹下需编辑的工程文件 sjt5.vbp，相应的窗体文件名为 sjt5.frm。由于所提供的窗体程序不完整，需添加事件过程。执行“计算”命令（即运行 Click 事件过程） ，在该 Click 事件过程中加入语句：Private Sub Command2_Click()n = Val(T
27、ext1.Text)For i = n To 2 Step -1l = prime(i)If l = True ThenExit ForEnd IfNextText2.Text = iEnd Sub在“读数”按钮的 Private Sub Command1_Click()中，有一处地方需要修改。1) 将语句Input #1, ?BCE 培训中心内部资料； 教学咨询 QQ：1052205362国家教育部考试中心题库 9改为Input #1, a%在函数 Function prime(x) As Boolean 中，有一处地方需要修改。1) 将语句prime = ?改为prime = flag参考
28、文件：c:wexam26990001hlpsys参考答案sjt5.vbp、sjt5.frm 、sjt5.vbw、out5.txt请把这些文件复制到 c:wexam26990001 中，然后打开 sjt5.vbp 文件并运行。第 03 套：1. 基本操作（2 小题，每小题 15 分，共计 30 分）注意：下面出现的“考生文件夹”均为%USER%*请根据以下各小题的要求设计 Visual Basic 应用程序（包括界面和代码） 。（1）在名称为 Form1 的窗体上画一个名称为 Frame1，标题为“目的地”的框架，在框架中添加三个复选框，名称分别为 Check1、Check2 、Check3 ，
29、其标题分别是“上海” 、 “广州” 、 “巴黎” ，其中“上海”为选中状态， “广州”为未选状态， “巴黎”为灰色状态，如图所示。请画控件并设置相应属性。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。解题思路：启动 Visual Basic 系统，创建一个 Form1 窗体。在该窗体上画一个框架控件，通过其属性窗口将名称设为 Frame1，标题（Caption属性）设为“目的地” 。在 F1 框架中画三个复选框控件，通过其属性窗口将名称分别设为Check1、Check2、Check3，标题（Caption 属性）分别设为“上海” 、 “广州
30、” 、 “巴黎” ， “上海”的 Value 属性设为 1,“巴黎”的Value 属性设为 2。参考文件：c:wexam26990001hlpsys参考答案sjt1.vbp、sjt1.frm、sjt1.vbw请把这些文件复制到 c:wexam26990001 中，然后打开 sjt1.vbp 文件并运行。*（2）在名称为 Form1 的窗体上画一个名称为 Picture1 的图片框， 其宽和高分别为 1700、1900。请编写适当事件过程，使得在运行时，单击图片框，则装入考生目录下的图形文件 pic1.bmp，如图所示。单击窗体则图片框中的图形消失。要求程序中不得使用变量，每个事件过程中只能写一
31、条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名BCE 培训中心内部资料； 教学咨询 QQ：1052205362国家教育部考试中心题库 10为 sjt2.frm。解题思路：启动 Visual Basic 系统，创建一个 Form1 窗体。在该窗体上画一个图片框，通过其属性窗口将名称设为 Picture1，宽度（Width 属性）设为 1700，高度（Height属性）设为 1900。单击图片框（即运行 Click 事件过程） ，在 Click 事件过程中加入语句：Picture1.Picture =LoadPicture(“pic1.bmp“)，即将考生目
32、录下的图形文件 pic1.bmp 装入图片框中。单击窗体（即运行 Click 事件过程） ，在 Click 事件过程中加入语句：Picture1.Picture = LoadPicture(“)，即图片框中的图形消失。参考文件：c:wexam26990001hlpsys参考答案sjt2.vbp、sjt2.frm、sjt2.vbw请把这些文件复制到 c:wexam26990001 中，然后打开 sjt2.vbp 文件并运行。2. 简单应用（2 小题，每题 20 分，计 40 分）注意：下面出现的“考生文件夹”均为%USER%*（1）在考生目录下有一个工程文件 sjt3.vbp，窗体文件中已给出所
33、有控件和部分程序，如图所示。要求：1）利用属性窗口设置适当的属性，使 text1、text2 中数据右对齐；2）请编写适当的程序完成以下功能：在 Text1 中输入 40（度数） ，选择一个单选按钮，单击“计算”按钮，则根据所选择的单选按钮， 计算出相应的正弦、余弦值（保留 3 位小数，第 4 位截去， 取 3.14159） ，并显示在 Text2 中。注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一种计算，在 Text1 中输入的必须是 40， 必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。解题思路：启动 Visual Basic 系统，打开考生文件夹下需编辑的工程文件 sjt3.vbp，相应的窗体文件名为 sjt3.frm。由于所提供的窗体控件不完整，通过属性窗口将文本框的对齐格式（Alignment 属
