Private Sub Form_Load()
Dim a, i As Integer
Dim b As Integer
b = Val(InputBox("输入B的值"))
Print String(56, "-")
Print Tab(24); "乘法表"
Print String(56, "-")

If b <= 0 Then
 Print "输入有误"
 End If
 
 For a = 0 To b
    Print Tab(a * 4); a
   
 Next a
 
 For i = 1 To b
   
    Print i
    Print
   For a = 1 To i
     Print Tab(a * 4); a * i
     Next a
   
    Next i

End Sub
代码如上，主要问题是 0 到B的数字，不是在一条线上，如附件
[local]1[/local]
要怎么才能做到数字显示一条线上呢，麻烦知道的告诉我下，谢谢。

解决了···强制不换行符合

什么叫强制不换行呐？
for ...
    print x;x;
next
print
...

就是 后面 的; 这个符号··