System.StackOverflowException异常排查：VB大写字母检测模块函数问题

嘿，我一眼就发现问题所在了！你碰到的System.StackOverflowException完全是无限递归搞的鬼——你的UPCASES函数最后一行又调用了它自己，而且没有任何终止条件，每一次调用都会往调用栈里新增一层，直到栈空间被耗尽，自然就抛出这个异常了。

问题代码分析 #

看你这段代码的末尾：

Return UPCASES(password1, points)

这行代码会让函数无限循环调用自己，根本停不下来，这就是栈溢出的直接原因。而你的核心逻辑（检测大写字母、计算points）其实已经完成了，完全不需要递归调用。

修正后的代码 #

根据你原本的逻辑（当密码里恰好有1个大写字母时给5分，否则0分，同时返回对应的布尔结果），修正后的代码应该是这样：

Public Function UPCASES(ByRef password1 As String, ByRef points As Integer) As Boolean
    Dim uppercaseLetters As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    Dim intersection As IEnumerable(Of Char) = uppercaseLetters.Intersect(password1)
    
    If intersection.Count() = 1 Then
        points = 5
        Return True ' 表示检测到恰好1个大写字母
    Else
        points = 0
        Return False ' 表示大写字母数量不是1个
    End If
End Function

关键修改点 #

• 移除了导致无限递归的Return UPCASES(password1, points)，换成了根据逻辑返回True或False
• 给参数加上了明确的类型声明（password1 As String、points As Integer），让代码更规范且避免潜在的类型问题
• 把大写字母字符串提取成变量，提升代码可读性

这样修改后，函数会正常执行检测逻辑，计算points并返回结果，不会再出现栈溢出的问题啦。

内容的提问来源于stack exchange，提问作者asotty