九九乘法表，右上三角与右下三角的问题
用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
