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
for i=1 to 21 step 2 '21是你想要输出的 行数*2+1
for j=1 to i
print '*';
next
print
next
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024