随机界面.mb

很好的MAPINFO源代码可以下载下来看看哦对学习又很的帮助

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