怎么用vb编程下面的图案?

第一个:("#"代表空格@_@我发现咋还没法显示空格呢?)
######1########
#####121#######
####12321######
###1234321#####
##123454321####
第二个:
#######*
######***
#####*****
####*******
#####*****
######***
#######*

新建一个标准工程
在窗体中输入
第一题
Private Sub Form_Load()
Form1.AutoRedraw = True
Dim i%, j&
For i = 1 To 5
j = Val(String(i * 2 - 1, "1")) + j * 10
Print Space(7 - i) & j
Next
End Sub

第二题
Private Sub Form_Load()
Form1.AutoRedraw = True
Dim i%, s(1 To 7)
For i = 1 To 4
s(i) = Space(7 - i) & String(i * 2 - 1, "*"): s(8 - i) = s(i)
Next
Print Join(s, vbNewLine)
End Sub

第1个:
Dim i%, j&
For i = 1 To 5
j = Val(String(i * 2 - 1, "1")) + j * 10
Print Space(7 - i) & j
Next

第2个:
Dim i%, s(1 To 7)
For i = 1 To 4
s(i) = Space(7 - i) & String(i * 2 - 1, "*"): s(8 - i) = s(i)
Next
Print Join(s, vbNewLine)

Private Sub Command1_Click()
Dim s As String
Dim a(1 To 5) As String
For i = 1 To 5
s = s & i
a(i) = s & StrReverse(Left(s, (Len(s) - 1)))
Print Space(6 - i) & a(i)