密码强度判断条件如下:密码长度小于6,则强度为“弱”。在密码长度大于等于6的情况下,若只出现一种字符,则密码强度为“弱”;若出现两种不同字符,则密码强度为“中”,出现3种以上不同字符,则密码强度为“强”。
Private Sub Cmd1_Click()
Dim n As Integer,i As Integer,m As Integer,s As String,c
As String
①
If n<6 Then
Label3.Caption ="弱"
Else
s= "0000"
For i = 1 To n
c=Mid(Text1.Text,i,1)
If c > = "0"And c<= "9" Then
Mid(s,4,1)= "1"'将字符串s第4位上的字符替换为"1"
Elself c > ="A" And c<="Z" Then
Mid(s,3,1)= "1"
Elself c>="a" And c<="z" Then
②
Else
Mid(s,1,1)= "1"
End If
Next i
m = 0
For i = 1 To 4
If Mid(s,i,1)= "1" Then ③
Next i
If m< 2 Then
Label3.Caption="弱"
Elself m = 2 Then
Label3.Caption="中"
Else
Label3.Caption="强"
End If
End If
End Sub
①②③
Dim i As Integer, a As Integer, b As Integer, c As Integer
For i=100 To
a=i\100
b=
c=i-100*a-10*b
If Then
Print i
End If
Next i
Word 、学生.dbf、Excel、record.jpg、PowerPoint、课程.xls、Visual Basic、suyan.fla、Access、Photoshop、music.doc、 Flash, lx.vbp、rw.ppt。
主要功能 | 软件名称 | 文件名称 |
数据库 | Access | |
文字处理 | ||
电子表格 | Excel | |
幻灯片 | rw.ppt | |
可视化程序 | lx.vbp | |
图片处理 | record.jpg | |
动画处理 | Flash |