1樓:匿名使用者
'功能: 求三角形的面積
'a: listry
option explicit
'定義函式,接受引數a=邊長,b=邊長,c=邊長function triarea(a,b,c)dim p
dim area
if (a+b)>c and (b+c)>a and (c+a)>b then '判斷是否構成三角形
p = (a+b+c)/2
area= sqr(p*((p-a)*(p-b)*(p-c)))triarea=area
else
triarea=0
end if
end function
'顯示結果
msgbox("三角形的面積:"&triarea(1,4,5))
2樓:匿名使用者
function triarea(a,b,c)dim p
dim area
triarea=0
if (a+b)>c and (b+c)>a and (c+a)>b then '判斷是否構成三角形
p = (a+b+c)/2
area= sqr(p*((p-a)*(p-b)*(p-c)))triarea=area
end if
end function
vba程式設計求三角形面積
3樓:
sub 求三角形面積()
a = val(inputbox("請輸入第1個邊長"))b = val(inputbox("請輸入第2個邊長"))c = val(inputbox("請輸入第3個邊長"))p = (a + b + c) / 2
if a + b > c and a + c > b and b + c > a then
msgbox "符合三角形條件"
s = (p * (p - a) * (p - b) * (p - c)) ^ 0.5
msgbox "三角形面積" & s
else
msgbox "輸入的邊長,不符合三角形條件"
end if
end sub
vba設計窗體輸入三邊長計算三角形面積
vba程式設計**,設計一個函式,通過輸入三角形的三個邊長,計算三角形的面積,要求函式在標準模組中新增
4樓:太極健
直接寫一起,點計算就出結果,為什麼還要自定義函式呀?
直接在你計算的那個按鈕下**就行了
private sub commandbutton1_click()dim a, b, c, p, s
a = val(textbox1.value)b = val(textbox2.value)c = val(textbox3.value)p = (a + b + c) / 2
s = sqr(p * (p - a) * (p - b) * (p - c))
textbox4.value = s
end sub
結果保留兩位小數
private sub commandbutton1_click()dim a, b, c, p, s
a = val(textbox1.value)b = val(textbox2.value)c = val(textbox3.value)p = (a + b + c) / 2
s = sqr(p * (p - a) * (p - b) * (p - c))
textbox4.value = round(s, 2)end sub
5樓:姓王的
主要是沒有定義資料型別,計算是將字元轉換為asii碼的數字進行計算,結果就錯了。可在函式定義是將引數強制為小數型。將function area(a, b, c)改為function area(a#, b#, c#)即可。
這樣呼叫函式時就會將數值類字元自動轉換成數值進行計算,得出正確結果。
vba程式設計**,設計一個函式,通過輸入三角形的三個邊長,計算三角形的面積,要求函式在標準模組中新增
6樓:匿名使用者
function getarea(a as double, b as double, c as double) as double
dim perimeter as doubledim area as double
perimeter = (a + b + c) / 2area = sqr(perimeter * (perimeter - a) * (perimeter - b) * (perimeter - c))
getarea = area
end function
把這個函式放到標準模組中就行了,然後向呼叫excel的公式一樣呼叫這個函式就行了。
已經知道三角形三條邊a,b,c求三角形面積請用vba寫出程式
7樓:俎厹絢
sub 求三角形面積()
dim a as single
dim b as single
dim c as single
a = range("a1")
b = range("a2")
c = range("a3")
if a + b >= c and a + c >= b and b + c >= a then
range("a4") = (1 / 4) * sqr((a + b + c) * (a + b - c) * (a + c - b) * (b + c - a))
else
range("a4") = "不是三角形"
end if
end sub
如何計算三角形面積,三角形怎麼計算面積?
三角形的面積公式 1 s 1 2ah a是三角形的底,h是底所對應的高 2 s 1 2acsinb 1 2bcsina 1 2absinc 三個角為 a b c,對邊分別為a,b,c,參見三角函式 3 s p p a p b p c p 1 2 a b c 海倫 秦九韶公式 4 s abc 4r r...
簡單計算輸入三角形三邊計算三角形面積c語言
include stdio.h include math.h int main 3 4 5 s 6.00 用海 式。include include int main else return 0 輸入三角形三邊長,求面積 用c語言 如何編寫 使用海 式計算三角形的面積,當輸入3個0時結束計算。incl...
三角形面積題目,關於三角形面積的題目
s c 2 a b 2 c 2 a 2 b 2 2abs 1 2absinc c 2 a b 2 c 2 a 2 b 2 2ab 1 2absinc 即 c 2 a 2 b 2 2ab 1 2absinc 又c 2 a 2 b 2 2 a b cosc 餘弦定理 所以。4cosc sinc 4 又 ...