1樓：匿名使用者
private sub command1_click()dim a as integer
dim b as integer
dim c as integer
a = val(text1.text)
b = val(text2.text)
c = val(text3.text)
do while a + b > c and a + c > b and b + c > a
label4.caption = "是三角形"
loop
label4.caption = "不是三角形"
z這樣試試！如果行的話，輸入數字的時候只能輸入整型數字，輸入其他的會出現資料型別錯誤！（這個地方可以進行強制型別轉換或異常處理！）
2樓：匿名使用者
如果條件滿足沒有退出，是死迴圈
private sub command1_click()dim a as integer
dim b as integer
dim c as integer
a = val(text1.text)
b = val(text2.text)
c = val(text3.text)
a = inputbox("")
b = inputbox("")
c = inputbox("")
if a + b > c and a + c > b and b + c > a
label4.caption = "是三角形"
else
label4.caption = "不是三角形"
endif
end sub
程式設計求階乘的問題，vb程式設計求n的階乘
用！表示階乘，不重置的話，計算出來的是1 1 2 1 2 3 1 2 3 4 1 2 3 4 5 所以是34863。因為不重置，每次都在前一項的基礎上乘了一個i！但是我們只需要在前一項的基礎上乘以i就行了，所以多乘了。重置的話，雖然是正確的，但是多此一舉嘛，搞什麼二重迴圈？覺得cpu太快了麼？已經算...
關於VB程式設計的問題 高手請進，急求一個VB的問題！高手請進。
加一個文字框text1，一個按鈕command1private sub command1 click if trim text1.text thenmsgbox 請輸入數字 text1.setfocus else msgbox val trim text1.text 100 米 left cstr ...
vb程式設計的問題，求解答謝謝了。定義10 10的二
private sub command1 click dim a 1 to 10,1 to 10 as integer,ssj as long,xsj as long clsrandomize for i 1 to 10 for j 1 to 10 a i,j int rnd 90 10 print...