nestedwhile.via

用VB6写的真正的32位高级语言可视程序编译器

// NestedWhile.lnl

application PE GUI entry main;

import MessageBox ascii lib "USER32.DLL",4;

frame main();
    local dword i;
    local dword j;
    local string strMsg[64];

    i = 0; j=0;

    while (i < 2) {
        while (j < 2 ) {
            Format(strMsg, "i = %d\nj = %d", i, j);
            MessageBox(0, strMsg, "NestedWhile", 0);
            j = j + 1;
        } 
    i = i + 1;
    }
end;