VB.NET生成随机串或随机数字的方法总结
更新时间:2021年9月22日 10:06 点击:1858
本文一共介绍了5种生成随机数方式,具体如下:
第一种:转载的方法
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
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
第三种:原来是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)
原文链接:http://blog.csdn.net/lcp58006478/article/details/8958460
以上就是本文的全部内容,希望对大家的学习有所帮助,也希望大家多多支持猪先飞。
相关文章
- Create Procedure AtoC @ChangeMoney Money as Set Nocount ON Declare @String1 char(20) Declare @String2 char(30) ...2016-11-25
- 这篇文章介绍了C#判断字符串是否数字或字母的实例,有需要的朋友可以参考一下...2020-06-25
- CREATE FUNCTION ChangeBigSmall (@ChangeMoney money) RETURNS VarChar(100) AS BEGIN Declare @String1 char(20) Declare @String2 char...2016-11-25
- 这篇文章主要为大家详细介绍了C#实现猜数字游戏,文中示例代码介绍的非常详细,具有一定的参考价值,感兴趣的小伙伴们可以参考一下...2020-06-25
- 这篇文章主要介绍了超简洁java实现双色球若干注随机号码生成(实例代码),本文通过实例代码给大家介绍的非常详细,对大家的学习或工作具有一定的参考借鉴价值,需要的朋友可以参考下...2021-04-02
- 这篇文章主要介绍了Java生成随机姓名、性别和年龄的实现示例,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一起学习学习吧...2020-10-01
- 设置登录密码我们一般会有限制的如由什么组合了,下面我们来看一篇关于安卓开发之设置密码只能输入字母和数字的组合方法,具体的细节如下所示。 无论是电脑还是手机...2016-09-20
- 关于生成唯一数字ID的问题,是不是需要使用rand生成一个随机数,然后去数据库查询是否有这个数呢?感觉这样的话有点费时间,有没有其他方法呢?当然不是,其实有两种方法可以解决。 1. 如果你只用php而不用数据库的话,那时间戳+随...2015-11-24
php导出csv格式数据并将数字转换成文本的思路以及代码分享
php导出csv格式数据实现:先定义一个字符串 存储内容,例如 $exportdata = '规则111,规则222,审222,规222,服2222,规则1,规则2,规则3,匹配字符,设置时间,有效期'."/n";然后对需要保存csv的数组进行foreach循环,例如复制代...2014-06-07- 这篇文章主要介绍了C#判断一个字符串是否是数字或者含有某个数字的方法,本文给大家介绍的非常详细,具有一定的参考借鉴价值,需要的朋友可以参考下...2020-06-25
- 这篇文章主要给大家介绍了关于C++随机点名生成器的相关资料,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一起学习学习吧...2020-04-25
- 这篇文章主要介绍了C#将数字转换成字节数组的方法,涉及C#字符串操作的技巧,非常具有实用价值,需要的朋友可以参考下...2020-06-25
- 这篇文章主要介绍了C++实现数字转换为十六进制字符串的方法,涉及C++操作数字与字符串转换的相关技巧,需要的朋友可以参考下...2020-04-25
- php实现数字格式化,数字每三位加逗号的功能函数,具体代码如下: function num_format($num){ if(!is_numeric($num)){ return false; } $num = explode('.',$num);//把整数和小数分开 $rl = $num[1];//小数部分的值...2015-10-23
- 这篇文章主要给大家介绍了关于如何使用原生Js实现随机点名的相关资料,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一起学习学习吧...2021-01-06
- 这篇文章主要介绍了JS实现的随机排序功能算法,结合具体实例形式分析了javascript常用的排序算法实现技巧,需要的朋友可以参考下...2017-06-15
- 这篇文章主要介绍了Lua判断变量是否为数字、字符串是否可以转换为数字等,本文讲解了Lua 判断是字符还是数字的方法、Lua判断数字的方法、判断可否转换为数字的方法、判断并且准备一个初值的方法,需要的朋友可以参考下...2020-06-30
- 复制代码 代码如下: $str='asb天水市12'; if (preg_match("/^[/x7f-/xff]+$/", $str)){ echo '全部是汉字'; }else { echo '不全是汉字'; } /** PHP自带的判断是否是中文, eregi('[^/x00-/x7F]', $str ) //中文 ereg...2013-10-04
- 这篇文章主要介绍了python基于OpenCV模板匹配识别图片中的数字,帮助大家更好的理解和学习使用python,感兴趣的朋友可以了解下...2021-03-31
- 这篇文章主要介绍了C++ 随机数字以及随机数字加字母生成的案例,具有很好的参考价值,希望对大家有所帮助。一起跟随小编过来看看吧...2020-12-11