この問題を解決するにはどうすればよいですか？関数はすべてのコードパスで値を返しません。

Question

大学の割り当てに単純なIDジェネレータを実行しようとしています。しかし今、私はこの問題に直面しています。「関数はすべてのパスで値を返さない」ということを示しています。私が得た結果は、常に "F"のパスです。私は何をすべきか？

Private Function GenerateID(ByVal gender As String) As String 

    Dim yearJoin As Int32 = Now.Year.ToString().Substring(2, 2) 

    If String.Compare(gender, "Male") Then 
     Return (yearJoin & "M" & (maxRows + 1).ToString("D3")) 
    ElseIf String.Compare(gender, "Female") Then 
     Return (yearJoin & "F" & (maxRows + 1).ToString("D3")) 
    End If 

End Function 

Answer 1

はただの条件が一致した場合にはnullのようないくつかのデフォルト値を返します。

Private Function GenerateID(ByVal gender As String) As String 

    Dim yearJoin As Int32 = Now.Year.ToString().Substring(2, 2) 

    If String.Compare(gender, "Male") Then 
     Return (yearJoin & "M" & (maxRows + 1).ToString("D3")) 
    ElseIf String.Compare(gender, "Female") Then 
     Return (yearJoin & "F" & (maxRows + 1).ToString("D3")) 
    End If 
    Return Nothing 
End Function 

Answer 2

方法はどのような場合には値を返す必要があります。したがって... ElseをIf..ElseIf...に追加するか、末尾にReturn something（代替値として）を追加するか、またはgenderがMaleでもFemaleでもない場合は例外をスローします。

（それは他に何ができるため？）、私は後者を好む：あなたはまた、Option Strict Onを使用する必要があります

Private Function GenerateID(ByVal gender As String) As String 
    Dim yearJoin As String = Date.Today.Year.ToString().Substring(2, 2) 
    Dim isMale As Boolean = String.Equals(gender, "Male", StringComparison.InvariantCultureIgnoreCase) 
    Dim isFemale As Boolean = String.Equals(gender, "Female", StringComparison.InvariantCultureIgnoreCase) 

    If Not isMale AndAlso Not isFemale Then 
     Throw New ArgumentException($"{NameOf(gender)} must either be Male or Female", NameOf(gender)) 
    End If 

    Dim maleFemaleLetter = If(isMale, "M", "F") 
    maxRows += 1 
    Dim id As String = $"{yearJoin}{maleFemaleLetter}{(maxRows).ToString("D3")}" 
    Return id 
End Function 

。 String.Compare整数を返します。 Option Strict Offはこれをサイレントに変換してBooleanになります。代わりにString.Equalsを使用してください。 と同じで、StringはIntegerではありません。厄介なバグを防ぐために型安全なコードを書く。