Private Sub Command1_Click()
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox ("姓名和电话不能为空")
Else
If InStr(Text3.Text, "@") > 0 Then
If Text4.Text = "男" Or Text4.Text = "女" Then
If Len(Text2.Text) >= 7 And Len(Text2.Text) <= 11 Then
If Len(Text5.Text) = 6 Then
MsgBox ("已输入")
Else
MsgBox ("邮政编码错误")
End If
Else
MsgBox ("电话号码位数错误")
End If
Else
MsgBox ("性别只能男和女")
End If
Else
MsgBox ("邮件格式错误")
End If
End If
End Sub