3个回答
展开全部
Private Sub Form_Click()
Dim p As String
p = Text1.Text
For k = 1 To Len(p)
m = Asc(Mid(Text1.Text, k, 1))
If (m > 65 And m < 90) Or (m > 97 And m < 122) Then
t = t + 1
Exit For
End If
Next k
For k = 1 To Len(p)
m = Asc(Mid(Text1.Text, k, 1))
If m > 48 And m < 57 Then t = t + 1: Exit For
Next k
For k = 1 To Len(p)
If Mid(Text1.Text, k, 1) = "_" Then t = t + 1
Next k
Select Case t
Case 1
MsgBox "密码弱"
Case 2
MsgBox "密码中"
Case 3
MsgBox "密码强"
End Select
End Sub
Dim p As String
p = Text1.Text
For k = 1 To Len(p)
m = Asc(Mid(Text1.Text, k, 1))
If (m > 65 And m < 90) Or (m > 97 And m < 122) Then
t = t + 1
Exit For
End If
Next k
For k = 1 To Len(p)
m = Asc(Mid(Text1.Text, k, 1))
If m > 48 And m < 57 Then t = t + 1: Exit For
Next k
For k = 1 To Len(p)
If Mid(Text1.Text, k, 1) = "_" Then t = t + 1
Next k
Select Case t
Case 1
MsgBox "密码弱"
Case 2
MsgBox "密码中"
Case 3
MsgBox "密码强"
End Select
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
富港检测技术（东莞）有限公司_
2024-05-27 广告
ISTA3E程序是对相同产品的集合包装的综合模拟性能测试，集合包装件被定义为将一个产品、多个产品或包装件放置在滑板或托盘上，固定在一起或是作为一个单元运输。例如：一台机器由带瓦楞底托的托盘上、瓦楞侧围、顶盖包装，用缠绕膜缠绕在托盘上。用于评...
点击进入详情页
本回答由富港检测技术（东莞）有限公司_提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
