Question

VB随机生成数字并播放相应音乐

随机生成数字 位数最好可以方便设置，然后播放相应的音乐
如随机生成123456则 依次播放 1.mp3 2.mp3 …… 最好可以设置每个音乐播放间隔时间
代码越简单越好 而且效率要高

Answer 1

Option Explicit

'括号中的数改成所需位数的最大值
'或者自己设成动态数组
Private Type tRan
'随机数
intNumber(9) As Integer
'间隔时间
intTime(9) As Integer
End Type

'intLength需要生成的位数(若1234,则intLength=4)
'intUbound、intLbound随机最大、小值
'返回的结果在tRReturn.intNumber(?)中
'tRReturn.intTime(?)自己在外部过程中加
Private Function GetRandomList(ByVal intLength As Integer, ByVal intUbound As Integer, ByVal intLbound As Integer, tRReturn As tRan) As Integer
Dim intCount As Integer
Randomize
For intCount = 0 To intLength - 1
tRReturn.intNumber(intCount) = Int((intUbound - intLbound + 1) * Rnd + intLbound)
Next intCount
GetRandomList = intCount
End Function