i=2
sum=0
DO
sum=sum+i
i=i+2
WHILE i<100
sum=sum+i
i=i+2
WEND
PRINT sum
END
框图为初始数值i=2，sum=0，运算一次sum=sum+i，i=i+2，进入判断:如果i<100则返回sum=sum+i，i=i+2重新运算后再次进入判断，直至i≥100时结束判断输出sum值，结果输入以上语句到程序执行时提示WEND语句错误，请问以上语句哪里出错了？哪里替换语句会好？
我是个初学者，谢谢了
第1个回答 2013-04-01
它与Do.....loop until语句的区别：while...wend语句不能使用Exit语句跳出循环
While...Wend 语句又称为当型语句，do......loop until则成为直到型
参考：
Sub求和()
Dim i As Long
Dim s As Integer
While s<=100
i=i+s
s=S+1
Wend
Debug.Print”1至100的整数之和为：”＆i
While...Wend 语句又称为当型语句，do......loop until则成为直到型
参考：
Sub求和()
Dim i As Long
Dim s As Integer
While s<=100
i=i+s
s=S+1
Wend
Debug.Print”1至100的整数之和为：”＆i
第2个回答 2013-04-01
Do ... Loop 是一对，While ... Wend是一对，你只有Do，没有Loop
第3个回答 2013-04-01
i=2
sum=0
WHILE i<100
sum=sum+i
i=i+2
WEND
PRINT sum
END本回答被提问者和网友采纳
sum=0
WHILE i<100
sum=sum+i
i=i+2
WEND
PRINT sum
END本回答被提问者和网友采纳
