Question

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

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

Answer 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

Answer 2

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