新颖有特色的自我介绍:VB代码问题

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