44. 写程序，输出斐波那契数列的前20项，每行输出4个数

Private Sub Command1_Click()
a = 1: b = 0
For i = 1 To 20
Print Right(" " & a, 6);
c = a
a = a + b
b = c

If i Mod 4 = 0 Then Print
Next
End Sub

Private Sub Command1_Click()
j = 1
k = 1
l = 1
Print j;
For i = 1 To 19
Print j;
l = j
j = j + k
k = l
If i Mod 4 = 3 Then Print
Next
End Sub本回答被提问者采纳