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

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

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

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

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

对的，我找了个字库