청소 Visual Basic 코드

Question

나는 수정 된 도움이되는 몇 가지 코드를 가지고 있지만,이 코드에서 더 많은 것을 단순화 할 수있는 부분이 있습니다 (orelse 문). 콜렉션 클래스 나 배열과 관련이 있다는 것을 알고 있지만, 그것을 바꾸는 방법에 난처한 상황입니다. 어떤 도움을 주시면 감사하겠습니다.

Function GetLastName(ByVal accountName As String) As String 

    Dim lastName As 
    Dim stringArray As Array = accountName.Split(" ") 
    Dim lastIndex = stringArray.Length - 1 'lastIndex will serve as the UpperBound of the Array 
    Dim lastElement = stringArray(lastIndex).ToUpper 

    If ((lastElement.Equals("JR")) OrElse (lastElement.Equals("JR.")) _ 
    OrElse (lastElement.Equals("SR")) OrElse (lastElement.Equals("SR.")) _ 
    OrElse (lastElement.Equals("I")) OrElse (lastElement.Equals("II")) _ 
    OrElse (lastElement.Equals("III")) OrElse (lastElement.Equals("IV")) _ 
    OrElse (lastElement.Equals("M.D.")) OrElse (lastElement.Equals("M.D")) _ 
    OrElse (lastElement.Equals("PH.D.")) OrElse (lastElement.Equals("PHD.")) _ 
    OrElse (lastElement.Equals("PHARM.D")) OrElse (lastElement.Equals("M.B.A"))) Then 

Answer 1

Dim titles As IList(Of String) = New List(Of String)() 

titles.Add("JR") 
titles.Add("JR.") 
titles.Add("SR") 
titles.Add("SR.") 
' .... 

Return titles.Contains(lastElement)