如图

来源：学生作业学帮网编辑：学帮网时间：2024/06/08 05:18:26

如图

Private Sub Form_Click()
Dim a()
a = Array(7, 0, 1, 0, 7, 0, 1, 0, 7)
For i = 0 To 8
For j = 1 To a(i)
Print Space((7 - a(i)) / 2); "*";
Next j
Print
Next i
End Sub

如图!如图！如图.如图. 如图,如题～如图如图, 如图如图如图如图, 如图. 如图如图如图如图如图如图如图如图,