math.via

来自「用VB6写的真正的32位高级语言可视程序编译器」· VIA 代码 · 共 19 行

// Math.lnl

application PE GUI entry div.mod; 

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

frame div.mod();
    local dword x; 
    local dword y; 
    local dword quotient; 
    local dword modulus; 
    local string buffer;

    x=9; y=6; 
    quotient = x/y; modulus = x%y;

    Format(buffer,"%d / %d = %d mod %d",x,y,quotient,modulus);
    MessageBox(0,buffer,"Divide and MOD",0); 
end;