某密码强度判断程序功能如下:在文本框Text1中输入由大写字母、小写字母、数字和其他字符4种不同类型字符组成的密码字符串,单击“判断”按钮Cmd1,在标签框Label3中显示判断结果。程序运行界面如图所示。
密码强度判断条件如下:密码长度小于6,则强度为“弱”。在密码长度大于等于6的情况下,若只出现一种字符,则密码强度为“弱”;若出现两种不同字符,则密码强度为“中”,出现3种以上不同字符,则密码强度为“强”。
(1)
Cmd1对象属于类。(单选,填字母:A .Label/B .TextBox/C .CommandButton)
(2)
实现上述功能的VB程序如下,请在划线处填入合适的代码。
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
①②③
(3)
若文本框Text1中输入的内容为“a26$gh2!”,单击判断按钮Cmd1,事件过程运行结束时,变量s的值为。
答案: 【1】C
【1】n=Len(Textl.Text)【2】Mid(s,2,1)="l"【3】m=m+1
【1】1101