在VB中@怎么样表示

来源：百度知道 编辑：UC知道 时间：2024/06/22 07:23:08
我要设计一个邮箱登录窗口，如果没有@时就提示错误，怎样表示啊

Private Sub Command1_Click()
a = 0
For i = 1 To Len(Text1.Text)
If Mid(Text1.Text, i, 1) = "@" Then
a = a + 1
End If
Next i
If a = 0 Then
MsgBox "邮件地址非法"
End If
End Sub

切换输入法如换成中文状态 然后输入@

什么意思啊 ,直接输入@不对吗?

按住shift键，然后按住数字2键