杭州交通信息网什么木有鬼脸:vb的一个问题
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/01 11:33:01
第一行 ############1##########
第二行 #########1##2##1#######
第三行 ######1##2##3##2##1####
第四行 ###1##2##3##4##3##2##1#
................................
#表示空格
第二行 #########1##2##1#######
第三行 ######1##2##3##2##1####
第四行 ###1##2##3##4##3##2##1#
................................
#表示空格
Dim i As Integer, j As Integer
For i = 1 To 4
Print String(13 - 3 * i, "#");
For j = 1 To i
Print String(2, "#") & CStr(j);
Next
For j = i - 1 To 1 Step -1
Print String(2, "#") & CStr(j);
Next
Print String(13 - 3 * i, "#")
Next
#表示空格