中科新闻网穿越小说的开场白:vb的一个问题
来源：百度文库 编辑：中科新闻网 时间：2024/05/15 11:54:05
编程方面的
第一行 1
第二行 1 2 1
第三行 1 2 3 2 1
第四行 1 2 3 4 3 2 1
................................
第一行 1
第二行 1 2 1
第三行 1 2 3 2 1
第四行 1 2 3 4 3 2 1
................................
这样可以打印出你所要的效果
For x = 1 To 10
y = x
num = ""
For t = 1 To x
num = num & t
Next
For t = 1 To x - 1 Step 1
y = y - 1
num = num & y
Next
Print num
Next
for i=1 to 1000
str1=""
--for t=1 to i
----str1=str & t
--next
--for t=i to 1
----if t<> i then str1=str1 & t
--next
print str1
next
For i = 1 To 4
t1 = StrReverse(t2): t2 = t2 & Str(i) & " ": Print t2 & t1
Next