VB数字倒计时代码，可以放在PPT中用的。50秒，数字倒计时。。

Answer 1

何必用VB，上网找个flash把。。。要不就在office里面有VB的精简编译器，可以在里面写代码，然后在PPT中连接到代码，就可以了。

以下代码添加
public sub SetTime()
timer1.interval=1000
timer1.tag=inputbox("从多少秒开始倒数？","提示") '若固定时间可以换为timer1.tag=10 '从10秒开始倒数
timer1.enabled=true
end sub

private sub timer1()
timer1.tag=val(timer1.tag)-1
if timer1.tag="0" then
msgbox "倒计时结束",,"提示"
timer1.enabled=false
end if
end sub

然后在PPT中调用SetTime过程。。

追问

Public Sub SetTime()
timer1.interval = 1000
timer1.Tag = InputBox("50", "提示")
timer1.Enabled = True
End Sub
Private Sub timer1()
timer1.Tag = Val(timer1.Tag) - 1
If timer1.Tag = "0" Then
MsgBox "倒计时结束", , "提示"
timer1.Enabled = False
End If
End Sub

我做成了这个样子，可是PPT老是提示“缺少函数和变量”，请问高手这是怎么回事？