正文
vb.net随机字符串 vb里随机数咋弄
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
VB.NET里怎么用String$
首先说一下你不明白的地方，那个rand.Next(0,
129)，其实就是产生一个随机数
Dim
rand
=
New
System.Random()
这个是产生随机数初始化的地方
方法名称：next(i，j)；功能描述：返回一个i~j之间的整数
String$(129,
0)的作用和你注释掉的地方一样，也是产生一个0-129之间的随机数
至于为什么报错，问题就多了
因为产生的值是一个随机的，而且，程序别的地方的处理我不知道，但只根据这段代码来看，这个就是个报错时候的显示信息处理，那么最好你都能明白错误信息的显示方法，提示一下，这个显示出来的内容，哪怕传进去的参数一样，在中文系统，日文系统，英文系统上显示出来的信息内容，都是不一样的
相关问答
Q1: 如何用VB.NET生成一个随机字符串
用法 RndString(xx) xx为随机数字长度
比如12位长度vb.net随机字符串的随机字符串 则为 RndString(12)
字符串包含数字和大小写字母vb.net随机字符串，函数如下vb.net随机字符串：
Function RndString(ByVal l As Integer) As String
Randomize()
Dim R, i As Integer
Dim S As Char
Dim returnStr As String
returnStr = ""
'a-z vb.net随机字符串的ASCII码是：97-122
'A-Z 的ASCII码是：65-90
'0-9 的ASCII码是：48-57
For i = 1 To l
R = Int(Rnd() * 62) '随机生成的字符有大小写字母和数字vb.net随机字符串，共有26个
If R 10 Then '如果小于10，则是数字 数字的ASCII是48-57 对应 随机数字 0-9 所以要将随机数字加48
S = Chr(R + 48) 'Chr 是将把数字按Ascii码转换为对应的字符
ElseIf R 36 Then '如果小于36，则是大写字母 大写字母的ASCII是65-90 对应 随机数字10-35 所以要将随机数字加55
S = Chr(R + 55)
Else '如果大于36，则是小写字母 小写字母的ASCII是97-122 对应 随机数字36-62 所以要将随机数字加61
S = Chr(R + 61)
End If
returnStr = returnStr + S
Next
RndString = returnStr
End Function
Q2: 急求以下vb.net代码
'我不会计时，因此下面代码中没有计时功能，要你自己去创建。
'Text1 As Label , Sui1 As Button , Sui2 As Button , Sui3 As Button , Fil1 As TextBox , Form1 As Form.
Public Class Form1
Private Sub Sui1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sui1.Click
Dim i As Random = New Random
Dim iText As String = ""
For mn As Int16 = 1 To 30
Dim si As Int16 = i.Next(0, 25)
If si = 0 Then
iText += "a"
ElseIf si = 1 Then
iText += "b"
ElseIf si = 2 Then
iText += "c"
ElseIf si = 3 Then
iText += "d"
ElseIf si = 4 Then
iText += "e"
ElseIf si = 5 Then
iText += "f"
ElseIf si = 6 Then
iText += "g"
ElseIf si = 7 Then
iText += "h"
ElseIf si = 8 Then
iText += "i"
ElseIf si = 9 Then
iText += "j"
ElseIf si = 10 Then
iText += "k"
ElseIf si = 11 Then
iText += "l"
ElseIf si = 12 Then
iText += "m"
ElseIf si = 13 Then
iText += "n"
ElseIf si = 14 Then
iText += "o"
ElseIf si = 15 Then
iText += "p"
ElseIf si = 16 Then
iText += "q"
ElseIf si = 17 Then
iText += "r"
ElseIf si = 18 Then
iText += "s"
ElseIf si = 19 Then
iText += "t"
ElseIf si = 20 Then
iText += "u"
ElseIf si = 21 Then
iText += "v"
ElseIf si = 22 Then
iText += "w"
ElseIf si = 23 Then
iText += "x"
ElseIf si = 24 Then
iText += "y"
ElseIf si = 25 Then
iText += "z"
End If
Next
Text1.Text = iText
Sui1.Enabled = False
Sui2.Enabled = True
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Fil1.Enabled = False
Sui2.Enabled = False
Sui3.Enabled = False
End Sub
Private Sub Sui2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sui2.Click
Fil1.Enabled = True
Sui3.Enabled = True
Fil1.Select()
End Sub
Private Sub Fil1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Fil1.TextChanged
If Fil1.Text.Count = Fil1.MaxLength Then
Fil1.Enabled = False
End If
End Sub
Private Sub Sui3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sui3.Click
Fil1.Enabled = False
Sui2.Enabled = False
Sui1.Enabled = True
Sui3.Enabled = False
'完成结果。
MsgBox("suidu:" 30)
End Sub
End Class
Q3: VB.net怎么编辑随机显示一个字符在textbox控件
整一个随机数，然后把这个随机数放进textbox里边就可以了，如果需要随机函数网上很多源码
Q4: 用VB随机生成13位小写字母
outstr 是楼上声明的一个变量 意思是"输出的字符" vb.net随机字符串你可以用其它的代替 , 如a,b,c ...包括中文都可以,vb.net随机字符串你的目的是把字母放到文本里,我搞不清楚怎么才能将它一次产生,总会有前后的吧,计算机那速度也是一眨眼的事情,我将楼上的代码按照vb.net随机字符串你的要求修改如下:
dim i as integer
dim outstr as string
outstr=""
for i=1 to 13
outstr=outstr + chr(int(26*rnd(1))+97)
next i
text1.text=outstr
全写到文本里去了
Q5: vb.net随机产生英文字母的代码
1.随机产生英文字母
Randomize() '功 能：初始化随机数发生器
Me.txt1.Text = Chr(Asc("a") + Int(Rnd() * 26))
'Rnd 函数返回小于 1 但大于或等于 0 的值。
'0 = Rnd() * 26 26 是含小数位的数
'Int(Rnd() * 26) 转换为整型，就是0~25的随机数
'Asc("a") 得到a的ASCii数值，是整数97（A是65）
'a~z的ASCii为97~122 ，即为a~z之间的字母为97加（0~25）
'Asc("a") + Int(Rnd() * 26)为97到122的随机数
'Chr（）又可以起到转换成字符的功能，Chr(97)表示a （a转换成数值又是Asc("a")=97）
'Chr(Asc("a") + Int(Rnd() * 26))就是a~z的随机数了
Randomize() '再次初始化随机数发生器
Me.txt2.Text = Chr(Asc("A") + Int(Rnd() * 26)) '这里是A~Z的随机数
'也可以换这种写法
Randomize()
Me.txt1.Text = Chr(Int((26 * Rnd()) + 97)) '这里是a~z的随机数
'这是在你知道ASCII码的情况之下（a~z为97~122，A~Z为65~90）
'Rnd()为0~0.9999999.....的随机数
' 26 * Rnd()为0~25.9999...的随机数
'Int((26 * Rnd())为0~25的随机数
'Int((26 * Rnd()) + 97)为97~122的随机数
'Chr(Int((26 * Rnd()) + 97))就是a~z的随机数了
Randomize()
Me.txt2.Text = Chr(Int((26 * Rnd()) + 65)) '这里是A~Z的随机数
'至于同时在一处随机大写或小写，ASCII码的数字又不挨在一起（65-90,97-122），比较麻烦。想写的话，你可以自己想一下怎么办
2.数字怎样转换成ASCII码所对应的字母
Chr()函数将数字转换成ASCII对应的字母，Asc()函数将字母根据ASCII表转换成数字
Chr(97)表示a （a转换成数值又是Asc("a")=97）
3.加到数组，你可以放在一个for循环里
比如
Dim arylst1 As New ArrayList
Dim arr1() As String '数组
Dim str1 As String
For i As Integer = 1 To 15 '比如我想要15个随机字母
Randomize()
str1 = Chr(Int((26 * Rnd()) + 65)) '这里是A~Z的随机数
arylst1.Add(str1)
Next
ReDim arr1(arylst1.Count - 1) '这里是为了比较动态，可以只改变 i 的范围来决定要多少个随机字母
'当然也可以写死，在前面直接定义为 arr1(14)，下次要改的时候就要改定义的地方和i的范围，改两个地方
arylst1.CopyTo(arr1)
'就把数值拷贝到数组里面了
关于vb.net随机字符串和vb里随机数咋弄的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。
