vb套题——斐波那契数列
法定婚假-
第
03
套：
1.
基本操作（
2
< br>小题，每小题
15
分，共计
30
分）
注意：下面出现的“考生文件夹”均为
%USER%
***************************
*******************************************
请根据以下各小题的要求设计
Visual
Basic
应用程序（包括界面和代码）。
（
1<
/p>
）在名称为
Form1
的窗体上画一个名
称为
Frame1
，标题为“目的地”的框架，
在框架中添加三个复选框，名称分别
为
Check1
、
Check2
、
Check3
，其标题
分别是“上海”、“广州”、“巴黎”，
其中“上海”为选中状态，“广
州”为未选状态，“巴黎”为灰色状态，如图所示。请画控件并设置相应
属性。
注意：
存盘时必须存放在考生文件夹下，工程文件
名为
，窗体文件名
为
。
解题思路：
启动
Visual Basi
c
系统，创建一个
Form1
窗体。<
/p>
在该窗体上画一个框架控件，
通过其属性窗口将名称设为
Frame1
，
标题
（
Caption
属性）
设为“目的地”。在
F1
< br>框架中画三个复选框控件，通过其属性窗口将名称分别设为
Check1
、
Check2
、
Ch
eck3
，标题（
Caption
属性
）分别设为“上海”、“广州”、“巴黎”，“上海”
的
Val
ue
属性设为
1,
“巴黎”的
Value
属性设为
2
。
<
/p>
参考文件：
c:wexam26990001hlpsys
参考答案
、
、
请把这些文件复制到
c:wexam26990001
中，然后打开
文件并运行。
******************************************
****************************
（
2
）在
名称为
Form1
的窗体上画一个名称为
Picture1
的图片框，
其宽和高分别
为
1700
、
190
0
。请编写适当事件过程，使得在运行时，单击图片框，则装
入考生目录下的图形文件
，如图所示。单击窗体则图片框中的图
形消失。要求程序中不得使用变量，每个事件过
程中只能写一条语句。
注意：
存盘时必须存放在考生文件夹下，工程文件名为
，窗体文件名
为
。
解题思路：
启动
Visual Basi
c
系统，创建一个
Form1
窗体。<
/p>
在该窗体上画一个图片框，通
过其属性窗口将名称设为
Picture1
，宽度（
Width
属性）
设为
1
700
，高度（
Height
属性）设
为
1900
。
单击图片框
（即运行
Click
事件过程）
，
在
Click
事件过程中加入语句：
e
= LoadPicture(
，即将考生目录下的图形文
件
装入图片框中。单击窗
体（即运行<
/p>
Click
事件过程），在
Click<
/p>
事件过程中加入语句：
e =
Load
Picture(
，即图片框中的图形消失。
参考文
件：
c:wexam26990001hlpsys
参考答案<
/p>
、
、
请把这些文件复制
到
c:wexam26990001
中，然后打开
文件并运行。
2.
简单应用（
2
小题，每题
< br>20
分，计
40
分）
注意：下面出现的“考生文件夹”均为
%USER%
***************************
********************************************
（
1<
/p>
）在考生目录下有一个工程文件
，窗体文
件中已给出所有控件和部
分程序，如图所示。
要求：
1
）利用属性窗口设置适当的属性，使
text1
、
text2
中数据右对齐；
2
）请编写适当的程序完成以下功能：在<
/p>
Text1
中输入
40
< br>（度数），选择
一个单选按钮，单击“计算”按钮，则根据所选择的单选按钮，
计
算出相应的正弦、余弦值（保留
3
位小数，第
4
位截去，
π
取
3.14159
），并显示在
Text2
中。
注意：
考生不得修改窗体文件中已经存在的程序，
在结束程序运行之前，必须
进行一种计算，在
Text1
中输入的必须是
40
，
必须用窗体右上角的关闭
按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
解题思路：
启动
Visual
Basic
系统，打开考生文件夹下需编辑的工程文件
，
相应的窗体文
件名为
。
由于所提供的窗体控件不完整，通过属性窗
口将文本框的对齐格式（
Alignment
属性）
均设为
1
。
由于所提供的窗体程序不完整，需添加事件过程。
单击“计算”按钮（即运行
C
lick
事件过程），在该
Click
事件过程中加入语句：
Private Sub
Command1_Click()
If (0) = True Then
= Format(Sin(Val() * 3.14159 /
180),
End If
If (1)
= True Then
= Format(Cos(Val()
* 3.14159 / 180),
End If
End Sub
参考文件：
c:wexam2699
0001hlpsys
参考答案
、
、
、
请把这些文件复制到
c:wexam26990001
中，然后打开
文件并运行。
******
**************************************************
**************
< br>（
2
）在考生文件夹下有一个工程文件
< br>
，窗体上已经给出所有控件。程
序运行时，单击“开始”按钮，则汽车图标向右
运动；单击“停止”按钮
则汽车停止运动；移动滚动条上的滚动框，可以改变汽车的运动速度（滚
动框向右移动，速度减慢）。如图所示。
要求：
去掉程序中的注释符，把程序中的
？改为正确的内容。
提示：
窗体上有一个计时器，计时器的事件过程每执行一次，汽车向右移动
10
，程序通过改变计时器控件的
Interval
属性来改变汽车的运动速度。
注意：
不得修改控件的属性。最后，按原文件名存盘。
解题思路：
启动
Visual
Basic
系统，打开考生文件夹下需编辑的工程文件
，
相应的窗体文
件名为
。
由于所提供的窗体程序不完整，在“开始”
按钮的
Private
Sub
Co
mmand1_Click()
事件
过程中，有一处地方需要修
改。
1)
将语句
'd = ?
改为
d = True
在滚动框的
Private Sub HScroll1_Ch
ange()
事件过程中，有一处地方需要修改。
1)
将语句
'?.Interval =
改为
al =
在计时器的
Private
Sub Timer1_Timer()
事件过程中，有一处地方需要修改。
1)
将语句
' = ? + 10
改为
= + 10
参考文
件：
c:wexam26990001hlpsys
参考答案<
/p>
、
、
、
请把这些文件复制到
c:wexam
26990001
中，然后打开
文件并
运行。
************************
**********************************************
3.
综合应用（
1
< br>小题，计
30
分）
注意：下面出现的“考生文件夹”均为
%USER%
以下数列：
1
，
1
，
< br>2
，
3
，
5
，
8
，
1
3
，
21
，„，的规律是从第
3
个数开始，每
个数是它前面两个数之和。
在考生目录下有一个工程文件
。窗体中
已经给出了所有控件，如图
所示。请编写适当的事件过程实现以下功能：在
Text1
中
输入整数
40
，单击
“计算”按钮，则在
Tex
t2
中显示该数列第
40
项的值；如果
单击“存盘”按
钮，则将
计算的第
40
项的值存到考生目录下的
文件中。（提示：因
数据较大，应使用
Long
型变量）
注意：
在结束程序运行之前必须单击“存盘”按钮，把
结果存入
文件，
否则无成绩。最后把修改后的文件按原文件名存盘。
解题思路：
启动
Visual
Basic
系统，打开考生文件夹下需编辑的工程文件
< br>
，相应的窗体文
件名为
。
由于所提供的窗体程序不完整，需添加事件过程。
单击“计算”按钮（即运行
C
lick
事件过程），在该
Click
事件过程中加入语句：
Private Sub
Command1_Click()
Dim f1, f2, f As
Long
Dim a(40) As Long
f1 = 1
f2 = 1
a(1) = f1
a(2) = f2
For i = 3 To Val()
f = f1 + f2
a(i) = f
f1 = f2
f2 = f
Next
= a(40)
End Sub
参考文
件：
c:wexam26990001hlpsys
参考答案<
/p>
、
、
、
请把这些文件复制到
c:wexam
26990001
中，然后打开
文件并
运行。
※※※※※※※※※※※※※※※※※※※※※※※※
※※※※※※※※※※※
第
04
套：
1.
基本操作（
2
< br>小题，每小题
15
分，共计
30
分）
注意：下面出现的“考生文件夹”均为
%USER%
***************************
*******************************************
请根据以下各小题的要求设计
Visual
Basic
应用程序（包括界面和代码）。
（
1
）在名称为
Form1
的窗体上画一个名
称为
Combo1
的组合框，其宽度为
1200
，
其类型如图所示（即简单组合框）。
要求：
1
）请按图中所示，通过属性窗口输入“北京”、“上海”、“广州”、
“深圳”。
2
）设置适当的属性，使得运行时，窗体的最
大化按钮和最小化按钮消
失。
注意：
存盘时必须存放在考生文件夹下，工程文件名为
，
窗体文件名
为
。
解题思路：
启动
Visual Basi
c
系统，创建一个
Form1
窗体。<
/p>
在该窗体上画一个组合框控件
，通过其属性窗口将名称设为
Combo1
，宽（
Width
属性）
设为
12
00
，
Style
属性设为
1
，
向组合框中添加项目
（
List
属性）
，
< br>添加的项目分别为
“北京”
、
“
上海”、“广州”、“深圳”，每个项目为一行。激活
Form1
窗体，通过其属性窗口将最
大化按钮（
MaxButton<
/p>
属性）设为
False
，最小化按钮（<
/p>
MinButton
属性）设为
Fals
e
。
参考文件：
c:wexam2699
0001hlpsys
参考答案
、
、
、
请把这些文件复制到
c:wexam26990001
中，然后打开
文件并运行。
******
**************************************************
**************
（
2
）在名称为
Form1
的窗体上画两个文本框，名称分别为
Text1
、
Text2
，再画
两个命令按钮，名称分别为
Command1
、
Command2
，标题分别为“左”、“
右”，见图
2
。
要求：
编写适当的事件过程，使得程序运行时，单
击“左”按钮，则焦点位于
Text1<
/p>
上；单击“右”按钮，则焦点位于
Text2
上。
注意：
程序中不得使用变量，事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件
名为
，窗体文件名
为
。
解题思路：
启动
Visual Basi
c
系统，创建一个
Form1
窗体。<
/p>
在该窗体上画二个文本框控件
，
通过其属性窗口将名称分别设为
Text1
< br>和
Text2
。
画二个
命令按钮控件，
通过其属性窗口将名称分别设为
Command1
、
Command2
，标题（
Caption
属性）
分别设
为“左”、“右”。
单击“
左”按钮（即运行
Click
事件过程），在该
Click
事件过程中加入语句：
Private Sub Command1_Click()
us
End Sub
单击“右”按钮（即运行
Cl
ick
事件过程），在该
Click
事
件过程中加入语句：
Private Sub
Command2_Click()
us
End
Sub
参考文件：
c:wexam26990001hlpsys
参
考答案
、
、<
/p>
请把这些
文件复制到
c:wexam26990001
中，然后打开
文件并运行。
2.
简单应用（
2
< br>小题，每题
20
分，计
40
分）
注意：下面出现的“考生文件夹”均为
%USER%
***************************
********************************************
（
1<
/p>
）在考生目录下有一个工程文件
，窗体上
有一个命令按钮
Command1
（标题为“下一个”）。
要求：
在窗体上建立一个单选按钮数组
Option1
，含
4
个单选按钮，标题分别为
“选项
1
”、“选项
2
”、“选项
3
”、“选项
4
”，初始状态下，“
选择
1
”为选中状态。如图所示。
窗体文件中已经给出了命令按钮的
Click
事件过程，但不完整，
请去掉程序中的注释符，把程序中的
？改为正
确的内容，使得每单击命令按钮一次，就选中下一个单选按钮，如果已
经选中最后一个单选按钮，再单击命令按钮
，则选中第
1
个单选按钮。
注意：
不能修改程序中的其他部分。最后把修改后
的文件按原文件名存盘。