1樓：聽不清啊
在窗體中做4個文字框和一個命令按鈕，**如下：
private sub command1_click()a = val(text1.text)
b = val(text2.text)
c = val(text3.text)
if a < b + c and b < a + c and c < a + b then
p = (a + b + c) / 2
s = sqr(p * (p - a) * (p - b) * (p - c))
text4.text = s
else
text4.text = "不能構成三角形！"
end if
end sub
設計個vb 計算三角形面積，格式如下、、、、、
2樓：匿名使用者
0.0我不曉得公式是神馬。。。給我公式我能夠寫出lua、vbs、vb、e、basic等等版本的——包括html
3樓：匿名使用者
先求出三角形的半周長(a+b+c）/2（a，b，c為三邊）設他的半周長為x
面積為：根號（x*（x-a)*(x-b)*(x-c))a=val(text1.text)
b=val(text2.text)
c=val(text3.text)
x=(a+b+c）/2
text4.text=str(sqr(x*（x-a)*(x-b)*(x-c)) )
尷尬，這種**還不會寫麼？
4樓：環業軟體
private sub command1_click()dim a as single, b as single, c as single, p as single, s as single
a = val(text1.text)
b = val(text2.text)
c = val(text3.text)
p = (a + b + c) / 2
if a >= p or b >= p or c >= p then
label1.caption = "不能構成三角形"
else
s = sqr(p * (p - a) * (p - b) * (p - c))
label1.caption = "面積為" & send if
end sub
vb程式設計求三角形面積
用vb程式設計求三角形的面積
5樓：
private sub command1.clack()a = val(text1.text)
b = val(text2.text)
c = a*b/2
text3.text = c
end sub
6樓：
已經回答了一個，見：
7樓：巴魯迪亞
文字框1 中輸入 底長
文字框2 中輸入 高長
點下 確定 按鈕，然後在文字框3 中輸出 面積？
是不是這樣的題目？
vb程式設計計算三角形面積，VB 程式設計計算三角形面積
在窗體中做4個文字框和一個命令按鈕，如下 private sub command1 click a val text1.text b val text2.text c val text3.text if a b c and b a c and c a b then p a b c 2 s sqr p...
vb三角形判斷程式，VB三角形判斷程式
簡單的給你講一下思路吧，構成三角形的條件是，a b c，就是任意兩邊的和大於第三邊，用and連線判斷條件語句，必須都成立的情況下才是三角形。判斷是否直角就是利用勾股定理，你可以找出較小的兩條邊進行勾股定理，比如a和b，a a b b是否等於c c，等於就是直角三角形，前提是較小邊的平方和。計算面積就...
三角形面積計算公式，三角形面積怎麼計算
1 三角形面積 1 2 底 高 三邊都可做底 2 三角形面積 1 2absinc 1 2acsinb 1 2bcsina 3 三角形面積 abc 4r 其中r是三角形外接圓半徑 三角形面積怎麼計算 三角形面積公式 1 面積 底 高 2。其中，a是三角形的底，h是底所對應的高 註釋 三邊均可為底，應理...