一行输出4列

Question

Private Sub Form_Click()
Dim a!, b!, i%
a = 1: b = 2: i = 1
Print
Do While (i <= 14)
    Print a, b,
    a = a + b
    b = b + a
If i Mod 2 = 0 Then Print '一行输出4列
    i = i + 1
Loop
End Sub就一行输出4列那里不懂，为什么要i mod 2 = 0 ?

Answer 1

i Mod 2 = 0 
2的整数倍因为Print a, b,
一次打印2列  
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) http://feiyun0112.cnblogs.com/

Answer 2

Print a, b,----打印1,   2,
a = a + b
b = b + a
此时a=3,b=5
此时 i Mod 2=0.5不为0
i=i+1,此时i=2
Print a, b,----打印3,   5,因逗号结尾,和1  2 打印在同一行上,共四列;
a = a + b
b = b + a
此时a=8,b=13
执行If i Mod 2 = 0 Then Print --现在i=2 ,2 Mod 2 =0,就是余数为0,用Print换行
i=3
Print a, b,----打印8,   13
a=21,b=34
i=4
Print a, b,----打印21,   34,因逗号结尾,和8 ,13打印在同一行上,共四列;
执行If i Mod 2 = 0 Then Print --现在i=4 ,4 Mod 2 =0,就是余数为0,用Print换行
…………

Answer 3

2楼的解释很清楚
简单的说是
print a, b是一次打印两列，但没换行
当打印了四列后，就用print打印一个换行
为什么用mod 2是因为4是2的2倍
如果是一行打印6列，那么这里就是i mod 3
如果是一行打印8列，那么这里就是i mod 4