我们在编写一些用户注册程序时，经常需要验证用户输入的Email是否正确，本文就给出一个源代码。

判断的基本原理是：

一个Email地址分为两部分，这两部分以@分开，@前面是用户的邮件用户名，@后面是Email的域名。因此，判断函数一开始就将输入就的email以@分为两部分，如果以@分完后，多于或少于两部分都为不正确的邮件。然后，判断函数判断输入的两部分内容是否为英文字母、数字、点(.)、减号(-)和下划线(_)，如果包含其它字符，就是非法地址。然后判断域名是否包含“.”，以及“.”后面的字符是否为2位或3位，等等。

'判断EMAIL是否正确Function IsValidEmail(email) Dim names, Name, i, c IsValidEmail = true names = Split(email, "@") If UBound(names) <> 1 Then IsValidEmail = false Exit Function End If For Each Name in names If Len(Name) <= 0 Then IsValidEmail = false Exit Function End If For i = 1 To Len(Name) c = LCase(Mid(Name, i, 1)) If InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 And Not IsNumeric(c) Then IsValidEmail = falseExit Function End If Next If Left(Name, 1) = "." Or Right(Name, 1) = "." ThenIsValidEmail = false Exit Function End If Next If InStr(names(1), ".") <= 0 Then IsValidEmail = false Exit Function End If i = Len(names(1)) - InStrRev(names(1), ".")If i <> 2 And i <> 3 Then IsValidEmail = false Exit Function End If If InStr(email, "..") > 0 Then IsValidEmail = false End IfEnd Function