VB编程题目求解

Question

1. 该工程文件中有两个窗体form1、form2，要求将form2设为启动窗体。运行时，单击form2上的“显示”按钮，则显示出form1窗体，单击form1的“隐藏”按钮，则form1窗体消失。

.
2
以下数列：1,1,2,3,5,8,13,21，……，的规律是从第3个数开始，每个数是它前面两个数之和。按如下界面设计，运行时，选中一个单选按钮后，单击“计算“按钮，则计算出上述数列的第n项的值，并显示在文本框中，n是选中的单选按钮后面的数值。（提示，计算结果较大，使用长整型变量）。

Answer 1

       该工程文件中有两个窗体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

Answer 2

源码在附件中，你可以直接下载打开

第一题：

建立两个窗体并加入按钮，依次点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

本回答被提问者和网友采纳