VB語言中如何打印菱形圖案

# VB語言中如何打印菱形圖案

在VB（Visual Basic）編程中，打印圖形是練習循環結構和邏輯思維的經典案例。本文將詳細介紹如何使用VB語言打印菱形圖案，包括完整代碼實現和分步解析。

## 一、菱形圖案的構成原理

菱形由上下對稱的兩部分三角形組成：
- 上半部分：從1顆星逐行遞增至最大行
- 下半部分：從最大行-1逐行遞減至1顆星

每行星號的數量與行號的關系遵循 `2n-1` 的奇數序列規律。

## 二、實現步驟分解

### 1. 確定菱形大小
首先需要定義菱形的行數（通常為奇數）：
```vb
Dim size As Integer = 7  ' 假設打印7行的菱形

2. 打印上半部分

使用雙層循環控制空格和星號：

For i = 1 To size \ 2 + 1
    ' 打印空格
    For j = 1 To (size \ 2 + 1) - i
        Console.Write(" ")
    Next
    
    ' 打印星號
    For k = 1 To 2 * i - 1
        Console.Write("*")
    Next
    
    Console.WriteLine()
Next

3. 打印下半部分

反向處理上半部分的邏輯：

For i = size \ 2 To 1 Step -1
    ' 打印空格
    For j = 1 To (size \ 2 + 1) - i
        Console.Write(" ")
    Next
    
    ' 打印星號
    For k = 1 To 2 * i - 1
        Console.Write("*")
    Next
    
    Console.WriteLine()
Next

三、完整代碼實現

Module DiamondPattern
    Sub Main()
        Dim size As Integer = 7  ' 可修改為任意奇數
        
        ' 上半部分
        For i = 1 To size \ 2 + 1
            Console.Write(New String(" "c, (size \ 2 + 1) - i))
            Console.WriteLine(New String("*"c, 2 * i - 1))
        Next
        
        ' 下半部分
        For i = size \ 2 To 1 Step -1
            Console.Write(New String(" "c, (size \ 2 + 1) - i))
            Console.WriteLine(New String("*"c, 2 * i - 1))
        Next
        
        Console.ReadLine()
    End Sub
End Module

四、代碼優化技巧

1. 使用字符串構造函數：

   • New String(" "c, n) 比循環更高效

2. 動態調整大小：

   Console.Write("請輸入菱形大?。ㄆ鏀担?quot;)
   size = CInt(Console.ReadLine())
   

3. 異常處理：

   If size Mod 2 = 0 Then
      Console.WriteLine("請輸入奇數！")
      Return
   End If
   

五、運行效果示例

當size=7時輸出：

   *
  ***
 *****
*******
 *****
  ***
   *

六、進階擴展

1. 空心菱形： 修改星號打印邏輯，只在邊界輸出星號：

   If k = 1 Or k = 2 * i - 1 Then
      Console.Write("*")
   Else
      Console.Write(" ")
   End If
   

2. 彩色菱形：

   Console.ForegroundColor = ConsoleColor.Cyan
   

3. 函數封裝：

   Sub PrintDiamond(size As Integer)
      ' 實現代碼...
   End Sub
   

通過這個練習，可以深入掌握VB的循環控制、字符串處理和數學建模能力。建議嘗試不同變體來鞏固學習效果。 “`