本篇文章主要介绍了VB .网生成随机串或随机数字的方法，具有一定的参考价值，有需要的可以了解一下。
本文一共介绍了5种生成随机数方式，具体如下：
第一种：转载的方法
公共枚举字符串类型
allstring=1 大小写字母
allnumic=2 数字
str_num=3 大小写字母数字
str_upper=4 大写字母
str_lower=5 大写字母
结束枚举
函数生成器随机(ByVal长度为整数，ByVal s为字符串类型)为字符串
Dim strtemp作为String=
暗淡的常量()作为字符串=没什么
选择案例s
Case stringtype.allnumic
strtemp=0，1，2，3，4，5，6，7，8，9
常数=strtemp .拆分(,)
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，Y，Z
常数=strtemp .拆分(,)
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
常数=strtemp .拆分(,)
案例字符串类型.字符串数量
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
常数=strtemp .拆分(,)
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
常数=strtemp .拆分(,)
结束选择
Dim NewRandom As系统正文。StringBuilder=新系统正文。StringBuilder(长度)
Dim rd As Random=New Random()
将我标注为整数
对于i=0到长度为一的步长我1
纽兰登。追加（常量(研发.下一个（常数。长度- 1)))
然后
返回新随机.ToString()
结束功能
第二种：网上查找
公共函数GetOAuthNonce()作为字符串得到随机值
暗淡的结果为字符串=系统.Guid。NewGuid().ToString()
结果=结果。替换(-,)
返回结果。子串(0,10)
结束功能
字符串形式的公共函数随机代码(ByVal n为整数)
dim arr Char As Char()=New Char(){ a c， bc， dc， cc， ec， fc，_
高，中，中，低，中，高，低，中，高，低，中，_
主词，名词，名词，名词，名词，名词，名词，名词，名词，名词，名词
tc， uc， vc， wc， zc， yc，_
0摄氏度、1摄氏度、2摄氏度、3摄氏度、4摄氏度
5摄氏度、6摄氏度、7摄氏度、8摄氏度、9摄氏度、1摄氏度
Bc， Cc， Dc， Ec， Fc， Gc，_
Hc， Ic， Jc， Kc， Lc， Mc，_
名词术语，名词术语，名词术语，名词术语，名词术语，名词术语，名词术语
Vc， Uc， Wc， Xc， Yc， Zc}
尺寸编号作为新的StringBuilder()
昏暗的rnd作为新的随机（日期时间。现在。毫秒)
对于我，整数=0到n - 1
计算器append(arr char(rnd .[下一个】(0，arrChar .长度))。ToString())
然后
返回编号ToString()
结束功能
第三种：原来是C#转换
字符串形式的公共函数随机代码(ByVal n为整数)
dim arr Char As Char()=New Char(){ a c， bc， dc， cc， ec， fc，_
高，中，中，低，中，高，低，中，高，低，中，_
主词，名词，名词，名词，名词，名词，名词，名词，名词，名词，名词
tc， uc， vc， wc， zc， yc，_
0摄氏度、1摄氏度、2摄氏度、3摄氏度、4摄氏度
5摄氏度、6摄氏度、7摄氏度、8摄氏度、9摄氏度、1摄氏度
Bc， Cc， Dc， Ec， Fc， Gc，_
Hc， Ic， Jc， Kc， Lc， Mc，_
名词术语，名词术语，名词术语，名词术语，名词术语，名词术语，名词术语
Vc， Uc， Wc， Xc， Yc， Zc}
尺寸编号作为新的StringBuilder()
昏暗的rnd作为新的随机（日期时间。现在。毫秒)
对于我，整数=0到n - 1
计算器append(arr char(rnd .[下一个】(0，arrChar .长度))。ToString())
然后
返回编号ToString()
结束功能
第四种：利用VB6转换
函数马克兰德(ByVal maxLen为整数)为字符串生成签名时用随机串
dim strNewPass As String=vbNullString
变暗变低
昏暗的东西下一样长
暗淡的鞋面一样长
Dim intCounter As Long
随机化()
对于intCounter=1至马克斯伦
whatsNext=Int((1 - 0 1) * Rnd() 0)
如果whatsNext=0，则
上限=122
下限=100
其他
上限=57
下限=48
如果…就会结束
strNewPass=strNewPass Chr(Int((upper-lower 1)* Rnd()lower))
然后
makeRand=strNewPass
结束功能
第五种：直接用VB .网函数
Dim rand As Random=新系统。随机(10)这里10就代表是10为
调试。打印（兰特。下一个()。ToString)
原文链接：http://博客。csdn。net/LCP 58006478/文章/详情/8958460
以上就是本文的全部内容，希望对大家的学习有所帮助，也希望大家多多支持我们。
