VB字符圖形設(shè)計原理

1、VB字符圖形設(shè)計輸出如（圖一）所示的由符號組成的圖形，一般可從圖形的大小、形狀、位置和組成圖形的符號這四方面著手，下面我們就來討論一下如何解決上述的四個問題。 1.圖形共有多少行？ 解決方法：用雙重循環(huán)語句中的外層循環(huán)來控制。 用外循環(huán)變量x來控制圖形的行數(shù)，設(shè)x的值從-4到4，請看程序一的For x=-4 TO 4語句。 2.圖形的每行是從什么位置（哪一列）開始輸出符號？ 解決方法：用內(nèi)、外層循環(huán)之間的部分來確定。 由于各行輸出的起始位置不同，因此，這個起始位置一般可以用一個含變量x的絕對值的表達式來確定。進而可以發(fā)現(xiàn)，第x行的初始位置隨x的絕對值增大而增大，減小而減小，因此可以用Abs（x

2、）來確定。如程序一的Print Tab(Abs(x);語句。 3.圖形的每行輸出多少個符號？ 解決方法：用內(nèi)循環(huán)來控制。 仔細觀察一下，每一行的符號個數(shù)與行數(shù)也是有著因果變化關(guān)系的，因此第一行的字符個數(shù)也可由一個含變量x的表達式來確定。用內(nèi)循環(huán)變量y來控制各行的數(shù)字個數(shù)。如程序一的For y=1 TO 2*p-1語句。 4.圖形各列輸出什么樣數(shù)字或符號？ 解決方法：用內(nèi)層循環(huán)體來確定。如程序一的Print“*”;語句。 由以上四個問題我們可以得到程序一 Private sub form_click() For i=-4 TO 4:n=5-Abs（i） Print Tab（Abs（i）; For

3、 j=1 TO 2*n-1 Print “*”; Next j Print Next i EndSub（程序一） 以上是在VB中輸出規(guī)則圖形的方法，我們可以通過改動其中的語句，輸出不同的圖形，實現(xiàn)多題一解。 一、分解圖形 1.輸出(圖二)。解決方法：是改變控制圖形行數(shù)的語句。將程序一中的For i=-4 TO 4:n=5-Abs(i)語句中的-4改為0即可，其它語句不變。 2.輸出(圖三)。解決方法：是改變控制圖形列數(shù)的語句。將程序一中的For j=1 TO 2*n-1語句中的2*n-1改為n ,則運行后可輸出圖三。 二、組合圖形 輸出(圖四)。解決方法是在程序一的內(nèi)外循環(huán)中間加一個循環(huán)z來控

4、制字符個數(shù)的循環(huán)次數(shù)。 在For j=1 TO 2*n-1語句前加上循環(huán)語句For z=1 TO 3； 在Next j語句后添上以下語句：Print Spc(2* Abs(i);：Next z。 三、圖形由數(shù)字組成 解決方法： 將程序1的 Print Tab(Abs(i);語句改為Print TAB(3* Abs(i);。因為在VB中輸出數(shù)值時，值前有一符號位（正數(shù)為空格），數(shù)值后有一個空格。故一個數(shù)值輸出時要占3個字符的位置。 改動程序1的 Print “*”;語句。下面的所有圖形都是由數(shù)字組成，故程序1內(nèi)、外層循環(huán)之間的部分都是Print Tab(3* Abs(i);。 .上下對稱圖形 解

5、決方法：因為上下對稱圖形的各行數(shù)字是一樣的。故輸出語句只與變量i有關(guān)。 如將程序一的Print “*”;語句改為Print Abs(i);，運行后輸出結(jié)果為(圖五)；如改為Print 5-Abs(i);，運行后則輸出結(jié)果為(圖六)。 .左右對稱圖形 解決方法：左右對稱圖形的輸出語句與變量n和j有關(guān)。 如將程序一的Print “*”;改為： Print Abs(n-j);則運行后輸出(圖七)；如改為： Print 5-Abs(n-j);則運行后輸出(圖八)。 .中心對稱圖形 解決方法：中心對稱圖形，要么是最外層的數(shù)字減小，向內(nèi)逐層增大，要么反之。 如將程序一的Print “*”；語句改為：Print p-Abs(n-j)；運行后輸出（圖九）；如改為： Print 5-p+Abs(n-j)；運行后則輸出（圖十）。 .其它圖形 如將Print “*”;語句改為IF j=1 Or j=2*n-1 Then Print n; Else Print “ ”; 運行后則輸出（圖十一）。 如將Print “*”;語句改為Print 5-Int(n+1)/2);運行后輸出圖十二。 從上面輸出的這些不同的圖形，我