以下数列:1,1,2,3,5,8,13,21,…,的规律是从第3个数开始,每个数是它前面两个数之和。在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如下图所示。请编写适当的事件过程完成以下功能:选中一个单选按钮后,单击“计算”按钮,则计算出上述数列的第n项的值,并显示在文本框中,n是选中的单选按钮后面的数值。(提示:因计算结果较大,应使用长整型变量。)
注意:不能修改已经给出的程序和已有的控件的属性;在结束程序运行之前,必须选中一个单选按钮,并单击“计算”按钮获得一个结果;必须使用窗体右上角的关闭按钮结束程序,否则无成绩。最后把修改后的文件按原文件名存盘。
参考答案:
第一步:单击考试界面的“功能”选项,从弹出的菜单中选择“启动应用程序”选项。Visual Basic启动后,打开考生文件夹下的工程文件。
第二步:双击窗体的任何部分,进入程序编写窗口,补充程序如下:
A Private Sub CommandA_Click( )
B Dim a As Long,aA As Long,aBAs Long
C Dim k As Integer, n As Integer
D For k=0 To B
E If Opl(k).Value Then
F n=Val(Opl(k).Caption)
G End If
H Next k
I aA=A
A0 aB=A
AA For k=C To n
AB a=aA+aB
AC aA=aB
AD aB=a
AE Next k
AF TextA.Text=a
AG End Sub
第三步:填写完毕,调试程序,确定无误后,将工程与窗体按原文件名保存在考生文件夹下。
解析:
本题考查for循环的应用,循环是在指定的条件下多次重复执行一条语句,Visual Basic中提供了多种形式的循环结构,而for循环就是其中的一种。for循环用于控制循环次数预知的情况,
语句形式如下:
For循环变量=初值to终值[Step步长]
语句块
[exit for]
语句块
next循环变量
其中:循环变量必须为数值型。
步长:一般为正,初值小于终值;若为负,则初值大于终值;缺省时步长为1。
语句块:可以是一句或多句语句,称为循环体。