打地鼠VB程序代码

打地鼠VB程序代码打地鼠VB程序代码打地鼠VB程序代码1 Private Const totaltime = 30 Private sum As Long, nt As Long Private