private sub command1_click() ’
dim n as integer '定義一個(gè)整型變量n
for n=1 to 10 '讓n從1到10進(jìn)行循環(huán)
sum=sum+fib(n)/fib(n+1) '對(duì)Sum變量進(jìn)行求和運(yùn)算,每循環(huán)一次sum加上 fib(n)/fib(n+1)
next n
print "sum";sum '打印經(jīng)過循環(huán)運(yùn)算之后Sum的值
end sub
private function fib(a as integer) '帶一個(gè)參數(shù)a的函數(shù)fib
if a=1 then '判斷參數(shù)的值,如果參數(shù)a=1,那么
‘這里沒有執(zhí)行任何過程,按說這里應(yīng)該有一個(gè)fib = 1,也就是當(dāng)a=1時(shí),fib應(yīng)該等于1.
elseif a=2 then '判斷參數(shù)的值,如果參數(shù)a =2那么
fib=2 'fib函數(shù)的返回值為2
else '判斷參數(shù)a的值,如果不等于1或者2,那么
fib=fib(a-1)+fib(a-2)
'這里利用遞歸運(yùn)算,分別計(jì)算fib(a-1)的值和fib(a-2)的值,然后據(jù)此求出fib(a)的值
end if
end function