1樓：匿名使用者
程式**：
該程式的主要目的是要判斷輸入的使用者名稱是否合法，所以我們首先編寫判斷使用者名稱的程式**。雙擊“確定”按鈕，新增如下的程式**：（黑體部分為系統自動生成的**，楷體為註釋）
private sub command1_click()
′判斷是否輸入了使用者名稱
if text1.text=″″ then ′如果text1為空，即沒有輸入使用者
msgbox ″請輸入使用者名稱！″,vbokonly＋vbcritical,″錯誤″
exit sub ′退出這個過程
else ′如果輸入了使用者名稱
if text1.text=″軟體世界″ and text2.text=″12345″ then ′如果輸入的使用者名稱是″軟體世界″且密碼為″12345″
msgbox ″你是合法使用者，歡迎進入！″,vbokonly＋vbinformation,″歡迎進入″
else ′如果不是″軟體世界″或密碼不是″12345″
msgbox ″使用者名稱或密碼錯誤！″,vbokonly＋vbcritical,″錯誤″
text1.text=″″
text2.text=″″ ′清空text1及text2控制元件中的文字內容，讓使用者重新輸入
end if
end if
end sub
在這一段**中，我們使用了if…then…else…end if。這是一個條件判斷語句，if text1.text=″″ then這句**則是判斷text1是否為空，如果為空，這個條件就成立，則執行then後的語句，如果text1不為空，則這個條件不成立，程式將會跳到else處，執行else後的語句。
程式測試：
現在我們可以單擊“f5”鍵來執行這個程式，看看其執行效果。直接單擊“確定”按鈕，將會彈出一個對話方塊（如圖7）；在“使用者名稱”後輸入“軟體世界”，“密碼：”後輸入“12345”，再單擊“確定”按鈕，此時便會出現一個“歡迎進行”的資訊框（如圖8）。
怎麼樣，一個屬於自己的“登入視窗”就製作好了。
但這個程式目前還只能判斷在程式中已設定好了的使用者名稱及密碼，沒有靈活性，你可以發揮你的聰明才智，使其能夠判斷多個合法的使用者及密碼。
2樓：
vb不能編寫手機程式的. 系統都不同 不通用
用VB編寫「求100以內3的倍數」的程式
for i 3 to 100 if i mod 3 0 then print i 除以3餘數為0的話，就是3的倍數。next 望。private sub command1 click for i 1 to 100 if i mod 3 0 then i nextexit sub end sub效果 ...
求用VB做記事本的簡單程式，求用VB做一個記事本的簡單程式
private sub cmd open click dim filen freef t cmd dlg.filter 文字 抄檔案 txt txt cmd dlg.cancelerror trueon error goto endsub cmd dlg.showopen freef freefil...
索尼愛立信手機款直板手機有那些 女生用的最好能當MP4的 謝謝
1全部最新直板手機，w902 水貨2500行貨3500 作為目前索尼愛立信walkman系列的旗艦級手機，索尼愛立信w902無論在 還是影像功能等方面的表現都可以用出類拔萃來形容。該機不僅引進了來自索尼愛立信 w980之上的 clear stereo 與 clear bass 音質提升技術和支援8g...