查人人中国名人网中国移动通讯非集团网:帮我解解这到VB 谢谢啦
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/29 21:25:18
请问它的结果和循环次数分别为多少?
Dim intsum as integet
Dim i as integet
Dim j as integet
i = 1
Do
j = 1
Do
intsum = instum + 1
j = j + 2
print j;
Loop Until j > 3
i = i + 2
Loop Unitl i > 17
Print intsum
答案分别为100和10 ,麻烦帮我详细分析一下,谢谢啦
Dim intsum as integet
Dim i as integet
Dim j as integet
i = 1
Do
j = 1
Do
intsum = instum + 1
j = j + 2
print j;
Loop Until j > 3
i = i + 2
Loop Unitl i > 17
Print intsum
答案分别为100和10 ,麻烦帮我详细分析一下,谢谢啦
Dim intsum As Integer
Dim i As Integer
Dim j As Integer
i = 1:
Do
j = 1
Do
intsum = intsum + 1
j = j + 2
Debug.Print "j="; j
Loop Until j > 3
i = i + 2
Loop Until i > 17
Debug.Print "intsum="; intsum
你的程序有误，不可能得到100和10
运行结果：j= 3
j= 5
j= 3
j= 5
j= 3
j= 5
j= 3
j= 5
j= 3
j= 5
j= 3
j= 5
j= 3
j= 5
j= 3
j= 5
j= 3
j= 5
intsum= 18