1樓：匿名使用者
這樣就行了 把use宣告在通用裡 這樣在點選command1時 use的值就會在原來的數值+1 而use的值不會一值為0
dim use as integer
private sub command1_click()
dim loginname, password as string
loginname = t.text
password = tx.text
use = use + 1
if loginname = "harl" and password = "1" then
message.caption = "welcom"
elseif use < 4 then
message.visible = true
message.caption = "incorrect username or passward.please try again"
else
message.caption = "unauthorized access.aborting……"
endend if
end sub
2樓：房恩巨集
use是用來儲存嘗試次數的吧，應該將這個變數變為static即可。
vb 6 0的菜鳥問題，vb 6 0的一個菜鳥問題
第一個窗體 dim a as integer,b as string,c as single private sub command1 click a 13 b aaaaaaaaaaaaaaa c 1.23546 me.hide me.tag cstr a cstr b cstr c load fo...
vb6 0請幫忙做題目，謝謝，vb6 0請幫忙做第一個題目，謝謝
這個是我的做的，請檢視一下行不行。有不懂的地方再問我。一 function cala x as integer,byval y as integer x是按址傳遞，y是按值傳遞 x x y if x 0 then cala x else cala y end if end function priv...
VB6 0 檔案操作，vb6 0對txt檔案操作
哪種資料型別都能放的，只是相對操作效能有區別，二進位制可以讀寫任何檔案，比如一個壓縮包就可以用二進位制檔案讀入加密後再儲存。其操作速度較快 隨機檔案可以讀取任意位置的單個資料，非常靈活，速度最快。文字檔案操作較直觀，直接用記事本就可開啟編輯 vb6.0對txt檔案操作 vb6.0關於.csv檔案的操...