高分，着急中，帮忙看一下代码

Private Sub Form_Load()
Dim i As Integer
For i = 1 To 50
Combo1.AddItem CStr(i)
Next
Combo1.ListIndex = 0
tongbu = True



End Sub

Private Sub Label1_Click()
MsgBox "hello"

End Sub

Private Sub Label3_Click()
Dim i As Integer
i = Combo1.ListIndex + 1
MsgBox "已经选择了"
bianshu = i
bofang

End Sub


Private Sub bofang()
Dim i As Integer
Dim cnn As New ADODB.Connection
cnn.ConnectionString = strpath

cnn.Open
Dim recordset As New ADODB.recordset
Set recordset = cnn.Execute("select * from lesson1")
Dim field1 As ADODB.Field

Do While Not recordset.EOF
For i = 1 To bianshu

MsgBox CStr(recordset!开始时间)
MsgBox CStr(recordset!结束时间)
Next
recordset.MoveNext
Loop
cnn.Close



End Sub
Public Sub chushihua()

strpath = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & "E:\句子1\nce1.mdb;"
Dim con As New ADODB.Connection
con.Open strpath
Dim recordset As New ADODB.recordset
Set recordset = con.Execute("Select * from lesson1")
Dim strpath1 As String
strpath1 = "E:\句子1\voice\NCE1001.mp3"
Dim b As Long
Do While Not recordset.EOF
If tongbu = False Then
Dim i As Integer
i = DoEvents()

Else

starttime = recordset!开始时间
endtime = recordset!结束时间
nowforjuzi = recordset!句子id
Label4.Caption = recordset!英文
Label5.Caption = recordset!中文解释
Dim str As String
str = "play " & "E:\句子1\voice\NCE1001.mp3 from " & starttime & " to " & endtime
'-----------------------------------这里如果添加两个延时的东西，就会正常

mciExecute str
Dim shijiancha As Long
shijiancha = endtime - starttime + 2

Timer1.Interval = shijiancha
tongbu = False
Timer1.Enabled = True
tongbu = False
nowforjuzi = nowforjuzi + 1
recordset.MoveNext
End If
Loop






End Sub

Private Sub Timer1_Timer()
tongbu = True
Timer1.Enabled = False
End Sub

Private Sub Timer2_Timer()
Timer2.Enabled = False
MsgBox "timer2 close"
chushihua

End Sub
-------------------------------------------------------------------------
以上为一个小复读软件的，我写的源代码，因为使用的api不支持同步，所以用计时器来进行一下操作，可是出现了一个问题，就是在我上面注释的地方，如果添加一个对话框或者延时的，就正常，否则第2，4句话，也就是读一句，落一句！我看了一些时间也没发现出问题，麻烦高手帮忙看一下。谢谢，在线等召集中 --------------------编程问答-------------------- //如果添加一个对话框或者延时的，就正常，否则第2，4句话，也就是读一句，落一句！我看了一些时间也没发现出问题，麻烦高手帮忙看一下。谢谢，在线等召集中

很明显是mciExecute的问题，解决方案：

1 使用DIRECTSOUND播放文件（参考：http://www.applevb.com/art/d_tut.htm）
2 在用mciExecute执行play命令之前，在合适的地方用mciExecute执行open命令 --------------------编程问答-------------------- 单步跟踪哪句有问题巴 --------------------编程问答-------------------- 如果是延时问题的话，估计很难单步跟踪


楼主说的“第2，4句话”是哪俩句？

补充：VB ,  基础类