vb作业
说明：了解过程的递归。
请参考10_3.exe程序的运行结果，新建一个工程，完成"Fibonacci"程序的设计，并将工程文件以
Design.Vbp、窗体文件以Design.frm保存到D:\10_3目录下。
具体要求如下：
1．编写一个求斐波纳契（Fibonacci）数列某一项的函数过程。已知：斐波纳契数列的第一项是0，第二项
是1，以后各项都是前两项的和。要求用递归算法求解 [提示：f(n)=f(n-1)+f(n-2) ;f(1)=1;f(0)=0]
2．从键盘上输入任意一个数n，调用编写的函数过程得到斐波纳契第n项值。
提示:
1．编写一个求斐波纳契（Fibonacci）数列某一项的函数过程。已知：斐波纳契数列的第一项是0，第二项
是1，以后各项都是前两项的和。要求用递归算法求解 [提示：f(n)=f(n-1)+f(n-2) ;f(1)=1;f(0)=0]
斐波纳契（Fibonacci）数列的递归函数过程F(n)如下：
Function F(x As Integer) As Long
If x = 1 Then
F = 0
ElseIf x = 2 Then
F = 1
Else
f = f(x - 1) + f(x - 2)
End If
End Function
2．从键盘上输入任意一个数n，调用编写的函数过程得到斐波纳契第n项值。
可以直接调用F(n)求斐波纳契第n项值。
下载9_3.exe ，9_3.frm , QBColor函数.Doc（参考文档）
请参考 9_3.exe 程序的运行结果，新建一个工程，完成一个带有预览效果的“综合字体设置”程序的设计，并将工程文件以 Design.vbp ，窗体文件以 Design.frm 保存到 D:\9_3 目录下。
具体要求如下：
1. 运行 9_3.exe ，参照其界面，在窗体上部有1个带有垂直水平滚动条的文本框，在窗体下部有1个“字体设置”框架。在此框架的右侧又有1个“预览”小框架，“预览”框架中是1个标签。在“字体设置”框架的左侧有1个列表框和3个组合框，用于进行相应的字体设置。
2. 继续运行 9_3.exe ，根据各个用于字体设置的列表框和组合框是否下拉和是否允许键盘输入来确定：它们分别是列表框（ListBox），还是组合框（Combo）？若是组合框，又属于哪种类型（Style）? 然后分别引入这4个控件，再一一设置其属性。
3. 打开 9_3.frm ，在 Form_Load() 事件中已经为各个列表框和组合框添加列表项编写了大部分代码。其中“With ...... End With”语句用于简化对