刘金玉的零基础VB教程075期：打印菱形图案

Private Sub Form_Load()
Show
FontSize = 25
WindowState = 2
Dim i As Long
Dim j As Long
Dim n As Long '表示行数,这个行数是除了最长的一行*之外的数量
n = 6
'上半部分
For i = 0 To n Step 1
    '输出空格
    For j = 1 To n - i Step 1
        Print " ";
    Next j
    '输出*
    For j = 1 To 2 * i + 1 Step 1
        Print "*";
    Next j
    Print '换行
Next i
'下半部分
For i = 0 To n - 1 Step 1
  '输出空格
  For j = 0 To i Step 1
    Print " ";
  Next j
  '输出*
  For j = 1 To 2 * (n - i) - 1 Step 1
    Print "*";
  Next j
  Print
Next i
End Sub