执行下面的程序,求详细解答过程，急！谢谢

首先纠正一下你的代码，好多地方都写错了。下边这个是正确代码，顺便附上注释。

Private Sub Command1_Click()

’变量a是一个5*5的数组，因为下标是从0开始的

Dim a(4, 4) As Integer, i As Integer, j As Integer

Dim k As Integer, num As Integer

num = 0

‘下边这个是循环套嵌结构，因为i循环和j循环受k影响，所以循环次数不是固定值

’k越大，i和j循环的循环次数越多，当k取值为1时，i循环0次，j循环1次

‘k增加1，i循环和j循环次数增加1

For k = 1 To 4

For i = 1 To k - 1

num = num + 1

a(i, k) = num

Next i

For j = k To 1 Step -1

num = num + 1

a(k, j) = num

Next j

Next k

’以下为打印内容

For i = 1 To 4

For j = 1 To 4

Picture1.Print Right(" " &a(i, j), 3)

Next j

Picture1.Print

Next i

End Sub

下边是最后输出的结果：

12 510

43 611

98 712

16 15 14 13

分析计算经过：

k取值1时，i循环无效，j循环1次，num=1，a（1，1）=1

k取值2时，i循环1次，num=2，a（1，2）=2，j循环2次，num=4，a（2，2）=3，a（1，1）=4

k取值为3时，i循环2次，num=6，a（1，3）=5，a（2，3）=6，j循环3次，num=9，a（3，3）=7，a（3，2）=8，a（3，1）=9

k取值为4时，i循环3次，num=12，a（1，4）=10，a（2，4）=11，a（3，4）=12，j循环4次，num=16，a（4，4）=13，a（4，3）=14，a（4，2）=15，a（4，1）=16

打印时的顺序：

a（1，1），a（1，2），a（1，3），a（1，4）

a（2，1），a（2，2），a（2，3），a（2，4）

a（3，1），a（3，2），a（3，3），a（3，4）

a（4，1），a（4，2），a（4，3），a（4，4）

法院判决后审请执行后接下来要走的是执行程序。

作为申请执行人，如果被执行人的财产，在审判阶段已经查封，在申请执行阶段，还要经过财产的评估、拍卖毛笔程序，申请执行人申请执行后只要等着法院去执行就行了。

如果什么程序在审判阶段没有查封被告的财产，申请执行人需要向法院提供被执行人的财产去处，法院才会去执行，一般情况下，法院很少主动去查找被执行人的财产。

扩展资料：

2013年，男子周某因欠他人20万未还，被诉至法院。这原本只是一起普通的民事纠纷，法院裁定将周某直接主管的天台某模具公司名下的一辆奥迪小汽车进行了查封。周某明知道该车仍在查封状态，还偷偷以10万元的价格将车抵押给了典当行，致使该车被卖至今无法追回。

去年10月11日，该模具公司收到了一笔拆迁补助款，共计124万元。周、何二人明知该公司以及本人在天台法院还有大量借款未履行的情况下，却不先履行已生效法院判决，而是将该笔拆迁补助款转移、分成多笔划到多个未起诉的债权人账户中。

天台法院认为，法律的权威不容置疑，拒不执行判决、裁定的行为除了侵害司法权威之外，对判决、裁定所确定的权利人权利也造成了侵害。

经审理，天台法院根据被告人的犯罪性质、犯罪情节和悔罪表现作出如下判决：

被告单位天台某模具公司犯拒不执行判决罪，判处罚金人民币20万元；被告人周某犯拒不执行判决罪，判处有期徒刑一年六个月，犯非法处置查封的财产罪，判处有期徒刑六个月，实行并罚，决定执行有期徒刑一年八个月；被告人何某犯拒不执行判决罪，判处有期徒刑十个月。

参考资料来源：人民网-拒不执行法院生效判决 两名被告人获刑

第一次：执行if之前：a=1,b=1执行b+=3=1+3=4continue（作用是：跳过“b-=5

”等之后的语句，继续循环）

第二次：执行if之前：a=2,b=4（b在上一次被赋值）；继续执行“if

(b%3==1)

”（因为4%3=1）；b=7continue

第三次：......（同上，依然是b%3==1）。

第四次：......（同上）。

。。。。。。

第七次：b=19

执行“if

”后：b=22。

第八次：b=22；b>=20；执行break（作用是：结束整个循环）。

所以：a=8。整个过程由于b%3始终为1，故b-=5始终没有执行。

---