关于一个VB的,急,设计实现n行n列由“@”字符组成的平行四边形,直角三角形,菱形等图案,要求：使用图片框控件输出,行列

Private Sub sjx(n As Integer)
For i = 1 To n
Picture1.Print String(i, "@")
Next i
End Sub
Private Sub pxsbx(n As Integer)
For i = 1 To n
Picture1.Print Spc(i); String(n, "@")
Next i
End Sub
Private Sub lx(n As Integer)
For i = -n To n
Picture1.Print Spc(Abs(i)); String(2 * (n - Abs(i)) + 1, "@")
Next i
End Sub
Private Sub Command1_Click()
Call sjx(5)
End Sub
Private Sub Command2_Click()
Call pxsbx(6)
End Sub
Private Sub Command3_Click()
Call lx(5)
End Su