excel - この VB コードの問題点は何ですか?

Question

Function nameTonumber(name As String)

    Dim number As Integer
    number = 0

    If (name = "Aa") Then

        number = 1

    ElseIf (name = "Bb") Then

        number = 2

    ElseIf (name = "Cc") Then

        number = 3

    Else

        number = 0

    End If

End Function

Answer 1

1. 条件を囲む括弧Ifは冗長です。
2. はElse冗長です – <code>number はすでにゼロです。
3. 値を返しません。
4. 戻り値の型が指定されていません。
5. を使用Select Caseして、このフォームの複数のテストをわずかに読みやすくすることができます。

これが VB.NET コードの場合はさらに多くのことができます。

文体上の注意点として、コードはあまりにも多くのスペースを占有します。不要な空行を削除してください。逆に、コードを読みやすくすることにはなりません。

Answer 2

最初の行を次のように変更します: Function nameTonumber(name As String) As Integer

終了関数の上に追加:

nameTonumber=number 'VB6 を使用している場合。

戻り値 'VB.NET を使用している場合