九九乘法表，右上三角与右下三角的问题
用VB2010以上的版本：
写出下面两种排版格式的九九乘法表：
1.右上三角型的：
1x1=1 1x2=2 1x3=2 1x4=4 1x5=5 1x6=6 1x7=6 1x8=6 1x9=9
2x2=4 2x3=6 2x4=8 2x5=10 2x6=12 2x7=14 2x8=16 2x9=18
3x3=9 3x4=12 ............................................................................................
.....................................

9x9=81


2.右下三角型的：
1x1=1
1x2=2 2x2=4
1x3=3 2x3=6 3x3=9
1x4=4 2x4=8 3x4=12 4x4=16
......
1x9=9 2x9=18 ...... ......................................................................................................... 9x9=81

请问要怎么写代码？

vb2010 九九乘法表
[解决办法]
作业自己做，给点提示

你可以用 VbTab 制表符去对齐，另一个有用的函数是 string.PadLeft，它可以用空白自动补齐文本的左边，实现右对齐。
[解决办法]

Module Module1

    Sub Main()
        打印乘法表(方向.右上, 0)
        打印乘法表(方向.右下, 12)
        Console.ReadKey()
    End Sub

    Sub 打印乘法表(mode As 方向, top As Integer)
        For i As Integer = 1 To 9
            For j As Integer = 1 To 9
                If (mode = 方向.右上 And j >= i) Or (mode = 方向.右下 And j <= i) Then
                    Console.SetCursorPosition((j - 1) * 8, top + i - 1)
                    Console.Write("{0}x{1}={2}", i, j, i * j)
                End If
            Next
        Next
    End Sub

    Enum 方向
        右上
        右下
    End Enum

End Module