随机获取指定长度的字符串

MsgBox GetRndStr(8)

Function GetRndStr(ByVal strLen)
	Dim strArr, tmpStr
	strArr=Split("a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,1,2,3,4,5,6,7,8,9,0",",")
	For i=0 To strLen-1
		tmpStr=tmpStr & strArr(RandomNumber.Value(0, UBound(strArr)))
	Next
	GetRndStr=tmpStr
End Function

 

这里只包含26个英文字母和10个数字，如果想包含特殊字符的话，需要加入到strArr中哦。