VB循环嵌套语句问题

p=1 For j=1 to 4 p=p-1:q=0 For k=1 to 4 p=p+1:q=q+1 Next k next j print p;q
输出的结果为什么是13和4?

p = 1
For j = 1 To 4
p = p - 1: q = 0
For k = 1 To 4
p = p + 1: q = q + 1
Next k
Next j
Print p; q
写成这样看的清楚些。 嵌套循环的作用：外层循环每执行1次，内层循环执行4次
所以最终是外层循环执行了4次，内层循环执行了16次。
外层循环每次p -1，内层循环每次p+1，p初始值为1，所以最终为 1 - 1*4 + 1*16 = 13
而q在外层循环每次都重新赋值为0，在内层循环每次 p+1，所以最终q为 0+1*4 = 4

option explicit private sub form_activate() dim i as integer, sum5 as integer, sum7 as integer for i = 1 to 100 if i mod 5 = 0 then sum5 = sum5 + i '判断是5的倍数 if i mod 7 = 0 then sum7 = sum7 + i '判断是7的倍数 next msgbox "5的倍数的和为：" & sum5 & vbnewline & "7的倍数的和为：" & sum7 unload me end sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息