Question

VB中print方法的问题

代码是这样的

效果是这样的

怎样才能这样呢





Answer 1

亲，很高兴为你解答：

你可以使用vbTab来实现对齐，参考代码如下：

Private Sub Form_Load()
    Dim i As Integer, j As Integer
    Print "***************九九乘法表*****************"
    Print
    For i = 1 To 9
        For j = 1 To i
            Print j & " x " & i & "= " & i * j & vbTab;
        Next
        Print
    Next
End Sub

运行后，结果如图所示：

-----------------------------------
如有疑问欢迎追问！
满意请点击右上方【选为满意回答】按钮 o(∩_∩)o

追问

为什么是 "For j = 1 To i"呢。 还有为什么是" j & " x " & i“而不是” i& " x " & j“呢。这里想不开

Answer 2

 Private Sub Form_Click()

  Form1.Width = 13000
  Dim i As Integer, j As Integer
  Cls
  Print
  Print "***************九九乘法表*****************"
  Print
  For j = 1 To 9
    Print " 1 *"; j; "="; j;
    For k = 2 To j
    Print Tab(15 * (k - 1)); k; "*"; j; "="; j * k;
    Next k
    Print
  Next j
End Sub

 运行效果截图如下：

Answer 3

Private Sub Form_Click()
 For i = 1 To 9
  For j = 1 To i
   s = j * i
   Print j & "X" & i & "=" & s,
   Next
  Print
  Next 
End Sub

Answer 4

Private Sub Command1_Click()

  For i = 1 To 9

    For j = 1 To i

      Print Tab(8 * (j - 1)); i & "*" & j & "=" & i * j;

    Next j

    Print

   Next i

End Sub

追问

一定要用Tab函数吗？ 8*（j-1）是什么意思？

追答

使用TAB函数可以方便地对齐。8*（j-1）就是j=1时为TAB（0），以后J每大1，TAB的值就加8。

追问

为什么要用8呢？可以不用Tab函数吗？ 我做了一下修改，又没成功，怎么回事：（

For i = 1 To 9
 For j = i To 9
 s = i * j
  Print Tab(8 * (i - 1)); i & "×" & j & "=" & s;
 Next j
 Print
Next i

追答

是TAB(8*(j-1))

Answer 5

这样写：