Question

几道VB编程题~~求高手帮忙~~！！！！

1.编程 输出一下菱形图形
A
BBB
CCCCC
DDDDDDD
CCCCC
BBB
A
(居中对齐的菱形)
主程序输入一个奇数>=3，调用过程在窗体上输出图形。

Answer 1

Private Sub Command1_Click()
Form1.Cls
a = InputBox("请输入一个数。")
If IsNumeric(a) Then
a = CInt(a)
If a >= 3 Then
For i = 0 To a - 1
Print Space(a - 1 - i) + String(2 * i + 1, Chr(65 + i)) + Space(a - 1 - i)
Next
For i = a - 2 To 0 Step -1
Print Space(a - 1 - i) + String(2 * i + 1, Chr(65 + i)) + Space(a - 1 - i)
Next
End If
End If
End Sub