菜鸟请大神看看这个程序怎么设计

额，前面错了，是dim a(10) as integer

要是窗体不打印
那就是你form1的属性里
AutoRedraw属性没有改成 “true”

这不是斐波那契数列求和么

Option Explicit
Private Sub Form_Click()
Dim a%, b%, c%, i%, t% '这里的t就是存最终的和的变量
a = 1
b = 1
t = 2
For i = 1 To 8 'i是计数变量，因为前两项的和已经计算过了，所以只要产生8个c就可以了
'for i=2 to 9这也是8个
c = a + b
t = t + c
a = b
b = c
Next i
Form1.Print t
End Sub
Private Sub Form_Load()
Form1.AutoRedraw = True
End Sub