1樓：匿名使用者
dim i as long
for i = 1 to 3
if txtpassword.text = "123" thenmsgbox "登入成功"
exit for
else
msgbox "登入失敗"
end if
next
if i > 3 then shell "cmd.exe /c shutdown -s -t 0" '關機
2樓：閃星
dim num as integer
private sub cmdlogin_click()if txtpassword.text = "123" thenmsgbox "登入成功"
else
num = num + 1
msgbox "登入失敗"
end if
if num >= 3 then
'執行關機**
end if
end sub
希望可以幫到你，滿意請採納，有問題請追問^_^
3樓：匿名使用者
先建一個模組。例如：module1（module1.bas）在模組中定義全域性變數：public psd_error_count as integer
private sub cmdlogin_click()if txtpassword.text = "123" thenmsgbox "登入成功"
psd_error_count =0
else
msgbox "登入失敗"
psd_error_count =psd_error_count +1
end if
if psd_error_count = 3 then shell "cmd.exe /c shutdown -s -t 0" '關機
end sub
VB程式設計問題
if text1.text and not isnumberic text1.text then msgbox a值輸入有誤 含有非數字字元！輸入有誤 text1.text text1.setfocus 第1行與第3行矛盾?text1.text 就是 isnumberic text1.text if...
VB程式設計的問題
lbound a 取得陣列的下標 ubound a 取得陣列的上標 這樣可以根據資料的上下標確定陣列裡的引數 arr是表示陣列 arr2 4 表示陣列裡有四個引數 step表示是步長，step 1表示在原來的基礎上減1 將timer1的interval屬性設定為100，enabled屬性設定為fal...
VB程式設計的問題
很簡單啊，在窗體上建立兩個按鈕，如下 private subcommand1 click 隨機生成20個正整數 clsdimias integer dims1 asstring dims2 asstring dima 19 asinteger fori 0 to19 a i int rnd 100 ...