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

Question

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

Answer 1

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 Sub