作业帮如图
来源：学生作业帮助网 编辑：作业帮 时间：2024/07/05 16:58:33
xMn02T)T4qJ@]V MOпe}p RYy }3Q5|&ed%
62x4[YVdNflƉ譣ʜ|fFcI+>^SI)i̲!c\01
C唠FTi>B. grVU\{qb S2T
恗K?P,ݹH5nTWlocx(|1}f&<ck!!=d7L\
如图
如图
如图
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