如何判断电子邮件的地址格式是否正确？
&% Function IsValidEmail(Email) ValidFlag = False If (Email && "") And (InStr(1, Email, "@") & 0) And (InStr(1, Email, ".") & 0) Then atCount = 0 SpecialFlag = False For atLoop = 1 To Len(Email) atChr = Mid(Email, atLoop, 1) If atChr = "@" Then atCount = atCount + 1 If (atChr &= Chr(32)) And (atChr &= Chr(44)) Then SpecialFlag = True If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr &= Chr(123)) Then SpecialFlag = True If (atChr &= Chr(58)) And (atChr &= Chr(63)) Then SpecialFlag = True If (atChr &= Chr(91)) And (atChr &= Chr(94)) Then SpecialFlag = True Next If (atCount = 1) And (SpecialFlag = False) Then BadFlag = False tAry1 = Split(Email, "@") UserName = tAry1(0) DomainName = tAry1(1) If (UserName = "") Or (DomainName = "") Then BadFlag = True If Mid(DomainName, 1, 1) = "." then BadFlag = True If Mid(DomainName, Len(DomainName), 1) = "." then BadFlag = True ValidFlag = True ' TureEnd If End If If BadFlag = True Then ValidFlag = False ' FalseIsValidEmail = ValidFlag End Function %&
第二种办法：&%function IsValidEmail(email)dim names, name, i, cIsValidEmail = truenames = Split(email, "@")if UBound(names) && 1 then
IsValidEmail = false
exit functionend iffor each name in names
if Len(name) &= 0 then
IsValidEmail = false
exit function
for i = 1 to Len(name)
c = Lcase(Mid(name, i, 1))
if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) &= 0 and not IsNumeric(c) then
IsValidEmail = false
exit function
if Left(name, 1) = "." or Right(name, 1) = "." then
IsValidEmail = false
exit function
end ifnextif InStr(names(1), ".") &= 0 then
IsValidEmail = false
exit functionend ifi = Len(names(1)) - InStrRev(names(1), ".")if i && 2 and i && 3 then
IsValidEmail = false
exit functionend ifif InStr(email, "..") & 0 then
IsValidEmail = falseend ifend function%&
第三种办法，用@”，以及“.”是否在@”后面：function isEmail(pInString)
lAt = False
lDot = false
for x = 2 to len(pInstring)-1
if mid(pInString,x,1) = "@" then lAt = True
if mid(pInString,x,1) = "." and lAt = True then lDot = True
if lAt = True and lDot = True then
isEmail = True
isEmail = False
end ifend function [1]电子邮箱格式怎么写
　　电子邮箱格式怎么写？邮箱格式其实很简单，下面做下演示操作，教你怎么写电子邮箱格式。电子邮箱格式中的@符号是同时按shift+数字键2打出来的。下面简单的说下网易163和QQ邮箱的格式怎么写，怎么发邮件。　　现在用的最多的是网易163邮箱和QQ邮箱、新浪邮箱，下面以163邮箱做演示操作，教你怎么写电子邮箱格式。　　一、163邮件格式怎么写？　　第一步：进入邮箱后，点击在左上角的写信。&　　第二步：然后写收件人的邮箱，如, 如果用的是QQ的邮箱，为收件人邮件地址。只是各个邮箱后缀不一样，我们这收件人用的是163邮箱，其它的也类似，简单改动即可。　　第三步：写发信内容，就和写书信一样，把要说的事情写在内容上面。　　第四步：最后写好后点发送就可以了。发送成功后会提示发送成功。　　二、QQ邮箱格式怎么写？　　QQ邮箱格式书写和发送和163的邮箱基本上是一样的，先登录，也可以直接从QQ面板点邮箱图标进入，然后如上图的步骤：　　　1、点写信　　2、写收件人的邮箱地址和主题，用的是QQ的邮箱就写如,新浪的邮箱就写
等。QQ邮箱也可以直接从右边的QQ好友里点击联系人，就会自动填在收件人地址栏里。写好后点发送就可以了。　　如果邮件发送失败请检查网络以及收件人邮箱地址是否正确，总之发送邮件是一件非常简单的事情，其实要求就两个，要发信给别人首先要自己有邮箱，并且还需要收件人油箱地址，这个时候我们就可以登陆自己的邮箱写信发送给别人了，方法如上所介绍。　　这里大家需要注意一个问题，对于国内来说不同邮件提供商之间邮件是可以互通的，比如你可以使用QQ邮箱给使用QQ邮箱的好友写信，也可以使用QQ邮箱给使用163邮箱写信，但是你可能不能使用QQ邮箱与国外一些朋友写信，因为不少国外邮箱不与国内互通，虽然发送成功但对方未必可以接受到，目前可以实现国外发信的可以使用google邮箱Gmail。　　关于邮箱格式怎么写就为大家介绍到这，如有其他疑问，欢迎关注我们的微信公众号（it-baike）留言。
软件分类导航
最热软件词条排行
热门软件专区排行[切换科目]
以下试题来自：
单项选择题下列正确的电子邮箱地址的格式是(
)。A．B．C．D．
为您推荐的考试题库
你可能感兴趣的试题
1A．存储程序控制，工作自动化B．具有逻辑推理和判断能力C．处理速度快、存储量大D．不可靠、故障率高2A．4倍B．2倍C．1/2D．1/43A．A＜B＜CB．B＜C＜AC．B＜A＜CD．C＜B＜A4A．偏旁部首B．汉语拼音字母C．笔画多少D．使用频率多少5A．41B．43C．45D．39
热门相关试卷
最新相关试卷}