如图

来源：学生作业帮助网编辑：作业帮时间：2024/05/10 15:28:40

如图
如图

如图
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

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