VB.net-VSTO随机生成不重复N个姓名

我们在日常进行数据测试中，常常会需要模拟一些数据，如单位、姓名、成绩、得分等，有时候为了想一个姓名，会浪费一点点时间，所以我就设计这样的的一个命令菜单，把常用的姓氏和名字字符组成起来，自从设计好这个，妈妈就不用担心我找不到姓名数据了。

我在网上取了104个常用的姓氏，再取了264个个常的名字的字，组成数组，再进行取数据生成2字姓名或3字姓名，

GetOneName()函数用于生一个姓名，firstName是姓氏一个字random.Next(1, 15)生成1-14的数字，可能是1位数，就会生成1字名，如果是2位数就生成2字的名，这一步是考虑到1字名的情况，大约15个就会生成一个1字名。nameStr=firstName+lastName=姓+名=姓名GetRandNameS(myN As Integer) As Array用HashSet哈希列表取不重复，参数myN是要生成N个姓名，返回值是一个数组Array,再foreach就可以输出啦