1 12 123 1234 12345用vb 根据输入行数 输出

---

private command1_click()
n=val(inputbox("行数汪散森掘孙"困亩))
for i=1 to n
for j=1 to i
print cstr(j);
next j
print

next i
end sub

---

dim x as integer
x=input("……弯纳携…………")
for i = 1 to x
    for j = 1 to i
  茄指   埋伏   print j
    next
    print chr(13) & chr(10)
next

---

dim a(5) as 纳陆string
a(1)=1
for i = 2 to 5
a(i)=a(i-1) & 洞孝顷i
next i

for 慎扮i = 1 to 5
print a(i)
next i

---