中科新闻网邱慧雯陈汉典:VB问题!!!!!高手进***
来源：百度文库 编辑：中科新闻网 时间：2024/05/06 01:08:08
如下:
首先对TEXT1.TEXT中的内容进行判断,如果输入了符号,例如, . ! # 则提示"输入错误,请重新输入"(因为只允许输入数或字母又或者是数字+字母的组合)
1.如果TEXT1.TEXT输入的为123456则在TEXT1.TEXT中显示"是弱口令".(这个应该用判断语句就可实现吧)
2.如果输入的数字低于8位数,则在TEXT1.TEXT中显示 "密码安全度30%".
3.如果输入的数字大于8位小于12位则在TEXT1.TEXT中显示"密码安全度为50%"
4.如果输入的数字大于12位则在TEXT1.TEXT中显示"密码安全度为70%"
5.如果输入的是数字+字母并且判断是否大于8位小于12位,是则提示"密码安全度90%"小于8位则提示"密码安全度80%"大于12位则提示"密码安全度99%"
我写了几段代码 但字母和数字的处理有点问题!!谁能帮帮我 答对了 高分加奖~~~
2~4问题的 对数字判断同样对纯字母有效!!!
其实我觉得是不是判断字符的位数就可以了??但是 如果是数字+字母的组合怎么判断?? 输出结果的TEXT1.TEXT改为TEXT2.TEXT
窗体加上text1,text2,command1
代码如下：
\'___________________________________
Private Sub Command1_Click()
Dim n As Integer
n = Len(Text1.Text)
If Text1.Text Like \"*[!0-9A-Za-z]*\" Then
MsgBox \"输入错误,请重新输入!\"
Text1.SetFocus
SendKeys \"^{HOME}+{END}\"
Else
If IsNumeric(Text1.Text) Then
If Text1.Text = \"123456\" Then Text2.Text = \"是弱口令\": Exit Sub
If n < 8 Then
Text2.Text = \"密码安全度30%\"
Else
If n > 12 Then
Text2.Text = \"密码安全度70%\"
Else
Text2.Text = \"密码安全度50%\"
End If
End If
End If
If Text1.Text Like \"*#*\" And Text1.Text Like \"*[a-zA-Z]*\" Then
If n < 8 Then
Text2.Text = \"密码安全度80%\"
Else
If n > 12 Then
Text2.Text = \"密码安全度99%\"
Else
Text2.Text = \"密码安全度90%\"
End If
End If
End If
End If
End Sub
用ASCII码值去判断数字和字母的组合，把ASCII码定义在一个范围。
这是一个不能输入汉字的例子：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 0 Then
KeyAscii = 0
MsgBox "不能输入中文", 64, ""
Exit Sub
End If
End Sub
这个...很简单....
但说起来.....一句两句说不清......
不如....你给你QQ,我做个例子给你.
你可以使用ASCII码校验一下输入。
第一个,ascii就行了;
之后的:select case+len($).