nestedwhile.via

来自「一个用VB写的很好的编译器,功能超好,不过就是代码有点多,是进一步学习编译的好」· VIA 代码 · 共 22 行

// 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;