随机界面.mb

来自「mapinfo的代码合集」· MB 代码 · 共 9 行

SUB SJJM
    Close All Interactive
    p$=timer()
    JM=VAL(RIGHT$(P$,1))
    IF JM=0 THEN 
       JM=1 
    END IF 
    Run Application "界面"+STR$(jm)+".WOR"
END SUB