VB编程:从键盘输入三角形的三边,判断能否构成三角形:如果能构成三角形,则计算其面积
问题描述:
VB编程:从键盘输入三角形的三边,判断能否构成三角形:如果能构成三角形,则计算其面积
答
Private Sub Command1_Click()
a = Val(InputBox("输入a的长"))
b = Val(InputBox("输入b的长"))
c = Val(InputBox("输入c的长"))
If a + b > c And a + c > b And b + c > a Then
p = (a + b + c) / 2
s = Sqr(p * (p - a) * (p - b) * (p - c))
Print "面积:"; s
Else
Print "不是三角形"
End If
End Su确定吗??自己试下,应该可以