常见的区域性地基有哪些？

运行下列程序，结果是( )。
Private Sub Command32_Click()
f0=1：f1=1：k=1
Do While k＜=5
f=f0+f1
f0=f1
f1=f
k=k+1
Loop
MsgBox "f=" ＆f
End Sub

A) f=5
B) f=7
C) f=8
D) f=13