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