在考生文件夹下有一个工程文件sit5.vbp,相应的窗体文件为sit5.frm。窗体中已经给出了所有控件(框架中的3个单选按钮构成了一个控件数组),如图3—1所示,请编写适当的事件过程。程序运行后,如果选中某个单选按钮,然后单击“计算”命令按钮,则计算出数列1,1,2,3,5,8,13,21,…的第n项的值,并在文本框中显示出来,其中n是选中的单选按钮标题所指定的数值。要计算的数列的变化规律是:从第3个数开始,每个数是它前面两个数之和 (提示:由于计算结果较大,存放结果的变量应使用长整型)。

注意:
①不得修改已经给出的程序和已有的控件的属性;
②在结束程序运行之前,必须选中一个单选按钮,并单击“计算”命令按钮获得一个结果;
③必须通过单击窗体右上角的“关闭”按钮结束程序,否则无成绩。
试题所提供的事件过程如下:
Private Sub Form_Unload(Cancel As Integer)
Open"out5.dat"For Output As 1
Print 1,Op1(0).Value,Op1(1).Value,Op1(2).Value,Va1(Text1.Text)
Close 1
End Sub
第1题:
以下数列:1,1,2,3,5,8,13,21…的规律是从第3个数开始,每个数都是其前面两个数之和。
在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图所示。请编写适当的事件过程完成如下功能:选中一个单选按钮后,单击“计算”按钮,则计算出上述数列第n项的值,并在文本框中显示,n是选中的单选按钮后面的数值(提示:因计算结果较大,应使用长整型变量)。
注意:不能修改已经给出的程序和已有的控件的属性;在结束程序运行之前,必须选中一个单选按钮,并单击“计算”按钮以获得一个结果;必须使用窗体右上角的关闭按钮结束程序,否则无成绩。最后把修改后的文件按原文件名存盘。

第2题:
在考生文件夹中有一个工程文件execise107.vbp及窗体文件execise107.frm。在名为 Form1的窗体上已经绘制出所有控件,如下图所示。在运行时,如果单击Move按钮,则窗体上的汽车图标每0.1秒向右移动一次(初始状态下不移动);如果单击Stop按钮,则停止移动。

要求:
(1)设置适当控件的适当属性,使得汽车图标每0.1秒向右移动一次,而初始状态下不移动。
(2)请去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容。
(3)为两个命令按钮编写适当的事件过程。最后以原文件名保存。
注意:
不得修改已经给出的程序。编写的事件过程中不能使用变量,每个事件过程中只能有一条语句。

第3题:
在考生文件夹中有一个工程文件execise96.vbp及窗体文件execis96.frm。在名为Form1的窗体上有一个命令按钮Cmd1(标题为NEXT)。要求在窗体上建立一个单选按钮数组 Opt1,含4个单选按钮,标题分别为First、Second、Third和Forth,初始状态下,First为选中状态。程序运行情况如下图所示。

窗体文件中已经给出了命令按钮的Click事件过程,但不完整,请去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容,使得每单击命令按钮‘次,就选中下一个单选按钮,如果已经选中最后一个单选按钮,再单击命令按钮,则选中第1个单选按钮。
注意:
不能修改程序的其他部分。最后,按原文件名并在原文件夹中保存修改后的文件。

第4题:
在考生文件夹下有一个工程文件sjt5.vbp。其窗体中有一个名称为Text1的文本框数组,下标从0开始。程序运行时,单击“产生随机数”按钮,就会产生10个3位数的随机数,并放入Text1 数组中,如图6(a)所示单击“重排数据”按钮,将把Text1中的奇数移到前面,偶数移到后面,如图6(b)所示。文件中已经给出了所有控件和部分程序。 要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其能正确运行,不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 提示:在“重排数据”按钮的事件过程中有对其算法的文字描述,请仔细阅读。


第5题:
在Form1的窗体上绘制一个命令按钮,名为Cmd1,标题为Display,按钮隐藏。编写适当的事件过程,使程序运行后,若单击窗体,则命令按钮出现;此时如果单击命令按钮,则在窗体上显示Visual Basic。程序运行情况如图3—2和图3-3所示。
注意:程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为sj2.vbp,窗体文件名为sj2.frm。
Private Sub Form_Click
Cmd1.Visible=True'使命令按钮可见
End Sub
④按要求保存文件即完成本题。