forloop.via

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

// ForLoop.lnl

application PE GUI;

include "Windows.inc", "Conversion.inc";

dword i;
string buffer;

entry
    for(i=0;i<=6;i++) {
        MessageBox(0,CStr(i),"For Loop..",$20);
    }
    for(i=1;i<=3;i++) {
        Format(buffer,"%d",i);
        MessageBox(0,buffer,"More For Loop..",$20);
    }
end.