1樓：佼曉肇含
你在自己寫的方法裡
加個static
關鍵字。這樣就可以直接通過
類名來呼叫了。也就是像呼叫系統函式那樣，不用new直接通過類名就可以呼叫了。
2樓：昆櫻亮
完整**如下,初始化都已經做好啦,新增控制元件試試吧:
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設計一個檢測密碼程式
急求一個vb密碼輸入的驗證程式編寫**！
3樓：
我寫過類似的程式
其實驗證密碼只要用一個「if 輸入的密碼=正確的密碼 then 」就解決了。
關鍵是怎麼儲存密碼和如何儲存登入人名（如果是網路應用程式還要記錄ip地址），因為如果密碼錯三次就不能再登入了，那麼重啟程式後是不是會重新計數呢？要是重啟也不能再重新登入，那就要儲存輸入密碼錯誤的使用者名稱和登入次數。
另一個問題是如何儲存密碼和使用者名稱的問題，如果直接放在某個資料庫或檔案中，用很多方法都可以調出檔案讀出使用者名稱和密碼。所以儲存的檔案必須是經過加密的，不管用什麼方法，開啟那個檔案是讀不出密碼和使用者名稱的。因為密碼和使用者名稱根本就不在檔案裡，而是以某種方法計算出來的。
這樣的加密方法，就連程式的編寫者如果忘了密碼都無法進入。只能在原程式**中通過逐語句高度來查詢出來。沒有原**的人無法破解。
我的方法（大致意思）是：
以國標漢字編碼為基礎進行一種變換得到另一套編碼，如果是中文名，就用這套編碼對輸入的漢字進行轉換，然後與一個隨機數作為進行某種運算，得到一個編碼。儲存的使用者名稱檔案中存放的是那個隨機數。解碼是就以該隨機數進行逆變換就可以了。
對於英文字元也一樣，將ascii碼進行某種換算後，再與隨機數進行變換編碼，任何人想從電腦中儲存的使用者登入密碼檔案中找到密碼都是不可能的。因為根本無規律可循。
至於登入的次數就將次數附加到隨機數的後面當隨機數的一部份就行了，不過是多一位小數而已。比如隨機數取小數點後的7位，第八位就是密碼輸錯的次數。
4樓：匿名使用者
剛剛寫過了類似的** ，算了 再寫下
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
測試了 沒問題了 你試試！有什麼問題 一起**~
5樓：
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編寫自動關機程式，用VB編寫一個自動關機程式
option explicit private declare function getlastinputinfo lib user32 plii as lastinputinfo as boolean private declare function gettickcount lib kernel...
vb編寫關於階乘的程式，vb編寫一個關於階乘的程式，
來不及寫，教你怎麼做吧 先把文字框的讀取轉存成整數 對這個整數用if判斷 不滿足條件用msgbox提示 滿足條件的話，呼叫函式，引數就是那個整數，返回值就是結果。剛給你寫的 希望對你有幫助 給個滿意回答吧private sub command1 click dim dat1 as variant d...
用vb編寫簡單的直板手機程式，急求答案，謝謝
程式 該程式的主要目的是要判斷輸入的使用者名稱是否合法，所以我們首先編寫判斷使用者名稱的程式 雙擊 確定 按鈕，新增如下的程式 黑體部分為系統自動生成的 楷體為註釋 private sub command1 click 判斷是否輸入了使用者名稱 if text1.text then 如果text1為...