vb语言编译账号和密码检验程序
A. 急求vb代码：编写一个密码和账号输入的检验程序，对输入的账号和密码规定如下：
新建工程，添加text1 text2 command1控件，复制我的代码。xp+vb6.0调试成功。
代码如下：
Private Sub Command1_Click()
If Len(Text1.Text) > 6 Then
MsgBox "账号不超过6位数字"
Text1.SetFocus
Exit Sub
End If
If Len(Text2.Text) > 4 Then
MsgBox "密码不超过4位数字"
Text2.SetFocus
Exit Sub
End If
If Text1.Text = "123456" And Text2.Text = "gong" Then
MsgBox "登陆成功！"
'此处放你的代码
Else
MsgBox "用户名或密码错误!"
End If
End Sub
Private Sub Form_Load()
Text2.PasswordChar = "*"
End Sub
B. VB程序编写账号和密码的验证程序
PrivateSubCommand1_Click()
IfIsNumeric(Text1.Text)AndLen(Text1.Text)=6AndText2.Text="good"Then
MsgBox"输入正确，验证通过",vbOKCancel,"验证通过"
Else
IfMsgBox("账号或密码错误",vbRetryCancel,"验证错误")=vbRetryThen
Text1.Text=""
Text2.Text=""
Text1.SetFocus
Else
End
EndIf
EndIf
EndSub
PrivateSubForm_Load()
Text1.PasswordChar="*"
EndSub
C. VB 编写账号和密码输入的检验程序 那个题，哪位同学帮助一下
弹出的对话框中，有两个按钮，一个是Retry， 一个是Cancel。
4对应Retry。
If i <> 4 Then
End
的意思是，如果没有点击Retry按钮，就直接结束。
D. 用VB语言编制一个帐号与密码的检验程序
if text1.text = "xx" then
else
msgbox "密码错误"，，"提示"
end if
E. 用VB语言编制一个帐号与密码的检验程序
Option Explicit
Const MaxLogTimes As Integer = 3
Private Sub cmdCancel_Click()
Dim intResult As Integer
'请求用户确认是否真的退出系统登录
intResult = MsgBox("你选择了退出系统登录，退出将不能启动管理系统！" & vbCrLf & "是否真的退出？", vbYesNo, "登录验证")
If intResult = vbYes Then End '根据用户选择结束应用程序
End Sub
Private Sub cmdOK_Click()
Static intLogTimes As Integer '用于保存用户请求验证的次数
Dim intChecked As Integer, strName As String, strPassword As String
intLogTimes = intLogTimes + 1 '计算登录次数
If intLogTimes > MaxLogTimes Then
'超过允许的登录次数，显示提示信息
MsgBox "你已经超过允许验证次数！" & vbCr & "应用程序将结束！", vbCritical, "登录验证"
End '结束应用程序
Else '进一步验证登录信息的合法性
strName = Trim(txtUserName.Text) '获得输入的用户名
strPassword = Trim(txtPassWord.Text) '获得输入的口令
'检验用户名和口令的合法性，并根据检验返回值执行相应的操作
if(strName ="123456")
if(strPassword="VB6") '口令正确
Unload Me '卸载登录窗体
MsgBox "登录成功，将启动系统程序！", vbInformation, "登录验证"
'通常在此放置显示系统主窗体的语句，例如
'frmMain.Show
else
MsgBox "口令错误，请重新输入！", vbCritical, "登录验证"
txtPassWord.Text = ""
txtPassWord.SetFocus
end if
else '用户不是系统用户
MsgBox "<" & strName & ">不是系统用户，请检查用户名输入是否正确！", vbCritical, "登录验证"
txtUserName.Text = ""
txtPassWord.Text = ""
txtUserName.SetFocus
End If
End If
End Sub
'这是你要的重试 我觉得很没有必要
Private Sub cmdReset_Click()
txtPassWord.Text = ""
txtPassWord.SetFocus
End Sub
说明：
1.账号密码一般是通过数据库调用的，这个程序只是用于娱乐或者测试
2.密码框输出显示请在VB的密码框属性设置里更该，设password为*即可
3.好好读读代码，你就明白代码怎么用了
F. vb程序设计编写程序验证输入密码是否正确
先设计好界面，（如：用标签控件，2个文本框，）在1个要输密码文本框的属性名称中输入password,在要输入名称的文本框的属性名称中输入username.在设置字体 想要输入错误密码三次退出程序方法如下； 在密码的代码框中输入：unload.me chick=3. End sub
G. VB程序 编写选课系统登录时学号和密码检验程序
这个太简单了，你网络上搜搜，到处是。下一个回去稍微改下呗！
H. 嗯嗯，需要！谢谢！编写一个账号和密码的检验VB程序
望采纳。。。
I. 在VB中怎么制作一个银行密码校对的小程序
选择工具箱里计时器控件并双击，在frame1上显现出来该控件，该控件的作用很大，起到计时作用，同时需要注意的是在程序运行时控件是不显示出来的。
首先启动vb6.0，执行文件-新建命令，弹出新建工程对话框，在该对话框中选择标准的exe后点击打开按钮，进入vb程序主界面。
在主界面中，按住鼠标左键按住窗体周围的任意一个小正方形进行拖拽，调节窗体的大小，直至自己满意为止。
J. 用VB编一帐号和密码检验程序。 10 帐号不超过6位数字，若输入有错误，
'进入VB直接弹出inputbox输入密码()'如果输入正确就用MSGBOX说("输入正确")'如果错误就用MSGBOX说("输入错误")'然后自动弹出inputbox重新输入()'直到输入正确()'最多输入三次()'如果三次还没对()'就msgbox“非法用户”然后退出PrivateSubForm_Load()DimnAsString,aAsString,kAsIntegera=520'假如密码为520Whileka'同时满足k<3和n不等于a时才执行以下的循环n=InputBox("请输入密码！")Ifn=aThenMsgBox("输入正确！")ElseMsgBox("输入错误！")k=k+1'这里的变量k用来记录输入错误的次数EndIfEndWhileIfk=3Then'如果三次还没对就msgbox“非法用户”然后退出MsgBox("非法用户")Unload(Me)'这里是卸载本窗体的意思EndIfEndSub