来自马修水的问题
VB编程:从键盘输入三角形的三边,判断能否构成三角形:如果能构成三角形,则计算其面积
VB编程:从键盘输入三角形的三边,判断能否构成三角形:如果能构成三角形,则计算其面积


VB编程:从键盘输入三角形的三边,判断能否构成三角形:如果能构成三角形,则计算其面积
VB编程:从键盘输入三角形的三边,判断能否构成三角形:如果能构成三角形,则计算其面积
PrivateSubCommand1_Click()
a=Val(InputBox("输入a的长"))
b=Val(InputBox("输入b的长"))
c=Val(InputBox("输入c的长"))
Ifa+b>cAnda+c>bAndb+c>aThen
p=(a+b+c)/2
s=Sqr(p*(p-a)*(p-b)*(p-c))
Print"面积:";s
Else
Print"不是三角形"
EndIf
EndSu
确定吗??
自己试下,应该可以