本篇文章主要介绍了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，' b'c，' d'c，' c'c，' e'c，' f'c，_
'高，中，'中，'低，'中，'高，'低，'中，'高，'低，'中，_
主词，名词，名词，名词，名词，名词，名词，名词，名词，名词，名词
t'c，' u'c，' v'c，' w'c，' z'c，' y'c，_
0摄氏度、1摄氏度、2摄氏度、3摄氏度、4摄氏度
5摄氏度、6摄氏度、7摄氏度、8摄氏度、9摄氏度、1摄氏度
B'c，' C'c，' D'c，' E'c，' F'c，' G'c，_
H'c，' I'c，' J'c，' K'c，' L'c，' M'c，_
名词术语，名词术语，名词术语，名词术语，名词术语，名词术语，名词术语
V'c，' U'c，' W'c，' X'c，' Y'c，' Z'c}
尺寸编号作为新的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，' b'c，' d'c，' c'c，' e'c，' f'c，_
'高，中，'中，'低，'中，'高，'低，'中，'高，'低，'中，_
主词，名词，名词，名词，名词，名词，名词，名词，名词，名词，名词
t'c，' u'c，' v'c，' w'c，' z'c，' y'c，_
0摄氏度、1摄氏度、2摄氏度、3摄氏度、4摄氏度
5摄氏度、6摄氏度、7摄氏度、8摄氏度、9摄氏度、1摄氏度
B'c，' C'c，' D'c，' E'c，' F'c，' G'c，_
H'c，' I'c，' J'c，' K'c，' L'c，' M'c，_
名词术语，名词术语，名词术语，名词术语，名词术语，名词术语，名词术语
V'c，' U'c，' W'c，' X'c，' Y'c，' Z'c}
尺寸编号作为新的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为随机=新系统。'随机(10)'这里10就代表是10为
调试。打印（兰特。下一个()。ToString)
原文链接：http://博客。csdn。net/LCP 58006478/文章/详情/8958460
以上就是本文的全部内容，希望对大家的学习有所帮助，也希望大家多多支持我们。
郑重声明：本文由网友发布，不代表盛行IT的观点，版权归原作者所有，仅为传播更多信息之目的，如有侵权请联系，我们将第一时间修改或删除，多谢。