VB中函式的用法,計算三角形面積

2021-07-28 19:54:39 字數 720 閱讀 6588

private sub command1_click()

dim x%, y%, z%, s as single, b as boolean, h as single

'$ string 字元型別

'% integer 整型

'& long 長整型

'# double 雙精度浮點型

'! single 單精度浮點型

x = inputbox("請輸入三角形的邊長")

y = inputbox("請輸入三角形的邊長")

z = inputbox("請輸入三角形的邊長")

b = pd(x, y, z)

h = (x + y + z) / 2

if b then

s = sqr(h * (h - x) * (h - y) * (h - z))

print "三角形面積是"; s

else

print "不能構成三角形"

end if

end sub

public function pd(x, y, z) as boolean

if x > 0 and y > 0 and z > 0 and x + y > z and x + z > y and y + z > x then

pd = true

else

pd = false

end if

end function

計算三角形面積

計算三角形面積 總時間限制 1000ms 記憶體限制 65536kb 描述平面上有乙個三角形,它的三個頂點座標分別為 x1,y1 x2,y2 x3,y3 那麼請問這個三角形的面積是多少。輸入輸入僅一行,包括6個單精度浮點數,分別對應x1,y1,x2,y2,x3,y3。輸出輸出也是一行,輸出三角形的面...

三角形面積計算

類宣告私有的底邊長base和高height,同時在構造器中,從鍵盤獲取這些資料,並提供公共的方法可以獲取這些資料 在 test類中計算三角形的面積 類 public class private void setbase private void setheight public int getbas...

計算三角形的面積

1616 3 張宇 16.10.18 連續十七天總結 a.三角形的面積公式 100 b.今天遲交總結了,組織有懲罰我接受。平時都是早上寫的,誰知今天是走路去的回來都1點了。以後會提前寫的。今天的學習基本都懂,只是公式中的s等於 a b c 2,其他都可以。include include using ...