支付劳务费怎么做分录:在VB中,怎么检测电子邮件符号“@”的存在

来源:百度文库 编辑:神马品牌网 时间:2024/05/09 10:02:03

x=len(email)
for i=1 to x
if email[i]="@" then
msgbox "邮件地址中包含有@符号"
end
end if
next
msgbox "邮件地址中不含有@符号"

if instr(email,"@") then
msgbox "邮件地址中包含有@符号"
else
msgbox "邮件地址中不含有@符号"
end if

设邮件地址为一个字符串,在字符串中查找@呀