VB编程题目求解
.
2
以下数列：1,1,2,3,5,8,13,21，……，的规律是从第3个数开始，每个数是它前面两个数之和。按如下界面设计，运行时，选中一个单选按钮后，单击“计算“按钮，则计算出上述数列的第n项的值，并显示在文本框中，n是选中的单选按钮后面的数值。（提示，计算结果较大，使用长整型变量）。 展开
该工程文件中有两个窗体form1、form2，要求将form2设为启动窗体。运行时，单击form2上的“显示”按钮，则显示出form1窗体，单击form1的“隐藏”按钮，则form1窗体消失。
form2的“显示”按钮代码：
form1.Show
单击form1的“隐藏”按钮，则form1窗体消失。代码：
form1.hide
以下数列：1,1,2,3,5,8,13,21，……，的规律是从第3个数开始，每个数是它前面两个数之和。按如下界面设计，运行时，选中一个单选按钮后，单击“计算“按钮，则计算出上述数列的第n项的值，并显示在文本框中，n是选中的单选按钮后面的数值。（提示，计算结果较大，使用长整型变量）。
Dim a As Long '长整型变量
Dim i, j, k
i = 1
j = 1
a = 0
Text1 = ""
If Option1.Value = True Then '30
For k = 3 To 30
a = i + j
i = j
j = a
Next k
Text1 = "" & a
Exit Sub
End If
If Option1.Value = 1 Then '33
For k = 3 To 33
a = i + j
i = j
j = a
Next k
Text1 = "" & a
Exit Sub
End If
If Option1.Value = 1 Then '35
For k = 3 To 35
a = i + j
i = j
j = a
Next k
Text1 = "" & a
Exit Sub
End If
源码在附件中，你可以直接下载打开
第一题：
建立两个窗体并加入按钮，依次点vb菜单“工程” - “工程1属性” “通用” 启动对象设为form2
窗体代码如下：
form1代码：
Private Sub Command1_Click()
Form1.Show
End Sub
form2代码：
Private Sub Command1_Click()
Unload Me
End Sub
第二题：
窗体上放置 command1,text1控件和Option1控件数组，形式如你图所示，代码如下：
Private Sub Command1_Click()
Dim n As Long, s1 As Long, s2 As Long, c As Long
s1 = 1: s2 = 1
For i = 0 To Option1.Count - 1
If Option1(i).Value Then
n = Option1(i).Caption
For j = 3 To n
c = s1 + s2
s1 = s2
s2 = c
Debug.Print j, c
Next
Text1 = s2
Exit Sub
End If
Next
End Sub
