如此简单代码，应该在同一行上显示啊。结果却显示（如附件图）：

Private Sub Command1_Click()
   Dim i%
   For i = -3 To 3
      Print Tab(9 + 2 * i);
      Print 3;
   Next i
End Sub

tab函数带参数和不带参数结果不一样。
百度结果：
Tab[(n)]

 说明：如果当前行上的打印位置大于 n，则 Tab 将打印位置移动到下一个输出行的第 n 列上。 如果 n 小于 1，则 Tab 将打印位置移动到列 1。

[em0

Private Sub Command1_Click()
Dim i%
j = 1
   For i = -3 To 3
      Print Tab(j * 3); 3;
      j = j + 1
   Next i
End Sub
这样改就要以了