'生成n位随机数字字母子组合

上一篇 / 下一篇  2013-11-12 16:22:21 / 个人分类：QTP备忘

查看( 442 ) / 评论( 0 ) / 评分( 0 / 0 )

'*************************************
'生成n位随机数字字母子组合
'************************************
Function Makestring(n) 
  For i=1 to n
    Randomize
    temp = cint(25*Rnd)
    If temp mod 2 = 0 then '两数相除　取余数
      temp = temp + 97
    ElseIf temp < 9 then 
      temp = temp + 48
    Else
      temp = temp + 65
    End If
    Makestring = Makestring & chr(temp)
  Next
End Function
调这个函数就行

收藏 举报

TAG:

 

评分：0

我来说两句

Open Toolbar