(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
①________②________③________