2. 开发问题
  3. 如何生成5-10位随机字母，求大神指点！！！

如何生成5-10位随机字母，求大神指点！！！

张先生_51724 2019-7-12 1063

如何生成5-10位随机字母，求大神指点！！！

最新回复 (3)
  • 薇~ 2019-7-12
    2楼
    已经将您的问题反馈~稍后给您答复~
  • 薇~ 2019-7-12
    3楼
    dim dRet = ""
    dim iRet = ""
    dim sRet = ""


    For i = 0 To 10 step 1 
        iRet = Rnd()*25
        iRet = CInt(iRet)+65
        sRet = Chr(iRet)
        TracePrint(sRet)
    Next
  • 张先生_51724 2019-7-13
    4楼
    已经解决！
    eRet = Rnd() + Rnd() + Rnd() + Rnd() + Rnd() 
    For i = eRet To 10 step 1 
        iRet = Rnd()*25
        iRet = CInt(iRet)+97
        sRet = Chr(iRet)
        xret = xret & sret
        Next
    Keyboard.Input(xret)
    Clipboard.SetText(xret)
返回
发新帖