vb.net随机汉字的简单介绍

如何用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

Next

RndString = returnStr

End Function

相关问答

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

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

Q2: VB.NET中怎么实现每单击一次按钮，文本框就多出现一个1-13的随机数字？

Dim n As Integer, b As Integer, a(13) As Integer

Private Sub Command1_Click()

If b 5 Then

b = b + 1

x = Int(n * Rnd()) + 1

Text1.Text = Text1.Text a(x) " "

a(x) = a(n)

n = n - 1

Else

Call Form_Load

End If

End Sub

Private Sub Form_Load()

Randomize

n = 13: b = 0

For i = 1 To 13

a(i) = i

Next i

Text1.Text = ""

End Sub

Q3: vb.net随机函数生成~！

//太蛋疼了，我没注意到是vb.net，写成C#的了。。。。

//也许不是太完美，但功能上还是实现了

//protected void Timer1_Tick(object sender, EventArgs e)

//{

// Random rnd = new Random((int)DateTime.Now.Ticks);

// double result = rnd.NextDouble() * 3.0;

// if (result 1.1)

// {

// result += 1.1;

// }

// Label1.Text = string.Format("{0:0.0}", result);

//}

'下面这个就是VB.NET的了

Protected Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Randomize()

Dim result As Single = Rnd() * 3.0

If (result 1.1) Then

result += 1.1

End If

Label1.Text = String.Format("{0:0.0}", result)

End Sub

Q4: vb.net 如何随机产生汉字，

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

Dim HzAsc1 As Integer, HzAsc2 As Integer

Randomize()

HzAsc1 = Int(Rnd() * 10) + 127

HzAsc2 = Int(Rnd() * 10) + 127

TextBox1.Text = ChrW(HzAsc1 * 256 + HzAsc2)

End Sub