问题 问答题

以下数列: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。

语句块:可以是一句或多句语句,称为循环体。

多项选择题
多项选择题