VB倒计时程序
我写一个VB倒计时的程序，想在最好10秒时有一个人的声音读秒，请问各位VB达人，应该怎么做啊。
下面是倒计时的一段代码
Private Sub Timer2_Timer()
qd = qd - 1
m = Int(qd / 10) - Int(qd / 600) * 60
f = Int(qd / 600)
nr = Str(f) & "分" & Str(m) & "秒"
Label1.Caption = nr
If qd = 0 Then (时间到了)
xs.Visible = False
sz.Visible = False
bobo.Visible = True (跳倒远成界面)
End If
End Sub
哪里有问题？
bobo是什么？
xs
sz
bobo 这三个都是窗体
我想增加一个到10秒时就会出现人声读秒问题。
只要在你需要的地方加上你定义的声音文件就行，到时候调用~用snd的函数~beep也行
有很多方法啊，可以使用系统时间函数：Now 可以使用API函数：GetTickCount 也可以使用Timer控件。
使用MCI32.ocx播放0～10.wav
{{
相关问答：
在vb这编程里似乎有很多的东西是相联系的，为什么有些人对vb的编程摸不到头脑啊！并且有些事很容易的，但是却把它们的代码变成复杂，也去想一些不能实现的东西啊！
没分了，楼主多来点分！
来接点分
......
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
刚接触vb6.0，有些摸不到的感觉，敬请各位大虾给点建议！！！
不会吧，推荐学习.NET。顺便推荐实用代码网站http://bingning.net/free/source/index.html。
如果没基础 就用易语言吧 中文编程呢 代码都是中文 ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount '求当前记录数
If recs > 0 Then '已有考生
Adodc1.Recordset.MoveLast '移到最后一条记录
num = V ......
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
