[求助]随机取得一组数字中的一个数了
随机取得一组数字中的一个数了如：
我要随机取得10,15,13,14,25中的其中一个数字
怎么做到
给你个自己做的例子:
<%
'*******************************************************************************************
*************
'函数名称：RndNumber(num)
'作者:Rock E_Mail:mh_rock@163.com
'函数功能： 取出一串随机数
'函数参数：num 你要取几位随机数
'函数实例：RndNumber(8)
'*******************************************************************************************
*************
Function RndNumber(num)
Dim str
For i = 48 To 57
str = str & Chr(i)
Next
For i = 97 To 122
str = str & Chr(i)
Next
For i = 0 To 10000000
rn = CInt(Rnd * 100) - 30
If rn > 0 And rn < Len(str) Then
RndNumber = RndNumber & Mid(str, rn, 1)
End If
If Len(RndNumber) = num Then Exit For
Next
End Function
%>
