vb套题——斐波那契数列

第03套：1. 基本操作（2小题，每小题15分，共计30分）注意：下面出现的“考生文件夹”均为%USER%**********************************************************************请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。

（1）在名称为Form1的窗体上画一个名称为Frame1，标题为“目的地”的框架，在框架中添加三个复选框，名称分别为Check1、Check2、Check3，其标题分别是“上海”、“广州”、“巴黎”，其中“上海”为选中状态，“广州”为未选状态，“巴黎”为灰色状态，如图所示。

请画控件并设置相应属性。

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

解题思路：启动Visual Basic系统，创建一个Form1窗体。

在该窗体上画一个框架控件，通过其属性窗口将名称设为Frame1，标题（Caption属性）设为“目的地”。

在F1框架中画三个复选框控件，通过其属性窗口将名称分别设为Check1、Check2、Check3，标题（Caption属性）分别设为“上海”、“广州”、“巴黎”，“上海”的Value属性设为1,“巴黎”的Value属性设为2。

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

**********************************************************************（2）在名称为Form1的窗体上画一个名称为Picture1的图片框，其宽和高分别为1700、1900。

请编写适当事件过程，使得在运行时，单击图片框，则装入考生目录下的图形文件pic1.bmp，如图所示。

单击窗体则图片框中的图形消失。

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

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

解题思路：启动Visual Basic系统，创建一个Form1窗体。

在该窗体上画一个图片框，通过其属性窗口将名称设为Picture1，宽度（Width属性）设为1700，高度（Height属性）设为1900。

单击图片框（即运行Click事件过程），在Click事件过程中加入语句：Picture1.Picture = LoadPicture("pic1.bmp")，即将考生目录下的图形文件pic1.bmp装入图片框中。

单击窗体（即运行Click事件过程），在Click事件过程中加入语句：Picture1.Picture = LoadPicture("")，即图片框中的图形消失。

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

2. 简单应用（2小题，每题20分，计40分）注意：下面出现的“考生文件夹”均为%USER%***********************************************************************（1）在考生目录下有一个工程文件sjt3.vbp，窗体文件中已给出所有控件和部分程序，如图所示。

要求：1）利用属性窗口设置适当的属性，使text1、text2中数据右对齐；2）请编写适当的程序完成以下功能：在Text1中输入40（度数），选择一个单选按钮，单击“计算”按钮，则根据所选择的单选按钮，计算出相应的正弦、余弦值（保留3位小数，第4位截去，π取3.14159），并显示在Text2中。

注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一种计算，在Text1中输入的必须是40，必须用窗体右上角的关闭按钮结束程序，否则无成绩。

最后，程序按原文件名存盘。

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

由于所提供的窗体控件不完整，通过属性窗口将文本框的对齐格式（Alignment属性）均设为1。

由于所提供的窗体程序不完整，需添加事件过程。

单击“计算”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command1_Click()If Option1.Item(0) = True ThenText2.Text = Format(Sin(Val(Text1.Text) * 3.14159 / 180), "0.000")End IfIf Option1.Item(1) = True ThenText2.Text = Format(Cos(Val(Text1.Text) * 3.14159 / 180), "0.000")End IfEnd Sub参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt3.vbp、sjt3.frm、sjt3.vbw、out3.txt请把这些文件复制到c:\wexam\26990001中，然后打开sjt3.vbp文件并运行。

**********************************************************************（2）在考生文件夹下有一个工程文件sjt4.vbp，窗体上已经给出所有控件。

程序运行时，单击“开始”按钮，则汽车图标向右运动；单击“停止”按钮则汽车停止运动；移动滚动条上的滚动框，可以改变汽车的运动速度（滚动框向右移动，速度减慢）。

如图所示。

要求：去掉程序中的注释符，把程序中的？改为正确的内容。

提示：窗体上有一个计时器，计时器的事件过程每执行一次，汽车向右移动10，程序通过改变计时器控件的Interval属性来改变汽车的运动速度。

注意：不得修改控件的属性。

最后，按原文件名存盘。

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

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

1) 将语句'Timer1.Enabled = ?改为Timer1.Enabled = True在滚动框的Private Sub HScroll1_Change()事件过程中，有一处地方需要修改。

1) 将语句'?.Interval = HScroll1.Value改为Timer1.Interval = HScroll1.Value在计时器的Private Sub Timer1_Timer()事件过程中，有一处地方需要修改。

1) 将语句'Picture1.Left = ? + 10改为Picture1.Left = Picture1.Left + 10参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt4.vbp、sjt4.frm、sjt4.frx、sjt4.vbw请把这些文件复制到c:\wexam\26990001中，然后打开sjt4.vbp文件并运行。

**********************************************************************3. 综合应用（1小题，计30分）注意：下面出现的“考生文件夹”均为%USER%以下数列：1，1，2，3，5，8，13，21，…，的规律是从第3个数开始，每个数是它前面两个数之和。

在考生目录下有一个工程文件sjt5.vbp。

窗体中已经给出了所有控件，如图所示。

请编写适当的事件过程实现以下功能：在Text1中输入整数40，单击“计算”按钮，则在Text2中显示该数列第40项的值；如果单击“存盘”按钮，则将计算的第40项的值存到考生目录下的out5.txt文件中。

（提示：因数据较大，应使用Long型变量）注意：在结束程序运行之前必须单击“存盘”按钮，把结果存入out5.txt文件，否则无成绩。

最后把修改后的文件按原文件名存盘。

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

由于所提供的窗体程序不完整，需添加事件过程。

单击“计算”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command1_Click()Dim f1, f2, f As LongDim a(40) As Longf1 = 1f2 = 1a(1) = f1a(2) = f2For i = 3 To Val(Text1.Text)f = f1 + f2a(i) = ff1 = f2f2 = fNextText2.Text = a(40)End Sub参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt5.vbp、sjt5.frm、sjt5.vbw、out5.txt请把这些文件复制到c:\wexam\26990001中，然后打开sjt5.vbp文件并运行。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第04套：1. 基本操作（2小题，每小题15分，共计30分）注意：下面出现的“考生文件夹”均为%USER%**********************************************************************请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。

（1）在名称为Form1 的窗体上画一个名称为Combo1的组合框，其宽度为1200，其类型如图所示（即简单组合框）。

要求：1）请按图中所示，通过属性窗口输入“北京”、“上海”、“广州”、“深圳”。

2）设置适当的属性，使得运行时，窗体的最大化按钮和最小化按钮消失。

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

解题思路：启动Visual Basic系统，创建一个Form1窗体。

在该窗体上画一个组合框控件，通过其属性窗口将名称设为Combo1，宽（Width属性）设为1200，Style属性设为1，向组合框中添加项目（List属性），添加的项目分别为“北京”、“上海”、“广州”、“深圳”，每个项目为一行。