Question

如何用VB设计99乘法表呈倒三角

我这样写：Private Sub Form_click()
Dim bk As String
Print Tab(35); "九九乘法表"
For i = 1 To 9
For j = 1 To 9
bk = i & "x" & j & "=" & i * j
Print Tab(i * j); bk;
Next j
Print
Next i
End Sub
我是想让乘法表呈倒三角显示，关键在 Print Tab(i * j); bk;不知道如何写。求正解。。

Answer 1

For i = 1 To 9
For j = i To 9
Print Tab(8 * (j - 1)); j & "*" & i & "=" & i * j;
Next j
Print
Next i
右上倒三角，左上三角把“For j = i To 9”改为“for j=1 to 10-i”就ok了啊！

Answer 2

'左倒三角
Private Sub Command1_Click()
Dim bk As String
Print Tab(35); "九九乘法表"
For j = 1 To 9
For i = j To 9
Print vbTab;
bk = i & "x" & j & "=" & i * j
Print bk;
Next i
Print
Next j
End Sub

'右倒三脚
Private Sub Command2_Click()
Dim bk As String
Print Tab(35); "九九乘法表"
For j = 1 To 9
For i = j To 9
Print vbTab;
bk = i & "x" & j & "=" & i * j
Print bk;
Next i
Print
For i = 0 To j - 1
Print vbTab;
Next i
Next j
End Sub