如何用VB随机产生汉字

可通过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 '拼接十六进制字符串高低字节
    De