输出fibonacci数列,前10项Dim i As IntegerDim a As IntegerDim b As IntegerDim c As Integera = 1b = 1Print aPrint bFor i = 3 To 10 c = a + b Print c a = b b = cNext i