1樓：vnv_齊齊
輸入到記事本，儲存為form1.frm即可
每行**均寫了註釋，應該知道意思了
version 5.00
begin vb.form form1
caption = "form1"
clientheight = 3840
clientleft = 60
clienttop = 450
clientwidth = 5625
linktopic = "form1"
scaleheight = 3840
scalewidth = 5625
startupposition = 3 '視窗預設
begin vb.textbox text1
height = 495
left = 720
tabindex = 0
top = 840
width = 3975
endend
attribute vb_name = "form1"
attribute vb_globalnamespace = false
attribute vb_creatable = false
attribute vb_predeclaredid = true
attribute vb_exposed = false
private sub text1_keypress(keyascii as integer)
static sum% '定義一個靜態變數sum用作計數器
if keyascii = 13 then '如果鍵入了一個回車則算一次輸入(其他的可以自己改)
sum = sum + 1 '計數器加1
keyascii = 0 '忽略回車符的輸入
if sum = 3 then msgbox "輸入三次了！": text1.enabled = false '當輸入次數達到3次是提示，並遮蔽text1
end if
end sub
2樓：excel實用文件
樓上回答的不錯，我就不說了
急求一個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 select語句問題
6樓：匿名使用者
check_password(strname, strpassword)函式會根據輸入的使用者名稱和密碼返回一個整型值：
0 表示使用者不是系統使用者
1 表示口令錯誤
2 表示口令正確
不是以上值則認為沒有完成驗證，即check_password(strname, strpassword)函式被中斷或發生錯誤
然後用select case 語句選擇
check_password(strname, strpassword)返回0則執行 case 0下的提示
check_password(strname, strpassword)返回1則執行 case 1下的提示
check_password(strname, strpassword)返回2則執行 case 2下的提示
check_password(strname, strpassword)返回非上述值
則執行 case else下的提示
至於txtusername.selstart = 0
txtusername.sellength = len(txtusername)
的作用就是選中txtusername內的所有字元
在中繪製完文字框想在文字框外輸入文字,如何把游標移到文字框下方
把游標移到文字框外，如果游標在上面你就多按幾個回車，然後把文字框向上移動就可以了。把文字框拉開，輸入文字，再留空，把文字框放回原地，其實我一直覺得文字框不太好用 word中在繪製的文字框中輸入文字從左到右怎麼設定 word中繪製的文字框中輸入文字預設就是從左到右的，不用設定，如果要橫排變成豎排，要設...
VB在文字框中輸入字母，單擊button1，轉換為大寫字母，單擊button2，轉換為小寫字母
這樣可以不？private sub command1 click dim x as string dim y as string dim s as string x text1.text if option1.value true thenfor i 1 to len x y mid x,i,1 i...
vb程式題急謝謝編寫程式從文字框輸入與
設text1和text2分別為x和y的輸入框，text3輸出結果，另有 mand1是計算按鈕。在窗體代版碼 通權用 段編寫函式過程 private function f byval x as double,byval y as double as double select case x case ...