1樓：匿名使用者
textbox,command各一個。
——————以下為**——————
const pwd="123456" '改成密碼private sub command1_click()if text1.text=pwd thenmsgbox"密碼正確"
else
msgbox"密碼錯誤"
end if
——————以上為**——————
2樓：匿名使用者
很簡單的問題
但是起碼10分把。。。
vb在如何編寫程式隱藏輸入的密碼
3樓：匿名使用者
把文字框的passwordchar屬性設定為"*"
可以在屬性視窗直接設定，也可以在程式中使用**設定。
private sub form_load()text1.passwordchar = "*"
end sub
4樓：開機即可我
將你的text控制元件的passwordchar設定為 *
5樓：沙慧月
private sub form_load()text1.passwordchar = "*"
end sub即可
用vb編寫「密碼校驗」程式的設計
6樓：佼曉肇含
你在自己寫的方法裡
加個static
關鍵字。這樣就可以直接通過
類名來呼叫了。也就是像呼叫系統函式那樣，不用new直接通過類名就可以呼叫了。
7樓：昆櫻亮
完整**如下,初始化都已經做好啦,新增控制元件試試吧:
dim ncount as integerprivate sub form_load()'初始化控制元件資訊
caption = "密碼校驗"
label1.caption = "請輸入密碼:"
text1.text = ""
label2.fontname = "宋體"
label2.fontsize = 15.75label2.autosize = truelabel2.visible = falseend sub
private sub text1_keypress(keyascii as integer)
if len(text1.text) > 6 and keyascii <> 8 and keyascii <> 13 then
keyascii = 0
end if
if keyascii = 13 and text1.text = "1234567" then
label2.caption = "歡迎光臨!"
label2.visible = trueelseif keyascii = 13 thenif ncount <> 1 then
label2.visible = truelabel2.caption = "密碼不符，請再輸入一遍!"
text1.text = ""
ncount = ncount + 1
else
label2.visible = truelabel2.caption = "非法使用者，請推出程式!"
text1.text = ""
text1.enabled = falseend if
end if
end sub
急求一個vb密碼輸入的驗證程式編寫**！
8樓：
我寫過類似的程式
其實驗證密碼只要用一個「if 輸入的密碼=正確的密碼 then 」就解決了。
關鍵是怎麼儲存密碼和如何儲存登入人名（如果是網路應用程式還要記錄ip地址），因為如果密碼錯三次就不能再登入了，那麼重啟程式後是不是會重新計數呢？要是重啟也不能再重新登入，那就要儲存輸入密碼錯誤的使用者名稱和登入次數。
另一個問題是如何儲存密碼和使用者名稱的問題，如果直接放在某個資料庫或檔案中，用很多方法都可以調出檔案讀出使用者名稱和密碼。所以儲存的檔案必須是經過加密的，不管用什麼方法，開啟那個檔案是讀不出密碼和使用者名稱的。因為密碼和使用者名稱根本就不在檔案裡，而是以某種方法計算出來的。
這樣的加密方法，就連程式的編寫者如果忘了密碼都無法進入。只能在原程式**中通過逐語句高度來查詢出來。沒有原**的人無法破解。
我的方法（大致意思）是：
以國標漢字編碼為基礎進行一種變換得到另一套編碼，如果是中文名，就用這套編碼對輸入的漢字進行轉換，然後與一個隨機數作為進行某種運算，得到一個編碼。儲存的使用者名稱檔案中存放的是那個隨機數。解碼是就以該隨機數進行逆變換就可以了。
對於英文字元也一樣，將ascii碼進行某種換算後，再與隨機數進行變換編碼，任何人想從電腦中儲存的使用者登入密碼檔案中找到密碼都是不可能的。因為根本無規律可循。
至於登入的次數就將次數附加到隨機數的後面當隨機數的一部份就行了，不過是多一位小數而已。比如隨機數取小數點後的7位，第八位就是密碼輸錯的次數。
9樓：匿名使用者
剛剛寫過了類似的** ，算了 再寫下
private sub command1_click()static i as integer '說明下，假設 使用者名稱、密碼 分別是 yutian8802和 123456
if i > 2 then
msgbox "您已登入三次了。。。程式將結束！"
endelse
if text1.text = "yutian8802" thenif text2.text = "123456" thenmsgbox "登陸成功"
else
msgbox "密碼錯，請重新輸入！"
end if
else
msgbox "使用者名稱錯，請重新輸入！"
end if
i = i + 1
end if
end sub
測試了 沒問題了 你試試！有什麼問題 一起**~
10樓：
dim j as integer
private sub commandbutton1_click()dim i as integer
dim s1 as string
dim s2 as string
if text1.text <> "" thens1 = text1.text
end if
if text2.text <> "" thens2 = text2.text
end if
j = j + 1
if j > 2 then
msgbox "輸入次數大於3 退出"
end if
end if
if s1 = "123" and s2 = "000" thenmsgbox "登入成功"
end if
if s1 <> "123" or s2 <> "000" thenmsgbox "帳號或密碼不正確"
end if
end sub
怎樣用vb編寫輸入密碼後退出程式
11樓：匿名使用者
簡單點的：
設定textbox的passwordchar屬性為**,在private sub command1_click()if text1.text="123456" thenmsgbox "密碼正確"
unload me
else
msgbox 「密碼錯誤，請重新檢查輸入！"
end if
end sub
12樓：天翔【楓葉
用文字框控制元件
假設密碼為123，則在change事件中寫if text1="123"then
endend if
用vb怎麼做，怎麼用vb做一個簡單的程式
option explicit private sub command1 click 顯示當前日期 text1.text format now,yyyy mm dd end sub private sub command2 click 顯示當前時間 text2.text format now,hh ...
vb的sub子程式怎麼用，關於vb的sub子過程的定義問題！
建立sub過程 1 定義sub過程 語句結構如下 static private public sub 過程名 引數列表 語句塊 exit sub 語句塊 endsub 引數列表指明瞭呼叫時傳送給過程的引數的型別和個數，每個引數的格式為 byval 變數名 as 資料型別 如果加上byval則表明該引...
怎麼用英文post造句？要簡單點的
用英文post造句 you ll receive your book through the post 書會郵遞給你。post post英 p st post美 post n.崗位 郵件 標杆 vt.張貼 公佈 郵遞 佈置 vi.快速行進 n.post 人名 英 西 捷 瑞典 荷 波斯特更多釋義 網...