Question

如何用VB随机产生汉字

如何用VB随机产生汉字
程序这样的：点击command1，在text1中产生一个随机的汉字，一定要汉字啊
请问要怎么做啊？大家帮忙下，谢谢！

Answer 1

可通过Rnd 函数来实现随机产生汉字。

Rnd 函数，返回一个包含随机数值的 Single。

Randomize 语句，初始化随机数生成器。

Chr 函数，返回 String，其中包含有与指定的字符代码相关的字符 。

GB_2312 字符集是目前最常用的汉字编码标准，windows 95/98/2000 中使用的 GBK字符集 就包含了GB2312，或者说和GB2312 兼容，GB_2312 字符集包含了 6763个的 简体汉字，和682 个标准中文符号。在这个标准中，每个汉字用2个字节来表示，每个字节的ascii码为 161-254 (16 进制A1 - FE)，第一个字节 对应于 区码的1-94 区，第二个字节 对应于位码的1-94 位。

实现代码：

Private Sub Form_Load()
    Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
    Dim MyValue, Myvalueh, s
    MyValue = Hex(Int((94 * Rnd) + 161)) '随机产生161到264之间的整数
    Myvalueh = Hex(Int((94 * Rnd) + 161)) '随机产生161到264之间的整数
    s = Myvalueh & MyValue '拼接十六进制字符串高低字节
    Debug.Print Chr(Val("&H" & s)) '用Chr函数返回汉字
    Randomize
End Sub

参考：http://baike.baidu.com/link?url=6xQCorVT7GXS_mYDHtfoKjNWJvH30Ir1bI34gq5X_kz3DSnhbPNijUDyeQjSUThGfx5fjkEMsR5M2YaJb1P9wK

Answer 2

asc 大于127 的 两个 字符 放在一起就是汉字
randomize timer
HzAsc1=int(rnd()*10)+127
HzAsc2=int(rnd()*10)+127

如： Text1.text= chrB(HzAsc1)+chrb(HzAsc2)

但其中有的汉字 很罕见！不知道你做什么用 如果简单的就这样!