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

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

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i As Long, wc As Integer Dim s As String = "" For i = 1 To 100 Randomize() wc = CInt("&H" & Hex$(Rnd() * (&H9FA5& - &H4E00&) + &H4E00&)) s = s & CLng("&H" & Hex$(wc)) & " " & Hex$(wc) & " " & ChrW(wc) & vbTab Next TextBox1.Text = s End Sub