关于VB中打印图形的问题

来源：百度知道 编辑：UC知道 时间：2024/07/03 08:51:43
*
**
***
****
*****

*
**
***
****
*****

*
***
*****
*******
*********

*********
*******
*****
***
*
*
***
*****
*******
*********

*********
*******
*****
***
*
这几个图形的VB代码，越简单越好。谢谢！

NO.1:

private sub form_click()

dim n%

n=val(inputbox("输入一个整数："))

for i=1 to n

  for j=1 to i

  print "*";

  next j

 print

next i

end sub

NO.2:

private sub form_click()

dim n%

n=val(inputbox("请输入一个整数"))

for i=1 to n

  print tab(n-i+1);

  for j=1 to i

   print "*";

  next j

print

next i

end sub

NO.3:

private sub form_click()

dim n%

n=val(inputbox("请输入一个整数"))

for i=1 to n

  print tab(n-i+1);

  for j=1 to 2*i-1

  print "*";

  next j<