用vb输出斐波纳挈函数的前一百项

1,1,2,3,5,8...是这个吗？
需要用递归
思路是：先初始化2个数1，1然后再循环98次打印
sub Form_Load
digui 1,1,98
end sub
sub digui(a as integer,b as integer,intCur as integer)
if intCur=0 then exit sub '函数的出口
dim c as integer
c=a+b
me.print(c)'打印前两个数的和
intCur =intCur -1'少循环一次
digui b,c,intCur '继续打印b和a+b的和c，关键在于intCur要-1，否则会死递归
end sub
临时手写，可能有误