事情是这样的：班里要弄个猜成语小游戏/也就是把成语打在屏幕上/
让两个同学一个正面比划/另一个背对猜/
每个成语限时一分钟/
我是想问一下怎样才能实现倒计时功能？到最后三十秒时有一个时钟出现/并且伴随读秒声音？
还有就是光保证只换成语而不变其他东西/
最好可以自动计分：正确加一分/借误和放弃都不加分也不减速分//


我是刚学VB/很菜的。。见笑了
/请多帮忙///

图片不能显示/我放在附件里了。。

[[italic] 本帖最后由 hundnn 于 2007-11-27 16:38 编辑 [/italic]]

图片怎么看不到？

要用一个timer
图片在附件里
代码如下

Option Explicit
Dim a%, b%

'正确按钮代码
Private Sub Command1_Click()
b = b + 1
Timer1.Enabled = False
Label5.Caption = "恭喜你,答对了!"
End Sub

'错误按钮代码

Private Sub Command2_Click()
Label5.Caption = "对不起,答错了!"
Timer1.Enabled = False
End Sub

'放弃按钮代码

Private Sub Command3_Click()
Label5.Caption = "你放弃了此题"
Timer1.Enabled = False
End Sub

'开始按钮代码

Private Sub Command4_Click()
a = 61
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
a = a - 1
Label3.Caption = a
Label4.Caption = b
End Sub

遇上你这种人/我能说什么呢？

一个字：好！
看来，科技真是第一生产力啊！

倒记时好实现,不是说到后30S后有声音提示吗?

可以导入播放器控件,让它到时间后播放!!!

声音不会实现

声音真的不会实现吗？

应该可以的吧,,,,,俺新手

3楼的朋友，你漏掉了一点，a要是不为负就完美了。