-5 
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
4

2 に答える 2

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

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

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

于 2012-04-21T19:21:00.577 に答える
1

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

終了関数の上に追加:

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

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

于 2012-04-21T19:54:39.883 に答える