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程式設計問題
private sub command1 click dim i,j as integer,s as double,n as double for i 1 to 100 n 1 for j 1 to i n n j next j s s n next i print 1 2 100 send sub...
vb 程式設計問題
看一下rnd函式的用法。rnd 函式。返回乙個包含隨機數值的 single。語法rnd number 可選的 number 引數是 single 或任何有效的數值表示式。返回值如果 number 的值是 rnd 生成小於 0 每次都使用 number 作為隨機數種子得到的相同結果。大於 0 序列中的...
VB程式設計的問題,高手幫我
老牛帶你看奇聞 窗體上有三個命令按鈕,command1,command2,command3和乙個text1 如下 dim ys as single private sub command1 click text1.fontsize text1.fontsize int rnd 3 1 command...