计算从1加到100的值，每加一个数，记一个值。每10个值换一行
代码如下：

Private Sub Form_Click()
For i = 1 To 100
Sum = Sum + i
Print Sum;
If Sum Mod 10 = 0 Then Print
Next i
End Sub

执行程序时，竟是每行个数不等，呈犬牙交错模样！！！
是哪儿出了问题？

这样吧
Private Sub Form_Click()
For i = 1 To 100
Sum = Sum + i
Print Sum,
If i Mod 10 = 0 Then Print
Next i
End Sub

谢谢啊，不过还是不行的。。。执行时还是跟以前一样，只是字符之间的距离拉大了。
这儿也不好连接图片，要不就上传上来看看是啥情况了。