下载后可任意编辑VB 字符图形设计输出如（图一）所示的由符号组成的图形，一般可从图形的大小、形状、位置和组成图形的符号这四方面着手，下面我们就来讨论一下如何解决上述的四个问题。 1.图形共有多少行？ 解决方法：用双重循环语句中的外层循环来控制。 用外循环变量 x 来控制图形的行数，设 x 的值从-4 到 4，请看程序一的 For x=-4 TO 4 语句。 2.图形的每行是从什么位置（哪一列）开始输出符号？ 解决方法：用内、外层循环之间的部分来确定。 由于各行输出的起始位置不同，因此，这个起始位置一般可以用一个含变量 x 的绝对值的表达式来确定。进而可以发现，第 x 行的初始位置随 x 的绝对值增大而增大，减小而减小，因此可以用 Abs（x）来确定。如程序一的 Print Tab(Abs(x));语句。 3.图形的每行输出多少个符号？ 解决方法：用内循环来控制。 认真观察一下，每一行的符号个数与行数也是有着因果变化关系的，因此第一行的字符个数也可由一个含变量 x 的表达式来确定。用内循环变量 y 来控制各行的数字个数。如程序一的 For y=1 TO 2*p-1 语句。 4.图形各列输出什么样数字或符号？ 解决方法：用内层循环体来确定。如程序一的 Print“*”;语句。 由以上四个问题我们可以得到程序一 Private sub form_click() For i=-4 TO 4:n=5-Abs（i） Print Tab（Abs（i））; For j=1 TO 2*n-1 Print “*”; Next j Print Next i EndSub（程序一） 以上是在 VB 中输出规则图形的方法，我们可以通过改动其中的语句，输出不同的图形，实现多题一解。 一、分解图形 1.输出(图二)。解决方法：是改变控制图形行数的语句。将程序一中的 For i=-4 TO 4:n=5-Abs(i)语句中的-4 改为 0 即可，其它语句不变。 2.输出(图三)。解决方法：是改变控制图形列数的语句。将程序一中的 For j=1 TO 2*n-1 语句中的 2*n-1 改为 n ,则运行后可输出图三。 下载后可任意编辑 二、组合图形 输出(图四)。解决方法是在程序一的内外循环中间加一个循环 z 来控制字符个数的循环次数。①在 For j=1 TO 2*n-1 语句前加上循环语句 For z=1 TO 3；②② 在 Next j 语句后添上以下语句：Print Spc(2* Abs(i));：Next z。 下载后可任意编辑 三、图形由数字组成 解决方法：③① 将程序 1 的 Print Tab(Abs(i));语句改为 Print TAB(3* Abs(i));。因为在 VB 中输出数值时...
