展会信息港展会大全

asp 一个简单生成随机数程序
来源:互联网   发布日期:2016-03-01 11:14:54   浏览:1963次  

导读:一个简单生成随机数程序Public Function GetRndCode(maxLen) Dim strNewPass,whatsNext,upper,lower,intCounter...

一个简单生成随机数程序

Public Function GetRndCode(maxLen)

Dim strNewPass,whatsNext,upper,lower,intCounter

Randomize

For intCounter = 1 To maxLen

whatsNext = Int((1 - 0 + 1) * Rnd + 0)

If whatsNext = 0 Then

upper = 90

lower = 65

Else

upper = 57

lower = 48

End If

strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + lower))

Next

GetRndCode = strNewPass

End Function

使用方法

code =GetRndCode(15)

赞助本站

人工智能实验室

相关热词: 开发 编程 android

AiLab云推荐
展开

热门栏目HotCates

Copyright © 2010-2024 AiLab Team. 人工智能实验室 版权所有    关于我们 | 联系我们 | 广告服务 | 公司动态 | 免责声明 | 隐私条款 | 工作机会 | 展会港