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的公式一樣呼叫這個函式就行了。
三角形面積如何計算
三角形的面積公式 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...
三角形面積計算公式，等邊三角形面積的計算公式
那任意兩邊，以其中一邊為底 另一邊 乘以 這兩邊的夾角的正弦值 就等於對應的高根據面積公式 底x高除2 可得 三角形面積 三角形任意兩邊之積 這兩邊的夾角的正弦值 2 答 三角形面積計算公式是s 1 2 ah 1 2 a b sin ab邊夾角 等邊三角形面積的計算公式 等邊三角形面積的計算公式 s...
三角形平方怎麼計算,三角形面積怎麼算平方
三角形面積 底 高 2 s三 ah 2 面積單位用平方表示 三角形面積怎麼算平方 最簡單的演算法 s 1 2 底 高 還有其他幾種演算法 1 已知三角形三邊a,b,c,則 海 式 p a b c 2 s p p a p b p c 1 4 a b c a b c a c b b c a 2 已知三角...