高校问答张学友 爱:vb的一个问题
来源：百度文库 编辑：高校问答 时间：2024/04/29 12:38:26
第一行 ############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
#表示空格