Visual Basic用For-Next結構畫圖

陳新龍

Visual Basic是一種由Microsoft公司開發的結構化的、模塊化的、面向對象的、包含協助開發環境的事件驅動為機制的可視化程序設計語言。VB擁有圖形用戶界面（GUI）和快速應用程序開發（RAD）系統，今天我們來講講如何用Visual Basic輸出一個平行四邊形，但是對角線要顯示為空（如圖1）。

分析：圖1是有兩個三角形，一個是正三角形，另一個是倒三角形，那么如何用VB來做出這樣的圖形呢？其實我們換種方式來思考這個圖形，這是一個刪除對角線的平行四邊形，問題核心就是用什么辦法可以把對角線刪除。

代碼分析，以For-Next為基礎結構，“i”代表行數，這里圖形有五行，所以設置變量1到5，然后Print Tab語句就是輸出每行開始的空位，（7-i）實現每行第一個*號向左移動一個位置。“j”代表每行*號的個數，這里設置11個，其中10個*，1個對角線的空位。

用一個if語句的判斷，如果（2 * i）=j 為真時，打印一個空格，否則打印*號。

看看執行的效果。這個實例重點在于理解內嵌For-Next結構中循環變量終值的推導和輸出位置Tab函數中參數的推導（如圖2）。

完成了這個實例后我再給大家出道使用For-Next輸出圖形的題目，數學和圖形結合（如圖3）。