Private Sub sjx(n As Integer) For i = 1 To n
Picture1.Print String(i, "@") Next iEnd SubPrivate Sub pxsbx(n As Integer) For i = 1 To n
Picture1.Print Spc(i); String(n, "@") Next iEnd SubPrivate Sub lx(n As Integer) For i = -n To n
Picture1.Print Spc(Abs(i)); String(2 * (n - Abs(i)) + 1, "@") Next iEnd ...
