VB.NET生成随机串或随机数字的方法
第一种:转载的方法
Public Enum stringtype
allstring = 1 '大小写字母
allnumic = 2 '数字
str_num = 3 '大小写字母+数字
str_upper = 4 '大写字母
str_lower = 5 '大写字母
End Enum
Function GenerateRandom(ByVal Length As Integer, ByVal s As stringtype) As String
Dim strtemp As String = ""
Dim constant() As String = Nothing
Select Case s
Case stringtype.allnumic
strtemp = "0,1,2,3,4,5,6,7,8,9"
constant = strtemp.Split(",")
Case stringtype.allstring
strtemp = "a,b,c,d,e,f,g,h,i,j,k,m,n,o,p,q,r,s,t,u,v,w,x,y,z,A,B,C,D,E,F,D,G,H,I,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,X,Y,Z"
constant = strtemp.Split(",")
Case stringtype.str_lower
strtemp = "a,b,c,d,e,f,g,h,i,j,k,m,n,o,p,q,r,s,t,u,v,w,x,y,z"
constant = strtemp.Split(",")
Case stringtype.str_num
strtemp = "a,b,c,d,e,f,g,h,i,j,k,m,n,o,p,q,r,s,t,u,v,w,x,y,z,A,B,C,D,E,F,D,G,H,I,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,X,Y,Z,0,1,2,3,4,5,6,7,8,9"
constant = strtemp.Split(",")
Case stringtype.str_upper
strtemp = "A,B,C,E,F,D,G,H,I,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,Y,Z"
constant = strtemp.Split(",")
End Select
Dim NewRandom As System.Text.StringBuilder = New System.Text.StringBuilder(Length)
Dim rd As Random = New Random()
Dim i As Integer
For i = 0 To Length - 1 Step i + 1
NewRandom.Append(constant(rd.Next(constant.Length - 1)))
Next
Return NewRandom.ToString()
End Function
第二种:网上查找
Public Function GetOAuthNonce() As String ' 得到随机值
Dim result As String = System.Guid.NewGuid().ToString()
result = result.Replace("-", "")
Return result.Substring(0, 10)
End Function
第三种:原来是C#转换
Public Function RandCode(ByVal n As Integer) As String
Dim arrChar As Char() = New Char() {"a"c, "b"c, "d"c, "c"c, "e"c, "f"c, _
"g"c, "h"c, "i"c, "j"c, "k"c, "l"c, _
"m"c, "n"c, "p"c, "r"c, "q"c, "s"c, _
"t"c, "u"c, "v"c, "w"c, "z"c, "y"c, _
"x"c, "0"c, "1"c, "2"c, "3"c, "4"c, _
"5"c, "6"c, "7"c, "8"c, "9"c, "A"c, _
"B"c, "C"c, "D"c, "E"c, "F"c, "G"c, _
"H"c, "I"c, "J"c, "K"c, "L"c, "M"c, _
"N"c, "Q"c, "P"c, "R"c, "T"c, "S"c, _
"V"c, "U"c, "W"c, "X"c, "Y"c, "Z"c}
Dim num As New StringBuilder()
Dim rnd As New Random(DateTime.Now.Millisecond)
For i As Integer = 0 To n - 1
num.Append(arrChar(rnd.[Next](0, arrChar.Length)).ToString())
Next
Return num.ToString()
End Function
第四种:利用VB6转换
Function makeRand(ByVal maxLen As Integer) As String '生成签名时用随机串
Dim strNewPass As String = vbNullString
Dim lower As Long
Dim whatsNext As Long
Dim upper As Long
Dim intCounter As Long
Randomize()
For intCounter = 1 To maxLen
whatsNext = Int((1 - 0 + 1) * Rnd() + 0)
If whatsNext = 0 Then
upper = 122
lower = 100
Else
upper = 57
lower = 48
End If
strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd() + lower))
Next
makeRand = strNewPass
End Function
第五种:直接用VB.NET函数
Dim rand As Random = New System.Random(10)‘这里10就代表是10为
Debug.Print(rand.Next().ToString)
VB.NET生成随机串或随机数字的方法相关推荐
- 关于Matlab生成批量文件文件名统一数字位数方法
关于Matlab生成批量文件文件名统一数字位数方法 规定文件名数字位数方法: 读取文件方法 在生成批量含有数字编号的文件时,应该注意使用统一位数的数字来命名,且明明数字位数应该比文件数量最大值至少多一 ...
- php随机生成三位数,php随机生成数字加字母 PHP随机生成数字+调用,
for ($i = 1; $i PHP生成10位左右,数字.字母混合的字符串且唯一 需要生成一个唯一的字符串要CSS布局HTML小编今天和大家分享大写字母和数字混合,10位为佳,并且不能重复 给你说个 ...
- python随机生成30个8_Python生成六万个随机,唯一的8位数字和数字组成的随机字符串实例...
上代码: 环境:Python3 import random,string s=string.ascii_letters+string.digits print(s) n={''.join(random ...
- Mysql 生成不重复的随机数字
在网上查找Mysql 生成不重复的随机数字 ,竟然没找到合适的例子. 其实思路很简单,利用MySQL现有的函数,然后进行加工处理,达到预期的结果.可以用到的MySQL函数为rand() ,以及 rou ...
- php获取不重复的随机数字,php如何生成不重复的随机数字
[摘要] PHP即"超文本预处理器",是一种通用开源脚本语言.PHP是在服务器端执行的脚本语言,与C语言类似,是常用的网站编程语言.PHP独特的语法混合了C.Java.Perl以及 ...
- java 字母随机数_java如何生成指定长度的随机数字和英文的字符串
最后贴一下完成的工具类代码 import java.util.Random; public class GeneId { /** * 随机生成包含大小写字母及数字的字符串 * @param lengt ...
- java生成不重复8位数字_如何生成8位随机不重复的数字编号
在Java中难免会使用到生成随机不重复的数字编号的时候,那么你知道如何生成8位随机不重复的数字编号吗?下面我们就跟爱站小编一起去看看吧. package com.jjinfo.common.util; ...
- 用java实现生成12位的随机纯数字且首位不能为0
用java实现生成12位的随机纯数字且首位不能为0 1 逐个拼接法 1.1 核心思想 a.把得到的符合条件的每一位数字通过**+进行字符串的拼接** b.条件:为首位数字时,需要把范围去除0,其余位0 ...
- php生成数字和字母的随机组合,php随机生成数字字母组合的方法,php生成数字字母_PHP教程...
php随机生成数字字母组合的方法,php生成数字字母 本文实例讲述了php随机生成数字字母组合的方法.分享给大家供大家参考.具体如下: 直接上代码: 复制代码 代码如下:function getRan ...
最新文章
- 多元回归树分析Multivariate Regression Trees,MRT
- 对象必须实现 iconvertible_Java I/O 流之数据流_对象流
- ECMAScript 6中的let和const关键词
- File ipython-input-20-ac8d4b51998e
- 超越SiamRPN++,SiamMan达到目标跟踪新SOTA
- Mozilla Firefox 在用户访问被黑客攻击的网站时发出警告
- 详解JavaScript中的Url编码/解码,表单提交中网址编码
- 【Qt学习之路】我的Qt历程
- Python学习之路(2)
- linux运行proxmark3,Linux 下编译使用Proxmark3
- 【科普】浅谈NB-IoT
- wps2019去弹窗广告和屏保
- (附源码)计算机毕业设计SSM语言学习系统
- yara 源码学习(二) 规则编译部分
- django文件上传功能的实现
- Dumping all threads without appropriate locks held: thread list lock mutator lock报错原因?
- 一种基于后间隔偏最小二乘的梯度下降助力谱建模方法
- devc++人生之路游戏
- CVE-2022-21882 Win32k内核提权漏洞深入分析
- 远驱240控制器调整参数_科蒂斯AC F2T集成控制器