极速生成不重复的随机数

'istart 最小数字
'iend 最大数字
'isnum 获取个数

Function rndstr(istart,iend,isum)
	Dim NumList(),i,n,c,GetList()
	c = iend-istart
	ReDim NumList(c)
	ReDim GetList(isum - 1)
	For i = 0 To c
		NumList(i) = istart + i
	Next
	For i = 0 To isum - 1
		Randomize
		n = Int(((c - i) + 1) * Rnd)
		GetList(i) = NumList(n)
		NumList(n) = NumList(c - i)
	Next
	rndstr = Join(GetList,",")
End Function

其他语言可以参考修改