12 lines
160 B
VB.net
12 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
|