VB打印九九乘法表上三角

来源：百度知道 编辑：UC知道 时间：2024/05/31 16:44:45
我会编下三角就是不会上三角，上三角比下三角难，所以那位大虾能帮帮我吧，谢谢！！！

'添加窗体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

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

For i