2012年九月二级VB上机答案.doc

2012年九月VB最新上机试题答案第01套：1. 基本操作（2小题，每小题15分，共计30分）注意：下面出现的“考生文件夹”均为%USER%*请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。（1）在名称为Form1的窗体上画一个名称为Text1的文本框，其高、宽分别为400、2000。请在属性框中设置适当的属性满足以下要求：1）Text1的字体为“黑体”，字号为“四号”；2）窗体的标题为“输入”，不显示最大化按钮和最小化按钮。运行后的窗体如图所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。解题思路：启动Visual Basic系统，创建一个Form1窗体。在该窗体上画一个文本框控件，通过其属性窗口将名称设为Text1，高（Height属性）设为400，宽（Width属性）设为2000，点击Font属性在弹出的字体对话框中将字体设为“黑体”，大小设为“四号”。激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“输入”，最大化按钮（MaxButton属性）设为False，最小化按钮（MinButton属性）设为False。*（2）在名称为Form1的窗体上画一个名称为Image1的图象框，利用属性窗口装入考生目录下的图象文件 pic1.bmp，并设置适当属性使其中的图象可以适应图象框大小；再画两个命令按钮，名称分别为Command1、Command2，标题分别为“向右移动”、“向下移动”。请编写适当的事件过程， 使得在运行时，每单击“向右移动”按钮一次，图象框向右移动100；每单击“向下移动”按钮一次，图象框向下移动100。运行时的窗体如图所示。要求程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。解题思路：启动Visual Basic系统，创建一个Form1窗体。在该窗体上画一个图象框控件，通过其属性窗口将名称设为Image1，通过其Picture属性将pic1.jpg装入图片框，Stretch属性设为True。画二个命令按钮控件，通过其属性窗口将名称分别设为Command1、Command2，标题（Caption属性）设为“向右移动”、“向下移动”。单击“向右移动”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command1_Click()Image1.Left = Image1.Left + 100End Sub单击“向下移动”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command2_Click()Image1.Top = Image1.Top + 100End Sub2. 简单应用（2小题，每题20分，计40分）*（1）在考生目录下有一个工程文件sjt3.vbp，窗体上有一个圆和一条直线（直线的名称为Line1）构成一个钟表的图案；有两个命令按钮，名称分别为Command1、Command2，标题分别为“开始”、“停止”；还有一个名为Timer1的计时器。程序运行时，钟表指针不动，单击“开始”按钮，则钟表上的指针（即Line1）开始顺时针旋转（每秒转6，一分钟转一圈）；单击“停止”按钮，则指针停止旋转。运行时的窗体如图所示。请设置计时器的适当属性，使得每秒激活计时器的Timer事件一次；并编写两个按钮的Click事件过程。文件中已经给出了所有控件和部分程序，不得修改已有程序和其它控件的属性；编写的事件过程中不得使用变量，且只能写一条语句。最后把修改后的文件按原文件名存盘。解题思路：启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。由于所提供的窗体控件不完整，通过其属性窗口将计时器的Enabled属性设为False，Interval属性设为1000。单击“开始”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command1_Click()Timer1.Enabled = TrueEnd Sub单击“停止”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command2_Click()Timer1.Enabled = FalseEnd Sub*（2）在考生文件夹下有一个工程文件sjt4.vbp，窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在Text1中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入Text2（如图所示）。在给出的窗体文件中已经给出了全部控件，但程序不完整，要求：去掉程序中的注释符，把程序中的 ？改为正确的内容。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。解题思路：启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。由于所提供的窗体程序不完整，在命令按钮的Private Sub Command1_Click()事件过程中，有三处地方需要修改。1) 将语句a = Mid$(Text1.Text, ? , 1) 改为 a = Mid$(Text1.Text, k, 1)2) 将语句ch = ch + ? 改为 ch = ch + LCase(a)3) 将语句Text2 = ? 改为 Text2 = ch*3. 综合应用（1小题，计30分）在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件（如图所示）。请编写适当的事件过程完成以下功能：单击“读数”按钮，则把考生目录下的in5.txt文件中的一个整数放入Text1；单击“计算”按钮，则计算出大于该数的第1个素数，并显示在Text2中；单击“存盘”按钮，则把找到的素数存到考生目录下的out5.txt文件中。注意：在结束程序运行之前，必须单击“存盘”按钮，把结果存入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%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 Ifk% = k% + 1Wendisprime = flagEnd Function第02套：1. 基本操作（2小题，每小题15分，共计30分）*请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。（1）在名称为Form1的窗体上用名称为Shape1的控件画一个圆，其直径为1500（即宽、高均为1500 ），并设置适当属性，使窗口标题为“圆”，窗体标题栏上不显示最大化和最小化按钮（如图所示）。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。解题思路：启动Visual Basic系统，创建一个Form1窗体。在该窗体上用Shape图形控件画一个园，通过其属性窗口将名称设为Shape1，高（Height属性）设为1500，宽（Width属性）设为1500，Shape属性设为3。激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“圆”，最大化按钮（MaxButton属性）设为False，最小化按钮（MinButton属性）设为False。*（2）在名称为Form1的窗体中建立一个弹出式菜单（程序运行时不显示），名称为file， 含两个菜单项，其名称分别为open、save，标题分别为“打开”、“存盘”。编写适当的事件过程。程序运行后，如果用鼠标右键单击窗体，则弹出此菜单（如图所示）。注意：程序中不能使用变量。保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm解题思路：启动Visual Basic系统，创建一个Form1窗体。在该窗体上通过菜单编辑器建立一个主菜单，在菜单编辑器的标题处为空，名称处输入file，将“可见”单选按钮设为不选状态。在该菜单下有二个子菜单，在菜单编辑器的标题处分别输入“打开”、“存盘”，名称处分别输入open、save。鼠标右键单击窗体（即运行MouseDown事件过程），在该MouseDown事件过程中加入语句：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenPopupMenu fileEnd IfEnd Sub2. 简单应用（2小题，每题20分，计40分）*（1）在考生目录下有一个工程文件sjt3.vbp，窗体上有一个组合框Combo1，其中已经预设了内容；还有一个文本框Text1和三个命令按钮，名称分别为Command1、Command2、Command3，标题分别为“修改”、“确定”、“添加”。程序运行时，“确定”按钮不可用，如图所示。程序的功能是：在运行时，如果选中组合框中的一个列表项，单击“修改”按钮，则把该项复制到Text1中（可在Text1中修改），并使“确定”按钮可用；若单击“确定”按钮， 则把修改后的Text1中的内容替换组合框中该列表项的原有内容，同时使“确定”按钮不可用；若单击“添加”按钮，则把在Text1中的内容添加到组合框中。所提供的窗体文件已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ？ 改为正确的内容。但不能修改程序中的其他部分， 也不能修改控件的属性。最后把修改后的文件按原文件名存盘。解题思路：启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。由于所提供的窗体控件不完整，通过属性窗口将“确定”按钮的Enabled属性设为False。由于所提供的窗体程序不完整，在“修改”按钮的Private Sub Command1_Click()事件过程中，有一处地方需要修改。1) 将语句Command2. ? = True 改为 Command2.Enabled = True在“确定”按钮的Private Sub Command2_Click()事件过程中，有一处地方需要修改。1) 将语句Combo1.List( ? ) = Text1 改为 Combo1.List(Combo1.ListIndex) = Text1在“添加”按钮的Private Sub Command3_Click()事件过程中，有一处地方需要修改。1) 将语句? Text1 改为 Combo1.AddItem Text1*（2）在考生目录下有一个工程文件sjt4.vbp，窗体中的两个滚动条分别表示红灯亮和绿灯亮的时间（秒），移动滚动框可以调节时间，调节范围为1-10秒。刚运行时，红灯亮。单击“开始”按钮则开始切换：红灯到时后自动变为黄灯，1秒后变为绿灯；绿灯到时后自动变为黄灯，1秒后变为红灯，如此切换（如图所示）。所提供的窗体文件已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ？改为正确的内容。提示：在三个图片框picture1、picture2、picture3中分别放置了红灯亮、绿灯亮、黄灯亮的图标，并重叠在一起，当要使某个灯亮时，就使相应的图片框可见，而其他图片框不可见，并保持规定的时间，时间到就切换为另一个图片框可见，其他图片框不可见。注意：考生不得修改工程中已经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。解题思路：启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。由于所提供的窗体程序不完整，在命令按钮的Private Sub Command1_Click()中，有二处地方需要修改。1) 将语句? = HScroll1.Value 改为 red = HScroll1.Value2) 将语句Timer1.Enabled = ? 改为 Timer1.Enabled = True由于所提供的窗体程序不完整，在计时器的Private Sub Timer1_Timer()中，有二处地方需要修改。1) 将语句? .Visible = False 改为 Picture1.Visible = False2) 将语句green = ? 改为 green = green - 1*3. 综合应用（1小题，计30分）在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件是sjt5.frm（如图所示）。该程序的功能是： 单击“读数”按钮，读入考生文件夹下in5.txt文件中的一个整数，并放入Text1中； 单击“计算”按钮，则计算小于该数的最大素数，并显示在Text2中；单击“存盘”按钮，则把该素数保存到考生文件夹下的out5.txt文件中。要求：1）程序已给出“存盘”按钮的事件过程代码。“读数”按钮的事件过程和判断x是否是素数的函数prime（x）不完整，请去掉注释，并在？处填上正确的内容，使程序完整。2）编写“计算”按钮的事件过程。计算小于Text1中数据的最大素数。3）请不要改动窗体上所有控件属性设置及相应的过程代码。最后将改动后的程序用原文件名保存。解题思路：启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。由于所提供的窗体程序不完整，需添加事件过程。执行“计算”命令（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command2_Click()n = Val(Text1.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, ? 改为 Input #1, a%在函数Function prime(x) As Boolean中，有一处地方需要修改。1) 将语句prime = ? 改为 prime = flag1. 基本操作（2小题，每小题15分，共计30分）*请根据以下各小题的要求设计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。*（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()，即图片框中的图形消失。2. 简单应用（2小题，每题20分，计40分）*（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*（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*3. 综合应用（1小题，计30分）以下数列：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第04套：1. 基本操作（2小题，每小题15分，共计30分）*请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。（1）在名称为Form1 的窗体上画一个名称为Combo1的组合框，其宽度为1200，其类型如图所示（即简单组合框）。要求：1）请按图中所示，通过属性窗口输入“北京”、“上海”、“广州”、“深圳”。2）设置适当的属性，使得运行时，窗体的最大化按钮和最小化按钮消失。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。解题思路：启动Visual Basic系统，创建一个Form1窗体。在该窗体上画一个组合框控件，通过其属性窗口将名称设为Combo1，宽（Width属性）设为1200，Style属性设为1，向组合框中添加项目（List属性），添加的项目分别为“北京”、“上海”、“广州”、“深圳”，每个项目为一行。激活Form1窗体，通过其属性窗口将最大化按钮（MaxButton属性）设为False，最小化按钮（MinButton属性）设为False。*（2）在名称为Form1 的窗体上画两个文本框，名称分别为Text1、Text2，再画两个命令按钮，名称分别为Command1、Command2，标题分别为“左”、“右”，见图2。要求：编写适当的事件过程，使得程序运行时，单击“左”按钮，则焦点位于Text1上；单击“右”按钮，则焦点位于Text2上。注意：程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。解题思路：启动Visual Basic系统，创建一个Form1窗体。在该窗体上画二个文本框控件，通过其属性窗口将名称分别设为Text1和Text2。画二个命令按钮控件，通过其属性窗口将名称分别设为Command1、Command2，标题（Caption属性）分别设为“左”、“右”。单击“左”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command1_Click()Text1.SetFocusEnd Sub单击“右”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command2_Click()Text2.SetFocusEnd Sub2. 简单应用（2小题，每题20分，计40分）*（1）在考生目录下有一个工程文件sjt3.vbp，窗体上有一个命令按钮Command1（标题为“下一个”）。要求：在窗体上建立一个单选按钮数组Option1，含4个单选按钮，标题分别为“选项1”、“选项2”、“选项3”、“选项4”，初始状态下，“选择1”为选中状态。如图所示。 窗体文件中已经给出了命令按钮的Click事件过程，但不完整， 请去掉程序中的注释符，把程序中的 ？改为正确的内容，使得每单击命令按钮一次，就选中下一个单选按钮，如果已经选中最后一个单选按钮，再单击命令按钮，则选中第1个单选按钮。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。解题思路：启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。由于所提供的窗体控件不完整，需在该窗体上画一个单选按钮控件，通过对单选按钮控件的复制产生单选按钮控件数组，共有四个单选按钮，标题（Caption属性）分别设为“选项1”、“选项2”、“选项3”、“选项4”，“选项”的Value属性设为True。由于所提供的窗体程序不完整，在“下一个”按钮的Private Sub Command1_Click()事件过程中，有三处地方需要修改。1) 将语句For k = 0 To ? 改为 For k = 0 To 32) 将语句n = ? 改为 n = k3) 将语句n = ? 改为 n = 0*（2）在考生文件夹下有一个工程文件sjt4.vbp，窗体上已经画出所有控件。如图所示。在Text1文本框中输入一个任意的字符串（要求串的长度10），然后选择组合框中的 3个截取运算选项之一。单击“计算”按钮，将截取运算后的结果显示在Text2中。窗体文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的 ？改为正确的内容。注意：不得修改已经给出的程序。最后把修改后的文件按原文件名存盘。解题思路：启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。由于所提供的窗体程序不完整，在命令按钮的Private Sub Command1_Click()事件过程中，有三处地方需要修改。1) 将语句Select Case ? 改为 Select Case Combo1.ListIndex2) 将语句tmpStr = Mid(Trim(Text1.Text), ? ) 改为 tmpStr = Mid(Trim(Text1.Text), 3, 4)3) 将语句Text2.Text = ? 改为 Text2.Text = tmpStr*3. 综合应用（1小题，计30分）以下数列：1，1，3，5，9，15，25，41，的规律是从第3个数开始，每个数是它前面两个数的和加1。在考生目录下有一个工程文件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 f As Longa(1) = 1a(2) = 1For i = 3 To Val(Text1.Text)f = a(i - 2) + a(i - 1) + 1a(i) = fNextText2.Text = fEnd Sub第05套：1. 基本操作（2小题，每小题15分，共计30分）*请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。（1）在名称为Form1 的窗体上画一个名称check1的复选框数组（Index属性从0开始），含三个复选框，其标题分别为“语文”、“数学”、“体育”，利用属性窗口设置适当的属性，使“语文”未选，“数学”被选中，“体育”为灰色，再把窗体的标题设置为“选课”，如图所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。解题思路：启动Visual Basic系统，创建一个Form1窗体。在该窗体上画一个复选框控件，通过对复选框控件的复制产生复选框控件数组，共有三个复选框，标题（Caption属性）分别设为“语文”、“数学”、“体育”，“数学”的Value属性设为1,“体育”的Value属性设为2。激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“选课”。*（2）在名称为Form1的窗体上画两个文本框，名称分别为Text1、Text2，再画两个命令按钮，名称分别为Command1、Command2，标题分别为“复制”、“删除”。程序运行时，在Text1中输入一串字符，并用鼠标拖拽的方法选择几个字符，然后单击“复制”按钮，则被选中的字符被复制到Text2中（如图所示）。若单击“删除”按钮，则被选择的字符从Text1中被删除。请编写两个命令按钮的Click过程完成上述功能。注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。解题思路：启动Visual Basic系统，创建一个Form1窗体。在该窗体上画二个文本框控件，通过其属性窗口将名称分别设为Text1、Text2。画二个命令按钮控件，通过其属性窗口将名称分别设为Command1、Command2，标题（Caption属性）分别设为“复制”、“删除”。单击“复制”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command1_Click()Text2 = Text1.SelTextEnd Sub单击“删除”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command2_Click()Text1.SelText = End Sub2. 简单应用（2小题，每题20分，计40分）*（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()Const PI = 3.14159Select Case Combo1.TextCase sin: a = Sin(CInt(Text1.Text) * PI / 180)Case cos: a = Cos(CInt(Text1.Text) * PI / 180)Case tg: a = Tan(CInt(Text1.Text) * PI / 180)Case ctg: a = 1 / Tan(CInt(Text1.Text) * PI / 180)End SelectText2 = Int(a * 1000) / 1000End Sub另外特别注意需在Text1中输入的值必须是40，而且结束程序时必须用窗体右上角的关闭按钮来结束程序，否则该部分将没有成绩。*（2）在考生文件夹下有一个工程文件sjt4.vbp，窗体上已经画出所有控件。程序的作用是构成一个简单的时钟。刚运行时，不计时，选择一个单选按钮后，再单击“计时”按钮，则开始计时，并根据所选的单选按钮决定是每秒显示一次秒数，还是每10秒显示一次秒数。Text2 用于显示秒，如图所示。窗体文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的 ？改为正确的内容。注意：不得修改已经给出的程序。最后把修改后的文件按原文件名存盘。解题思路：启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。由于所提供的窗体程序不完整，在窗体的Private Sub Timer1_Timer事件过程中，有三处地方需要修改。1) 将语句num = ?改为num = num + 12) 将语句Text2.Text = Text2.Text + ?改为Text2.Text = Text2.Text + 103) 将语句Text1.Text = Text1.Text + ?改为Text1.Text = Text1.Text + 1参考文件：c:wexam26990001hlpsys参考答案sjt4.vbp、sjt4.frm、sjt4.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt4.vbp文件并运行。*3. 综合应用（1小题，计30分）注意：下面出现的“考生文件夹”均为%USER%在考生文件夹下有一个工程文件sjt5.vbp，窗体上有两个图片框，名称为P1、P2，分别用来表示信号灯和汽车，其中在P1中轮流装入“黄灯.ico”、“红灯.ico”、“绿灯.ico”文件来实现信号灯的切换；还有两个计时器Timer1和Timer2，Timer1用于变换信号灯，黄灯1秒，红灯2秒，绿灯3秒；Timer2用于控制汽车向左移动。运行时，信号灯不断变换，单击“开车”按钮后。汽车开始移动，如果移动到信号灯前或信号灯下，遇到红灯或黄灯，则停止移动，当变为绿灯后再继续移动。在窗体中已经给出了全部控件和程序，但程序不完整，要求阅读程序并去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原文件名存盘。解题思路：启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。由于所提供的窗体程序不完整，在窗体的Private Sub C1_Click()事件过程中，有一处地方需要修改。1) 将语句Timer2.Enabled = ?改为Timer2.Enabled = True在窗体的Private Sub Timer1_Timer()事件过程中，有一处地方需要修改。1) 将