select case i 
  case 1
  case 5
  case 10
  case 20
end select

解决方案 »

  1.   

    wav文件里面有......,你是怎么分的?还是有那么多wav文件
      

  2.   

    啊,那你需要把WAV文件先分解成数据,把WAV的声音文件头和结束文件字节拿掉,你的1,2,3是怎么分的,时间?
      

  3.   

    是录音的,怎么分解,我不想破坏我的WAV文件,而且,拼出的各个数字读出要连贯
      

  4.   

    其实我和你说的那样就可以了.dreamtou你把截取出20和5的文件名放到一个数组中.然后按顺序播放主要这个例子的代码比较长.我不能给你写了.只能这样回复你了. 
      

  5.   

    我写一个函数吧
    文件名的加入就和我前面一样它加入到一个数组中去.
    我这里给出把单音结合成复合
    dim sz sz1 as integer
    select case date
       case 1
       case 31
       把31分解成3 10 1 把这个文件名放入数组
    end select
    '然后用fy用行放音下面的sn1初始化为1,sn为数组
    private sub timer1()
      if sz1<sz then
       sz1=sz1+1
       fy(sn1)
       else timer1.enabled=false
    end if
    end sub
    sub fy(number as integer)
      dim wjm as string
      if number<=sz then '注意这里sn是指数组的大小了.
         wjm="wf"+sj(num)+".wav" '注意这里的wf是我定义文件名的如1=wf1 2=wf2
      mmcontrol1.command="close"
      mmcontrol1.devicetype="waveaudio"
      mmcontrol1.filename=wjm
      mmcontrol1.command="open"
      mmcontrol1.command="play
    end if
    end sub
    '通过这些应该可以做一个标准的普通话报时器和发音计算器了
      

  6.   

    如果你是一个声音文件的话更是简单了.只要指向声音的位置就可以了
    你参照一下mmcontrol1控件的使用方法.
    它有起始位置和结束位置的.