1樓：
if (a+b>c) and (a+c>b) and (c+b>a) then
'能夠構成三角形
else
'不能構成三角形
end if
繪圖，純數學計算，太較煩，自己算吧 (先畫乙個水平線段a，再以a的兩個端點做圓，計算出兩個圓的交點，取其中乙個交點與線段a的兩個端點畫線，就成了三角形)
2樓：
因為南韓和朝鮮的延坪島事件影響，第6集這個星期停播，順延到下個星期一播。
我最喜歡的我結這個禮拜也停播了= =
很多娛樂節目都停播了~
3樓：新新菜鳥手
做個記號，回頭回答。。
4樓：
dim a, b, c, cosa, sina
a = val(text1)
b = val(text2)
c = val(text3)
if (a + b > c) and (a + c > b) and (c + b > a) then
'能夠構成三角形
cosa = (b ^ 2 + c ^ 2 - a ^ 2) / (2 * b * c)
sina = sqr(1 - cosa ^ 2)
picture1.line (2000, 2000)-(2000 + c, 2000)
picture1.line -(2000 + b * cosa, 2000 - b * sina)
picture1.line -(2000, 2000)
else
msgbox "不能構成三角形", vbokonly, "注意"
end if
VB6 0中如何使得字串中的某字元選中高亮並使這個字元字型變大
使用richtextbox控制項 private sub command1 click richtextbox1.selstart 3 要高亮的起始字元數 richtextbox1.sellength 5 要高亮的字元數 richtextbox1.selcolor vbred 顏色richtextb...
VB60程式中設計窗體，在窗體上新增標籤和文字
按要求在窗體上新增乙個標籤和乙個文字框以及乙個命令按鈕，雙擊命令按鈕，刪除所有 複製如下 到程式中private sub mand1 click if val text1 mod 2 0 thenlabel1 偶數 else label1 奇數 end if end sub private sub ...
VB6 0中，如何做到在單擊某個按鈕時執行批處理
只需一句 假設你要執行。shell cmd c start 就可以了。你可以將替換為任意可執行檔案路徑。vb中如何實現單擊乙個按鈕後程式重新執行?你好，你所說的 單擊乙個按鈕後程式重新執行 使用下列 就可以實現 窗體中有三個控制項，command1，command1，list1 private su...