斐波那契(Fibonacci)数列的构成规律是：数列的第一、第二个数是1，从第三个数起，每个数是其前面两个数之和。据此，下面有求斐波那契前12项值的过程，请完善程序。
Private Sub Command1_Click()
Dim sum As Integer
Call Fibonacci(12,sum)
Print"Sum=";sum
End Sub
Sub Fibonacci(N As Integer, s1)
s1=0
f1=1
(10)
For i=1 To N/2
Print f1：f2：
s1=f1+f2
f1=f1+f2
f2= (11)
Next i
Print
End Sub

下列不适宜城市建设用地的有( )。

A．承载力小于60kPa和厚度在2m以上的泥炭层或流沙层的土类

B．坡度超过10%的坡地，未超过20%的坡地

C．经常被洪水淹没，且淹没深度超过1.5 m的土地

D．堤坝以内的河滩地

E．烈度为9度以上的地区