Excel 这个VB代码有什么问题？ If条件的括号是多余的 Else是冗余的–编号已经为零 您不返回任何值 您没有指定返回类型 您可以使用selectcase使此表单的多个测试更具可读性

如果这是VB.NET代码的话，还有很多

---

从风格上讲，您的代码占用了太多的空间：删除不必要的空行，它们不会使代码更具可读性–相反。

将第一行更改为：Function nameTonumber（name As String）As Integer

以上功能添加：

如果您使用的是VB6，则nameTonNumber=number

---

返回编号“如果您使用的是VB.NET

这是VB.NET还是VB6？”？下次你问问题时，要具体点。你问怎么了？你为什么想知道？什么不起作用？如果我添加，结束后可以；返回号码；仍然不起作用？若要从函数返回值，请在计算出“数字”应该是什么后，使用

nameToNumber=number

或

returnnumber

（哪种形式取决于您使用的VB版本）。@user1079898您的注释与我在第一条注释中概述的问题相同。您再次没有提供足够的信息。@user1079898，您使用的是VB6还是VB.NET？它是web应用程序还是桌面应用程序？添加时函数返回什么：返回编号？（根据您的评论）它是否返回0？您忘记了“0。事实上它是VB”：P

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