如何随机生成汉字，做人名用。

txxb 发布于 2014-12-04 21:23， 540 次点击

随机生成2-3个汉字，有啥好办法？

3 回复

xzlxzlxzl2014-12-04 22:13

Private Sub Command1_Click()
  Dim a As String
  Randomize
  a = Chr((Int(128 + 127 * Rnd)) * 256& + Int(127 * Rnd + 128))
  Print a;
End Sub

这样出来的汉字无意义，还有乱码，建议输入一篇文章，取随机行列值得到该汉字

风吹过b2014-12-04 23:12

按2楼说的，人名，你要用两个数据。
第一个数据，百家姓，挑单字的姓吧。
第二个数据，你到网上找一遍文章。

从第一个数据中，取一个字，然后再从第二个数据中，取二个字。组装起来，就OK了。

txxb2014-12-04 23:54

对的，我找了个字库