VB编程的题目

时间：2017.02.01 发布人：U2826688366

已解决问题

谷歌U2826688366用户在2017.02.01提交了关于“geekVB编程的题目”的提问，欢迎大家涌跃发表自己的观点。目前共有2个回答，最后更新于2025-02-27T06:43:51。

在vb中点击确认按钮对输入的密码进行验，并用消息框对符合规则以及不符合规则的情况进行提示，验规则如下；密码不能为空，密码长度为6-12位，密码只能包含数字和字母，且必须包含数字和字母。我需要完整代码

希望大家能够帮助她。

详细问题描述及疑问：

期待您的答案，不知道说什么,送你一朵小红花吧！

希望以下的回答，能够帮助你。

第1个回答

用户名：专业大傻鱼时间：2017.02将至法写英齐文

'假设：
'你的密码输入框特移条责缺为(TextBox)：Text1
'你的确定按钮为(CommandBu来自tton):Command1
'那么，如下代码可以验并提示你想要的结果
Priv粮轻态上套硫势福ateSubCommand1_Click()

DimTAsString,IAsLong,LAsLong,NCAsLong,LCAsLong,ECA问答sLong,MAsString
T=Text1.甲握境呼讲稳Text
L=Len(T)
IfL>5AndL<13Then
ForI=1ToL
SelectCaseU再念果巴害研胡误吗滑Case$(Mid$(T种来县,I,1))
Case"A"To"Z"
LC=LC+1
C扬策战态尼块ase"0"To"9"
N投略走C=NC+1
CaseElse
EC=EC+1:Ex社明织掌总封itFor
EndSelect
Next
IfEC>0Then
M="不能输入半角数字和字符以外的内容"
Else
I指呼育七伤fLC=0AndNC=0Then
M="至少要包含字母和数字各一个才行"
ElseIfLC=0Then
M="至少要包染帝外龙春没含一个字母"
ElseIfNC=0Then
M="至少要包含一个数字"
EndIf
EndIf
Else
M="您输入的密码长度必须在6到12个字符"
EndIf
IfLen(M)Then
MsgBox"您输入的密码不符合规则："&vb业选超附洲响形背车CrLf&vbTab&M,vbCritical,"密码规则验"
Else
MsgBox"您输入了符合规则的密码。",vbInformation,"密码规则验"
EndIf

EndS善弱缩较往觉茶急ub

第2个回答

用户名：hupiyingwuzaq 时间：2017.02.03

dimpasswordasstring'pa段翻议该西妒程吃日ssword就是所谓的密码字符串

password=@@#$#@'这一行密码内容你自己填

ifasc(password)>0andlen(password)>6a构山ndlen(password)<12利andpassword<>""then

'验通过

else:

'验未通过

endif

想多学点别的可以看看我的网易博客：za105105105.blog.163.com