程序代码：

Dim i, j, k As Integer
For i = 1 To 5
    For k = 2 To (6 - i + 1)
        Print " ";
    Next k
    For j = 1 To (i * 2 - 1)
        Print "*";
    Next j
    Print
Next i
For i = 2 To 5
    For k = 1 To i
        Print " ";
    Next k
    For j = 1 To ((6 - i) * 2 - 1)
        Print "*";
    Next j
    Print
Next i

程序代码：

Dim i, j, k As Integer
For i = 1 To 5
    For k = 1 To i
        Print " ";
    Next k
    For j = 1 To ((6 - i) * 2 - 1)
        Print "*";
    Next j
    Print
Next i
For i = 2 To 5
    For k = 2 To (6 - i + 1)
        Print " ";
    Next k
    For j = 1 To (i * 2 - 1)
        Print "*";
    Next j
    Print
Next i

程序代码：

Dim i, j, k, h, m, x As Integer
j = 20: m = j: k = 1
h = 9
If h Mod 2 = 0 Then h = h + 1
For i = 1 To h
    If i = 1 Or i = h Then
        Print Spc(m); "*"
    ElseIf i <= (h + 1) / 2 Then
        k = (i - 1) * 2 - 1
        j = j - 1
        Print Spc(j); "*"; Spc(k); "*"
    ElseIf i >= (h + 1) / 2 Then
        j = j + 1
        k = k - 2
        Print Spc(j); "*"; Spc(k); "*"
    End If
Next