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

    'n个姓名
    Public Function GetRandNameS(myN As Integer) As Array
        Dim idNumbers As New HashSet(Of String)()
        While idNumbers.Count < myN
            Dim id As String = GetOneName()
            If Not idNumbers.Contains(id) Then
                idNumbers.Add(id)
            End If
        End While
        Dim tn As Integer = 0
        Dim ArrOut(idNumbers.Count - 1) As String
        For Each id As String In idNumbers
            ArrOut(tn) = id
            tn += 1
        Next
        Return ArrOut
    End Function
   '###随机生成一个姓名,由于在网上复制的字符可能有空格，所以要清除空格输出
    Public Function GetOneName() As String
        Dim firstLong As Long = firstNameList.Length
        Dim lastLong As Long = lastNameList.Length
        Dim nameStr As String = firstNameList(random.Next(0, firstNameList.Length))
        Dim lastN As Integer = random.Next(1, 15)
        If lastN >= 2 Then
            For i As Integer = 0 To 1
                nameStr += lastNameList(random.Next(0, lastNameList.Length))
            Next
        Else
            nameStr += lastNameList(random.Next(0, lastNameList.Length))
        End If
        Return nameStr.Replace(" ", "")
    End Function