需求：当密码验证条件不满足（布尔值为false）时弹出msgbox

需求回顾 #

需要实现密码验证逻辑，当密码不满足以下任一条件时，用MsgBox弹出明确提示：

• 密码长度必须超过10个字符
• 至少包含1个大写英文字母
• 至少包含1个小写英文字母

基础实现代码（VBA） #

这是最直接的实现，发现不符合条件时立即弹出对应提示：

Sub CheckPassword()
    Dim userPwd As String
    userPwd = InputBox("请输入待验证的密码：", "密码校验")
    
    ' 逐个验证条件
    Dim passLengthOK As Boolean, hasUpper As Boolean, hasLower As Boolean
    passLengthOK = Len(userPwd) > 10
    hasUpper = userPwd <> LCase(userPwd) ' 转小写后不一致说明有大写
    hasLower = userPwd <> UCase(userPwd) ' 转大写后不一致说明有小写
    
    ' 触发提示
    If Not passLengthOK Then
        MsgBox "密码长度不够！必须大于10个字符", vbExclamation, "校验失败"
    ElseIf Not hasUpper Then
        MsgBox "密码缺少大写字母！至少需要包含1个", vbExclamation, "校验失败"
    ElseIf Not hasLower Then
        MsgBox "密码缺少小写字母！至少需要包含1个", vbExclamation, "校验失败"
    Else
        MsgBox "密码校验通过", vbInformation, "校验成功"
    End If
End Sub

进阶版本：一次性提示所有错误 #

如果想让用户一次性知道所有不符合的条件，可以用这个版本：

Sub CheckPasswordAllIssues()
    Dim userPwd As String, errorList As String
    userPwd = InputBox("请输入待验证的密码：", "密码校验")
    
    ' 收集所有错误信息
    If Len(userPwd) <= 10 Then
        errorList = errorList & "- 密码长度不足（需大于10字符）" & vbCrLf
    End If
    If userPwd = LCase(userPwd) Then
        errorList = errorList & "- 未包含大写字母" & vbCrLf
    End If
    If userPwd = UCase(userPwd) Then
        errorList = errorList & "- 未包含小写字母" & vbCrLf
    End If
    
    ' 弹出提示
    If errorList <> "" Then
        MsgBox "密码校验失败，问题如下：" & vbCrLf & errorList, vbExclamation, "校验失败"
    Else
        MsgBox "密码校验通过", vbInformation, "校验成功"
    End If
End Sub

代码说明 #

• 利用Len()函数直接判断长度，简单高效
• 通过大小写转换对比来判断是否包含大小写字母，无需遍历每个字符，代码更简洁
• 两个版本分别对应“即时提示”和“批量提示”的场景，可根据需求选择

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