1樓：哼哼哼乖乖
vb6.0的引數：
private sub command1_click() '確定鍵static a as integer
text2.passwordchar = "*"
if text1.text <> "123" or text2.text <> "abc" then '使用者名為123，密碼為abc
a = a + 1
a = msgbox("密碼或帳號輸入錯誤", vbokonly, "警告") '顯示錯誤警告
if a > 2 then end
else
form2.show '開啟記事本
end if
end sub
private sub command2_click() '取消鍵endend sub
private sub form_load()text2.passwordchar = "*"
end sub
2樓：
text2.passwordchar = "*"
if text2.text <> "pass" thenmsgbox "密碼不正確"
else
unload me '關閉密碼視窗
form2.show '顯示記事本視窗end if
private sub text1_change()s=right(text1.text,1)i=instr(1,"0123456789",s)if i<1 then msgbox "輸入的不是數字"
end sub
語文幫幫忙急急急急急急急急，拜託各位，幫幫忙吧！我要瘋了！（語文高手請進）急急急急急急急急急急！！！！！！！！！！！！！！
yx陳子昂 1 給 藍天 一道 銀邊 帶 水紋 的花衣，那麼 狹窄 城外那麼 寬敞 終年 貯蓄 全是那麼 清亮 那麼 藍汪汪 的，整個的是塊 空靈 的藍水晶。包著 紅屋頂 黃草山 2 濟南的冬天，老舍 3 一方面下點雪濟南更加富有意趣與美麗，另一方面濟南本身承受不住太雪，小雪才能凸顯濟南冬天的味道。...
急幫幫忙吧各位急急急，急啊 幫幫忙吧各位,急急急
接受匯出行的委託將款項解付給收款人的銀行 c 信用證和貨物合同的關係是 b 信用證的基礎是國際貨物銷售合同，而且又是開證行對出口人的有條件的付款承諾，所以，當信用證條款與銷售合同規定不一致時，受益人可以要求 b 在以下支付方式中，最有利於進口方的是 a 其他我不知道。 嚴迪澄巨集逸 建議你去檢查一下...
vb程式設計高手請進！！急急急，vb程式設計高手請進！！急急急
第一題 編寫過程計算1 1 2 1 3 1 100private function sum dim i as integer for i 1 to 100 sum sum 1 i next end function 2 編寫過程列印如下圖形 private sub printstr dim i as...