2012-04-21 17 views
-4
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 
+1

このVB.NETまたはVB6ですか?次に質問をするときは**具体的にする**。何が間違っているのか尋ねる?あなたはなぜ知りたいのですか?何が効いていないのですか? –

+0

私が追加した場合、終了後にOk。戻り値。まだ動作しませんか? – user1079898

+0

関数から値を返すには、 'numberToNumber = number'または' return number'(使用しているVBのバージョンに依存します)を使います。 –

答えて

1

変更への最初の行:関数nameTonumber(文字列名)整数

エンド機能の追加上記

として:

nameTonumber =数「あなたはVB6を使用している場合。

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

+0

ありがとう! – user1079898

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

さらに、これがVB.NETコードの場合はさらに多くなります。

文法上のメモでは、コードが余りにも多くの領域を占有します。不要な空行を削除しても、コードを読みやすくすることはできません。

+0

"VBであることを忘れました":P – ThiefMaster

+1

@ThiefMaster VBが好きです。 –

関連する問題