Question

分别使用VBScript的Do While…Loop 和Do Until …Loop语句编写计算11*11+12*12+13*13+…23*23

Answer 1

n=11
s=0
do while n<24
s=s+n*n
n=n+1
loop
msgbox s
'------------------------------------------------------------------
n=11
s=0
do until n>23
s=s+n*n
n=n+1
loop
msgbox s

Answer 2

dim he,i
he = 0
i = 1
do until i > 1000
if i mod 7 <> 0 then
he = he + i
end if
i = i + 1
loop
msgbox he

'======================
dim he,i
he = 0
i = 1
for i = 1 to 1000
if i mod 7 <> 0 then
he = he + i
end if
next
msgbox he

'======================
dim he,i
he = 0
i = 1
while i <= 1000
if i mod 7 <> 0 then
he = he + i
end if
i = i + 1
wend
msgbox he