11 lines
160 B
VB.net
11 lines
160 B
VB.net
dim i, j
|
|
j = 0
|
|
do
|
|
for i = 1 to 100
|
|
while j < i
|
|
if i = 3 then
|
|
wscript.quit
|
|
end if
|
|
wend
|
|
next
|
|
loop
|