vogue用的是什么字体:在VB中,怎么检测电子邮件符号“@”的存在

来源:百度文库 编辑:高考问答 时间:2024/05/07 03:19:27

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

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