費式數列-使用迴圈. Private Function Fab(x As Integer) As Integer. Dim a,b,i As Integer a=0 b=1. If (x=0 Or x=1) then. Fab=x. Else. For i=2 to x. Fab=a+b.
確定! 回上一頁