divide1.via

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

// Divide1.lnl

application PE GUI entry main;

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

string buffer[256];

frame main();
    local dword x;
    local dword y;
    local dword quotient;

    x=9; y=3;
    quotient = x/y;
    Format(buffer,"%d / %d = %d",x,y,quotient);
    MessageBox(0,buffer,"Divide1",0);
    
    x=2; y=3;
    quotient = x/y;
    Format(buffer,"%d / %d = %d",x,y,quotient);
    MessageBox(0,buffer,"Divide1",0);
    
    x=9; y=4;
    quotient = x/y;
    Format(buffer,"%d / %d = %d",x,y,quotient);
    MessageBox(0,buffer,"Divide1",0);

    x=255; y=1;
    quotient = x/y;
    Format(buffer,"%d / %d = %d",x,y,quotient);
    MessageBox(0,buffer,"Divide1",0);
end;