好吧问答库 > 如何用VB实现星号的奇数排列，如第一行输出1个*，第二行输出***……依次类推？用FOR循环，不胜感激！

如何用VB实现星号的奇数排列，如第一行输出1个*，第二行输出***……依次类推？用FOR循环，不胜感激！

* *** ***** *******………………

2024年11月23日 00:19

有2个网友回答

网友（1）：

dim n as integer
dim i as integer
dim j as integer
n=val(text1.text)'假设用text控件接收输出*的行数，也可以自己写个
for i=1 to n
for j=1 to 2*i-1
print '*'; '不要少了分号
next j
print '换行
next i

网友（2）：

for i=1 to 21 step 2 '21是你想要输出的行数*2+1
for j=1 to i
print '*';
next
print
next