vb的程式設計問題,偶較笨不要罵我

時間 2021-06-25 14:58:09

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...