刘金玉的零基础VB教程076期：如何打印数字菱形图案

Private Sub Form_Load()
Show
FontSize = 18

Dim i&, j&, n&
n = 5
For i = 0 To n Step 1
    '输出空格
    For j = 1 To n - i Step 1
        Print " ";
    Next j
    
    Dim k&
    k = 1
    
    '输出数字
    For j = 1 To 2 * i + 1 Step 1
    
        Print Format(k, "@");
        
        If j <= Int((2 * i + 1) / 2) Then
            k = k + 1
        Else
            k = k - 1
        End If
    Next j

    Print

Next i

'下半部分
For i = 0 To n - 1 Step 1
    '输出空格
    For j = 0 To i Step 1
        Print " ";
    Next j
    
    Dim p&
    p = 1
    
    '输出数字
    For j = 1 To 2 * (n - i) - 1 Step 1
    
        Print CStr(p);
        
        If j <= Int((2 * (n - i) - 1) / 2) Then
            p = p + 1
        Else
            p = p - 1
        End If
    Next j

    Print

Next i

End Sub