何必用VB,上网找个flash把。。。要不就在office里面有VB的精简编译器,可以在里面写代码,然后在PPT中连接到代码,就可以了。 以下代码添加public sub SetTime()timer1.interval=1000timer1.tag=inputbox("从多少秒开始倒数?","提示") '若固定时间可以换为timer1.tag=10'从10秒开始倒数timer1.enabled=trueend sub private sub timer1()timer1.tag=val(timer1.tag)-1if timer1.tag="0" then
msgbox "倒计时结束",...