请问VB菱形这三个空怎么填

提问：请问VB菱形这三个空怎么填

网友回答：

完整的程序

Private Sub Command1_Click()

Dim i%, k%

For i = 0 To 14

If i <= 7 Then

    k = i 'k控制每行打印字符个数及前面空格4

  Else

   k = 14 - i

End If

Print Space(8 - k);

If i Mod 2 = 0 Then

Print String(2 * k + 1, Chr(Asc("A") + k))

Else

Print String(2 * k + 1, CStr(k))

End If

Next

End Sub

运行结果