vb.net随机字符串 c#随机字符串

急求以下vb.net代码

'我不会计时，因此下面代码中没有计时功能，要你自己去创建。

专注于为中小企业提供网站制作、成都做网站服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业上栗免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了上1000家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。

'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

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

如何用VB.NET生成一个随机字符串

用法 RndString(xx) xx为随机数字长度

比如12位长度的随机字符串则为 RndString(12)

字符串包含数字和大小写字母，函数如下：

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 的ASCII码是：97-122

'A-Z 的ASCII码是：65-90

'0-9 的ASCII码是：48-57

For i = 1 To l

R = Int(Rnd() * 62) '随机生成的字符有大小写字母和数字，共有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

RndString = returnStr

End Function

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)

ReDim arr1(arylst1.Count - 1) '这里是为了比较动态，可以只改变 i 的范围来决定要多少个随机字母

'当然也可以写死，在前面直接定义为 arr1(14)，下次要改的时候就要改定义的地方和i的范围，改两个地方

arylst1.CopyTo(arr1)

'就把数值拷贝到数组里面了

VB.net怎么编辑随机显示一个字符在textbox控件

整一个随机数，然后把这个随机数放进textbox里边就可以了，如果需要随机函数网上很多源码

vb.net中如何随机出现运算符“+”“-”“*”“/“

你可以换个思路嘛，随机数只能显示数字，但也可以转换为符号

Dim a

Private Sub Button1_Click(ByVal sender As System.Object， ByVal e As System.EventArgs) Handles Button1.Click

Randomize()

a = Int(Rnd() * 4) + 1

Select Case a

Case 1

TextBox1.Text = "+"

Case 2

TextBox1.Text = "-"

Case 3

TextBox1.Text = "*"

Case 4

TextBox1.Text = "/"

End Select。

VB.NET里怎么用String$

首先说一下你不明白的地方，那个rand.Next(0,

129)，其实就是产生一个随机数

Dim

rand

New

System.Random()

这个是产生随机数初始化的地方

方法名称：next(i，j)；功能描述：返回一个i~j之间的整数

String$(129,

0)的作用和你注释掉的地方一样，也是产生一个0-129之间的随机数

至于为什么报错，问题就多了

因为产生的值是一个随机的，而且，程序别的地方的处理我不知道，但只根据这段代码来看，这个就是个报错时候的显示信息处理，那么最好你都能明白错误信息的显示方法，提示一下，这个显示出来的内容，哪怕传进去的参数一样，在中文系统，日文系统，英文系统上显示出来的信息内容，都是不一样的

网站名称：vb.net随机字符串 c#随机字符串
路径分享：https://www.cdcxhl.com/article6/dochjig.html

成都网站建设公司_创新互联，为您提供品牌网站设计、虚拟主机、网站维护、品牌网站制作、网站设计公司、网站营销

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容