爱微帮媒体版官网:VB代码问题

来源:百度文库 编辑:神马品牌网 时间:2024/04/28 23:48:20
星号,是菱形排列的。就是第一行一个,第二行俩,第三行3,第四行俩,第五行一个,每行星号间都有空格,明白了吧?
小弟初学者,高人指点
FOR循环
谢谢

Dim N As Integer, i As Long
N = 5
For i = 1 To 2 * N - 1
Print String$(IIf(i <= 3, i, 2 * N - i), "*") & " "
Next