exit.prg

一个教学管理系统

a=messagebox("确定要退出吗?",1+64+256,"退出系统")
if a=1
  close all
  clear events
  quit
Endif