Private Sub Text1_Change(Index As Integer)If Index >= 1 And Index <= 100 Then '播放音乐代码ElseIf Index >= 102 And Index <= 159 Then '播放音乐代码 修改音乐文件名End IfEnd Sub
