vb制作 密码验证

既修改又验证

Private Sub Command1_Click()
'确认修改密码提交
If Text1(0).Text = "" Then
MsgBox "你没有输入名称，请重新输入！", 16, "错误！"
Exit Sub
ElseIf Text1(1).Text = "" Then
MsgBox "你没有输入原密码，请重新输入！", 16, "错误！"
Exit Sub
ElseIf Text1(2).Text = "" Then
MsgBox "你没有输入新密码，请重新输入！", 16, "错误！"
Exit Sub
ElseIf Text1(3).Text = "" Then
MsgBox "你没有再次输入新密码，请重新输入！", 16, "错误！"
Exit Sub
End If
If Text1(2).Text <> Text1(3).Text Then
MsgBox "你输入的新密码和再次输入的新密码不符，请重新输入！", 16, "错误！"
Exit Sub
End If
If Text1(0).Text <> YHMC Then
MsgBox "你输入的名称不是你的名称，请重新输入！", 16, "错误！"
Exit Sub
End If
If Text1(1).Text <> YHMM Then
MsgBox "你输入的原密码不是你的密码，请重新输入！", 16, "错误！"
Exit Sub
End If