VB6.0 使用雙重循環列印平行四邊形教學

VB6.0 控制台列印平行四邊形完整代碼

利用兩層 For 迴圈即可在 VB6.0 中輸出平行四邊形圖案，外層控制行數與縮進，內層列印星號。

代碼示例

Private Sub Command1_Click()
    Dim i As Integer, j As Integer
    For i = 1 To 5
        Print Tab(i);        ' 每行遞增縮進
        For j = 1 To 5
            Print "*";       ' 列印 5 個星號
        Next j
        Print ""             ' 換行
    Next i
End Sub

關鍵點解析

• Tab(i)：將游標移至第 i 欄，形成左側斜邊效果。
• 內層迴圈固定輸出 5 顆星號，構成平行四邊形的寬度。
• Print "" 強制換行，準備下一行輸出。

若需調整大小，只需修改兩個迴圈的上限值即可。