RosettaCodeData/Task/Loops-Break/VBScript/loops-break.vbscript
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

16 lines
292 B
Text

do
a = int( rnd * 20)
wscript.stdout.write a
if a = 10 then exit do
b = int( rnd * 20 )
wscript.echo vbnullstring,b
loop
dim i
for i = 1 to 100000
a = int( rnd * 20)
wscript.stdout.write a
if a = 10 then exit for
b = int( rnd * 20 )
wscript.echo vbnullstring,b
next