VB循环程序问题～～

来源：百度知道 编辑：UC知道 时间：2024/05/06 06:56:14
Private Sub command1_click()
si = 2: sj = 4
For i = 1 To 2
For j = 1 To i
sk = 0
For k = j To 5
sk = sk + 2
Next k
sj = sj + 2
Next j
si = si + 2
Next i
Print si; " "; sj; " "; sk; " "; i; " "; j; " "; k
End Sub

结果是什么？主要说一下怎么算的 谢谢各位！！

si=6
sj=10
sk=8
i=3
j=3
k=6
结果经VB6（SP6）测试通过
si=6 初始si=2，而且i=1 to 2 那么si=2+2+2
sj=10 初始sj=4 而i=1时，sj=6，i=2时，循环两次sj=6+2+2
sk=8 由于sk=0 所以直接i=2 ,j=2时，2 to 5，sk=2+2+2+2
i，j，k，将做个循环可以单独演示为什么是最终值+1

i=1 j=1 k=1 sk+sk=2
i=1 j=1 k=2 sk+sk=4
i=1 j=1 k=3 sk+sk=6
i=1 j=1 k=4 sk+sk=8
i=1 j=1 k=5 sk+sk=10 sj+sj=2 si+si=2
i=2 j=1 k=1 sk+sk=2
i=2 j=1 k=2 sk+sk=4
i=2 j=1 k=3 sk+sk=6
i=2 j=1 k=4 sk+sk=8
i=2 j=1 k=5 sk+sk=10 sj+sj=4
i=2 j=2 k=2 sk+sk=2
i=2 j=2 k=3 sk+sk=4
i=2 j=2 k=4 sk+sk=6
i=2 j=2 k=5 sk+sk=8 sj+sj=6 si+si=4
输出4 6 8 2 2 5

要过程好麻烦

你去死搞这么麻烦!~