-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.

return number '如果你使用的是 VB.NET

于 2012-04-21T19:54:39.883 回答