vb教程編程實例詳解

① vb編程實例

下面的代碼是利用三邊計算三角形面積
Private Sub Command1_Click()
a=val(text1.text)
b=val(text2.text)
c=val(text3.text)
p=(a+b+c)/2
s=sqr(p*(p-a)*(p-b)*(p-c))
if a+b>c and b+c>a and a+c>b then
text4.text="三角形的面積是:" & s
else
text4.text="不能構成三角形"
end if
end sub

下面是計算兩數之和的代碼
private sub command1_click()
a=val(text1.text)
b=val(text2.text)
text3.text=a+b
end sub