a=1
b=1
c=2
for i=3 to 30
c=a+b
a=b
b=c
next
msgbox "1,1,2,3,5,8,13,21...按此順序第30個數是" & c , 4096 , "運算結果"
用VBS寫了壹個。