龙非龙凤非凤评价:VB代码问题

来源:百度文库 编辑:高考问答 时间:2024/05/15 10:27:07
星号,是菱形排列的。就是第一行一个,第二行俩,第三行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