Question

用VB编一个左下三角的九九乘法表

Answer 1

Private Sub Command1_Click()
For i = 1 To 9
For j = 1 To i
Print j; "*"; i; "="; i * j;
Next j
Print
Next i
End Sub

追问

那个 输出后第三四行第三四列跟其他的行列没有对齐啊

追答

这样对齐了
Private Sub Command1_Click()
For i = 1 To 9
For j = 1 To i
n = i * j
If n < 10 Then n = n & " "
Print j; "*"; i; "="; n;
Next j
Print
Next i
End Sub

Answer 2

Private Sub Command1_Click()
Form1.Cls
Print "*";
For i = 1 To 9
Print Tab(i * 6); i;
Next i
Print

For j = 1 To 9
Print j; "";
For i = 1 To j
Print Tab(i * 6); j * i; "";
Next i
Print
Next j
End Sub