如图
来源：学生作业帮助网 编辑：六六作业网 时间：2024/05/16 00:13:03
如图如图如图PrivateSubForm_Click()Dima()a=Array(7,0,1,0,7,0,1,0,7)Fori=0To8Forj=1Toa(i)PrintSpace((7-a(i))
如图
如图
如图
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