Question

VB打印九九乘法表上三角

我会编下三角就是不会上三角，上三角比下三角难，所以那位大虾能帮帮我吧，谢谢！！！

Answer 1

'添加窗体Form1,按钮Command1,然后添加如下代码:
Private Sub Command1_Click()
    Dim i%, j%, s$
    For i = 1 To 9
        For j = 1 To 9 - i + 1
            s = s & j & "*" & i & "=" & i * j & Chr(9)
        Next
        s = s & vbCrLf
    Next
    Print s
End Sub

Answer 2

For i = 9 To 1 Step -1
For j = 1 To i
Print j & "*" & i & Format(i * j, "=@@ ");
Next
Print
Next

Answer 3

Private Sub Form_Load()
For I = 9 To 1 Step -1
For J = 1 To I
Print J & "*" & I & "=" & J * I & " ";
Next
Print
Next
End Sub

Answer 4

Private Sub Form_Load()
Show
For i = 1 To 9
For j = 1 To 9 - i + 1
Print i; "*"; j; "="; i * j;
If i * j < 10 Then Print " ";
Next j
Print
Next i
End Sub