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

完整的程序Private Sub Command1_Click()Dim i%, k%For i = 0 To 14If i <= 7 Then k = i 'k控制每行打印字符个数及前面空格4 Else k = 14 - iEnd IfPrint Space(8 - k);If i Mod 2 = 0 ThenPrint String(2 * k + 1, Chr(Asc("A") + k))ElsePrint String(2 * k + 1, CStr(k))End IfNextEnd Sub运行结果