這個VB代碼有什麼問題？

-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

來源

2012-04-21 user1079898

這是VB.NET還是VB6？下次您提出問題時，**請具體說明**。你問有什麼問題？那麼，你爲什麼想知道？什麼不起作用？ – 2012-04-21 19:19:57

好了之後，如果我添加;退貨編號;仍然不起作用？ – user1079898 2012-04-21 19:44:00

爲了從函數中返回一個值，一旦確定了「數字」應該是什麼，就使用'nameToNumber = number'或'return number'（該表單取決於您使用的是哪個版本的VB）。 – 2012-04-21 19:49:39

更改第一行：功能nameTonumber（名稱作爲字符串）作爲整數

以上結束函數添加：

nameTonumber =號碼「如果您正在使用VB6。

return number'如果您使用VB.NET

來源

2012-04-21 19:54:39 w0051977

非常感謝你！ – user1079898 2012-04-21 23:58:56

圍繞If條件的括號是多餘的。
Else是多餘的 - number已經爲零。
您不會返回任何值。
您沒有指定返回類型。
您可以使用Select Case使此表單的多個測試更具可讀性。

還有很多，如果這是VB.NET代碼。

在文體上，您的代碼佔用太多空間：刪除不必要的空行，它們不會使代碼更具可讀性 - 恰恰相反。

來源

2012-04-21 19:21:00

你忘了「0.它是VB的事實」：P – ThiefMaster 2012-04-21 19:22:30

@ThiefMaster我喜歡VB。 – 2012-04-21 19:23:07

這個VB代碼有什麼問題？

回答

相關問題