(2)
为实现上述功能,请在程序划线处填入合适的代码。
Private Sub Command1_Click()
Dim password As String, st As String
Dim i As Integer, n As Integer, tj1 As Integer,
tj2 As Integer, tj3 As Integer
password = Text1.Text
n = Len(password)
If①Then
Label3.Caption = "密码位数不能少于8位,请重新输入!"
Else
tj1 = 0:
tj2 = 0: tj3 = 0
i = 1
Do While②
st = Mid(password, i, 1)
If st >= "0" And st <= "9"
Then
tj1 = 1
ElseIf st >= "a" And st <=
"z" Or st >= "A" And st <= "Z" Then
tj2 = 1
Else
Tj3 = 1
End If
i = i + 1
Loop
If tj1 + tj2 + tj3 = 3 Then
Label3.Caption = "强"
ElseIf ③Then
Label3.Caption = "中等"
Else
Label3.Caption = "弱"
End If
End If
End Sub
①________ ②________ ③________