Ask = MsgBox("密码中是否包含符号?",4,"密码生成选项") If Ask = 7 Then Con_sy