Question

vb调用sub过程

下面是我写的程序：

Private Sub Command2_Click()
Dim n As Integer

s1 = Text1.Text '复读部分起始位置
s2 = Text2.Text '复读部分终止位置
Call sel1(0, s1) '播放复读的前面部分

num = Text3.Text
For n = 1 To num
Call sel2(s1, s2) '播放复读部分
Next n

Call sel3(s2) '播放复读的后面部分
End Sub

运行之后直接执行sel3（），是为什么？
程序怎么改？
Private Sub sel1(f1 As Integer, t1 As Integer) '循环前
MMControl1.From = f1
MMControl1.To = t1
MMControl1.Command = "play"
End Sub

Private Sub sel2(f2 As Integer, t2 As Integer) '循环部分
MMControl1.Command = "prev"
MMControl1.From = f2
MMControl1.To = t2
MMControl1.Command = "play"
End Sub

Private Sub sel3(f3 As Integer) '循环后
MMControl1.From = f3
MMControl1.Command = "seek"
MMControl1.Command = "play"
End Sub

*如何让一个sub过程执行完，再执行下一个sub过程

Answer 1

Private Sub Command2_Click()
Dim n As Integer

s1 = val(Text1.Text) '这么改
s2 = val(Text2.Text) '这么改
Call sel1(0, s1) '播放复读的前面部分

num = val(Text3.Text) '这么改
For n = 1 To num 'num必须比1大才能执行下面的call
Call sel2(s1, s2) '播放复读部分
Next n

Call sel3(s2) '播放复读的后面部分
End Sub
call完一个，再call一个。

Answer 2

直接执行sel3说明前面的sel1和sel2没起作用。查看一下这两个过程。

Answer 3

不知道sel1、sel2、sel3的代码是什么，也许过程本色有错。