高职考技能提升教程005期 字母菱形案例 VB语言 刘金玉编程 高考必备信息技术

Private Sub Form_Load()
Show
FontSize = 18
Dim i&, j&, n&
n = 4
'上半部分
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 Chr(i + 65);
    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 Chr(n - 1 - i + 65);
    Next j
    Print
Next i
End Sub