VB字符图形设计原理.docVIP

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 =-4 TO 4:n=5-Abs（） 　　Print Tab（Abs（））; 　　For =1 TO 2*n-1 　　Print “*”; 　　Next 　　Print 　　Next 　　EndSub（程序一） 　　以上是在VB中输出规则图形的方法，我们可以通过改动其中的语句，输出不同的图形，实现多题一解。 　　 　　一、分解图形 　　1.输出(图二)。解决方法是改变控制图形行数的语句。将程序一中的For =-4 TO 4:n=5-Abs(i)语句中的-4改为0即可，其它语句不变。 　　2.输出(图三)。解决方法是改变控制图形列数的语句。将程序一中的For =1 TO 2*n-1语句中的2*-1改为 ,则运行后可输出图三。 　　 　　 　　 　　 　　二、组合图形 　　输出(图四)。解决方法是在程序一的内外循环中间加一个循环z来控制字符个数的循环次数。在For =1 TO 2*n-1语句前加上循环语句For z=1 TO 3；在Next 语句后添上以下语句：Print Spc(2* Abs());：Next z。 　　 　　 　　三、图形由数字组成 　　解决方法：将程序1的 Print Tab(Abs());语句改为Print TAB(3* Abs());。因为在VB中输出数值时，值前有一符号位（正数为空格），数值后有一个空格。故一个数值输出时要占3个字符的位置。改动程序1的 Print “*”;语句。下面的所有图形都是由数字组成，故程序1内、外层循环之间的部分都是Print Tab(3* Abs());。 　　１.上下对称图形 　　解决方法：因为上下对称图形的各行数字是一样的。故输出语句只与变量有关。 　　如将程序一的Print “*”;语句改为Print Abs();，运行后输出结果为(图五)；如改为Print 5-Abs();，运行后则输出结果为(图六)。 　　 　　２.左右对称图形 　　解决方法：左右对称图形的输出语句与变量和有关。 　　如将程序一的Print “*”;改为： Print Abs(-j);则运行后输出(图七)；如改为： Print 5-Abs(-j);则运行后输出(图八)。 　　 　　 　　３.中心对称图形 　　解决方法：中心对称图形，要么是最外层的数字减小，向内逐层增大，要么反之。 　　如将程序一的Print “*”；语句改为：Print p-Abs(-j)；运行后输出（图九）；如改为： Print 5-p+Abs(-j)；运行后则输出（图十）。 　　 　　 　　４.其它图形 　　如将Print “*”;语句改为IF =1 Or j=2*n-1 Then Print n; Else Print “ ”; 运行后则输出（图十一）。 　　如将Print “*”;语句改为Print 5-Int((+1)/2);运行后输出图十二。 　　 　　 　　从上面输出的这些不同的图形，我们可以发现其都有相同之处，有共性，抓住这一共性，我们就可以用相同的算法来输出不同的图形