帮我看看拉 VB

Dim intsum As Integer
Dim i As Integer
Dim j As Integer
i = 1
j = 1
Do
Do
intsum = instum + 1
j = j + 2
Print j;
Loop Until j > 3
i = i + 1
Loop Until i > 17
Print intsum
共执行了多少次循环?答案是18
麻烦帮我分析一下 详细一点的 谢谢啦

外循环是执行了18次,即i从1到18次循环,因为循环判断在循环体尾部
i=1
Do
循环体
loop Until i > 17

如果 如以下这样,就执行17次循环
i=1
Do Until i > 17
循环体
loop

Dim intsum As Integer '定义intsum为2字节整数
Dim i As Integer '定义i为2字节整数
Dim j As Integer '定义j为2字节整数
i = 1 '...
j = 1 '...
Do '执行下面的语句直到i大于17(看到数第2句)
Do '执行下面的语句直到j大于3(看到数第4句)
intsum = instum + 1 'intsum的值增加1
j = j + 2 'j的值增加2
Print j; '打印j的值
Loop Until j > 3 '...
i = i + 1 '...
Loop Until i > 17
Print intsum
不是18(好像是36)

如果把你列的程序运行的话;i=18,j=37,intsum=1
我不知道,两位有没有真的运行你发在这里的程序
下面是我改过后的
Private Sub Command1_Click()
Dim intsum As Integer
Dim i As Integer
Dim j As Integer
i = 1
j = 1
intsum = 0
Do
Do
intsum = intsum + 1 '注意这句和你们两个的有什么不同
j = j + 2
Loop Until j > 3
i = i + 1
Loop Until i > 17