用vb做九九乘法表 代码如下 但是运行的时候同一组数的表达不在一行 如图 请问怎么改

Private Sub Form_click()
Dim i As Integer, j As Integer
For i = 1 To 9
 For j = 1 To i
  Print Tab(j * 12 - 12); i; "x"; j; "="; i * j
 Next j
 Print '
Next i
End Sub

答案：建议你在第五行最后面加一个分号，即：“Print Tab(j * 12 - 12); i; "x"; j; "="; i * j;”，如果对输出位置要求不是太高的话，也可以改用逗号进行标准格式输出（每14列）：Print i; "x"; j; "="; i * j,（注意最后面是个逗号，前面仍是分号）。另外，第七行应该就是个Print，后面那个单引号不知道是不是你在这里打字时误打的，后面又没有注释，没必要用。
　　原因分析：原来的第五行代码缺少一个分号，因此VB程序执行完这条语句后就自动换行了，从下一行开头重新计算打印位置，而不是在原来的这一行继续打印，加上一个分号后，它就会在新的TAB位置比现有位置大的情况下继续向右打印，直到Next J循环结束时遇到一个空的Print语句才换一次行。
　　由于俺的电脑上没装VB，所以只能从理论上帮楼主分析一下。若仍然不对，欢迎继续探讨。

其他：推荐你去安全学习网看下、上面有很多教程跟工具下载、、希望能帮到你 这样修改下 试试
Private Sub Form_click()
Dim i As Integer, j As Integer
For i = 1 To 9
For j = 1 To i
Print i; "x"; j; "="; i * j;
Next j
Print
Next i
End Sub Print Tab(j * 12 - 12); i; "x"; j; "="; i * j
这一句最后少了一个分号
 Print Tab(j * 12 - 12); i; "x"; j; "="; i * j;

上一个：昨晚下面关于vb的题目的，我再加50！
下一个：VB筛选字符