输出Fibonacci数列1,1,2,3,5,8等的前20项,按每行5个数显示.用vb谢谢

Private Sub Command1_Click()Dim a(1 To 20) As IntegerFor i = 1 To 20If i = 1 Or i = 2 Thena(i) = 1Elsea(i) = a(i - 1) + a(i - 2)End IfPrint a(i);n = n + 1If...刚刚的那个题的答案是多少？？？不是写了吗？答案是9433