Question

VB编写程序，在窗体上输出如图所示的图形

每个* 之间貌似还有个小空格

Answer 1

Private Sub Command1_Click()
Dim i, j As Integer
For i = 1 To 9 Step 2
Print Spc(3 + i);
For j = 10 - i To 1 Step -1
Print "* ";
Next
Print "  ";
For j = 1 To i
Print "* ";
Next
Print
Next
End Sub