请问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
运行结果