Question

我对手机号码进行了验证，但我希望手机号码应以7,8,9 digits开头。我想确认手机号码应该只以7,8,9 digits开头。

If Len(TextBox11.Text) < 10 Or Len(TextBox11.Text) > 10 Then
                MsgBox("Enter the phone number in 10 digits!", vbExclamation, "")

此代码提供10 digits验证，但移动电话号码应以7,8,9 digits开头。

Answer 1

10位数，从7,8,9开始

isValid = TextBox11.Text like "[789]#########"

if (not isValid) then
    msgbox "Invalid"
...

Answer 2

If Len(TextBox11.Text) <> 10 Or Left(TextBox11.Text, 1) <> "7" or Left(TextBox11.Text, 1) <> "8" or Left(TextBox11.Text, 1) <> "9" Then
                MsgBox("Enter the phone number in 10 digits!", vbExclamation, "")
End If

RegEx是进行复杂验证的一种方式。它位于VBScript库中，称为Microsoft Regular Expressions 5.5。

[7-9]\d{9}$

7到9 [7-9]之间的数字，后跟数字\d，其中应有9个{9}。 $标记输入结束，如果超过10个字符则不匹配。

Answer 3

我使用这个工作正常的代码

Dim MobileNumber As New Regex("^[7-9][0-9]*")
                If MobileNumber.IsMatch(TextBox11.Text) Then
MsgBox("Valid Mobile number")
else
MsgBox("Not Valid Mobile number")
                End If

Answer 4

Private Sub Text7_LostFocus()
  Dim CHAR As Integer
  Dim TELEPHONE As String
  TELEPHONE = Val(Text7.Text)
  CHAR = Left(TELEPHONE, 1)
  If CHAR < 7 Then
    Msg("ENTR THE CORRECT  MOBILE NUMBER")
    Text7.Text
  Else If (TELEPHONE < 10) Then
    Msg("ENTR THE 10 DIGIT MOBILE NUMBER")
    Text7.Text
    Exit Sub
  End If
End Sub

Answer 5

Private Sub Text5_Validate(Cancel As Boolean)
     If (Len(Text5.Text) < 10 Or Len(Text5.Text) > 10) Then
         MsgBox "Enter the phone number in 10 digits!", vbExclamation, ""
     End If
End Sub

我想在vb6中验证手机号码

5 个答案: