初川南无码磁力链:帮我看看拉 VB

外循环是执行了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

Text1.Text = i
Text2.Text = j
Text3.Text = intsum
End Sub

这个运行后 i=18,j=37,intsum=18
至于为什么j=37,主要是do...loop until [boolean]的执行是先运行,后判断造成的
所以intsum只有18
j= 3
j= 5
i= 2
j= 7
i= 3
j= 9
i= 4
j= 11
i= 5
j= 13
i= 6
j= 15
i= 7
j= 17
i= 8
j= 19
i= 9
j= 21
i= 10
j= 23
i= 11
j= 25
i= 12
j= 27
i= 13
j= 29
i= 14
j= 31
i= 15
j= 33
i= 16
j= 35
i= 17
j= 37
i= 18

i=1, 2, 3, 4, .....16, 17
j=1, 3
多少次自己算吧，这样问的人相当ZT。