图1 |
Private Sub cmd_Click( )
Dim a1 As Integer, a2 As Integer, flag As Boolean
Dim s As String, c As String, i As Integer, n As Integer
a1 =0: a2 =0: flag =False
s=Text1.Text
n =Len(s)
i=1
Do While
c =Mid(s, i. 1)
If Then
a1=1
Elself c > = "0" And c < = "9" Then
a2=1
End If
If Then flag =True
i=i+1
Loop
If flag And n >=8 Then
Label2. Caption="验证结果:符合要求"
Else
Label2. Caption="验证结果:不符合要求"
End If
End Sub