true msgbox chr13 + chr13 + chr13 + quot哈哈哈哈，你真听话！哈quot用到的控件和界面方面自己发挥，VB的代码根据兴趣DIY复制此代码新建文本文档命名为 整人vbe名字随便起，后缀名是vbe就可以了；quotvbcrlfquotquotvbcrlfquot下面以我为列 不同可以修改quotvbcrlfquotquotChr10quot格式为19870602quot，quot芮洲提示quot，quot19870602quot If c = quotquotThen WScriptQuit End If wscriptsleep 1000age = absdatediffquotdquot，date，c。