Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 27
Picture1.Print fib(i), ;
If i Mod 5 = 0 Then Picture1.Print
DoEvents
Next i
End Sub
Function fib(n As Integer)
If n = 1 Or n = 2 Then fib = 1: Exit Function
fib = fib(n - 2) + fib(n - 1)
End Function
一、首先你要有一部电脑
二、电脑需要安装操作系统
三、必须有一个VB编辑器软件，比如说VB4.0、VB5.0或者VB6.0
四、你必须会用电脑
五、还要会用已经安装的编译软件
六、学习该编译软件需要的必要知识，比如，语法规则、变量、常量，过程、函数以及属性、方法等各种术语及其用法。
七、尝试着做些小程序，掌握VB的运行机理
OK?
内容全部来源于网络收集，如有侵权，请联系网站删除！