VBA計算三角形面積,vba程式設計求三角形面積

2021-05-14 10:18:19 字數 2887 閱讀 9650

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