【正确答案】Optlon Base 1
   Public Sub p4()
     Dim i As Integer,f(30)As Long
     f(1)=0:f(2)=1
     Debug.Print f(1),f(2),
     For i=3 TO 30
       f(i)=f(i-2)+f(i-1)
       Debug.Print f(i),
       If i Mod 5=0 Then Debug.Print
     Next i
   End Sub

【答案解析】本题考查的知识点是数组，难点是如何控制每行打印5个数组元素。程序中首先声明了有30个元素的long型数组，注意如果声明成Integer型，则在运行过程中会发生数据溢出。然后将数组的前两个元素赋值为0和1。接下来的循环依次给数组的第3个～第30个元素赋值并输出。每行元素个数的控制由If语句完成，当元素的下标为5的倍数时换行。