清洁Visual Basic代码

我在这里有一些代码，我已经帮助修改了，但是这个代码中有一部分可以更简化（如果或陈述）。我知道它与集合类或数组有关，但我很难理解如何改变它。任何帮助，将不胜感激。清洁Visual Basic代码

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

来源

2012-01-06 user1134815

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)

来源

2012-01-06 18:36:09 Melursus

清洁Visual Basic代码

回答

相关问题