看下面一段代码：

Private Sub Form_Activate() Dim I As Integer I = 1 Print: Print: Print: Print: Print: Print: Print: FontSize = 12 ForeColor = vbBlue Do While I <= 99 If I Mod 10 = 0 Then Print: Print Tab((I Mod 10) * 6); Str(I); I = I + 2 Loop End Sub

这是一个输出1至99之间的奇数的程序，但为什么当打印11，21等等的时候会换行呢？好象应该不会换行吧？

Private Sub Form_Activate() Dim I As Integer I = 1 Print: Print: Print: Print: Print: Print: Print: FontSize = 12 ForeColor = vbBlue Do While I <= 99 If I Mod 10 = 0 Then Print: Print Tab((I Mod 10) * 6); Str(I); I = I + 2 Loop End Sub

[/QUOTE]

你上面写的If I Mod 10 = 0 Then Print:是没用的，因为I Mod 10是不可能等于0的（你可能把这一行去掉看一下）

到11时换行是因为Print Tab((I Mod 10) * 6); Str(I);这一句，因为到11时(11 Mod 10)*6与 (1 Mod 10)*6相同，所以换行（至于Tab的作用，你自己好好编几个程序试就知道了）

哦，对了，好像还没给你说Mod的用法

Mod是取余，A Mod B是意思就是A除以B然后结果也余数

如：1 Mod 10=1

11Mod 10=1

22 Mod 10=2

[此贴子已经被作者于2004-10-18 20:00:08编辑过]

支持