以下是求三角形面积的程序:
PublicFunctionarea(x!,y!,z!)AsSingle
D.imc!
If(x+y>zAndx+z>yAndy+z>x) And (Abs(x-y))Then
c=1/2*(x+y+z)
area=Sqr(c*(c-x)*(c-y)*(c-z))
E.lse
MsgBox"你输入的三角形三边不符和三角形组成的条件,请重新输入三边"
E.ndIf
E.ndFunction
PrivateSubForm_Click()
D.ima!,b!,c!
a=InputBox("输入a"):b=InputBox("输入b"):c=InputBox("输入c")
s1=area(a,b,c)
Print"三角形的面积=";s1
E.ndSub
以下说法正确的是( )
A.当程序运行时单击窗体后分别输入3,4和5,显示对话框"你输入的三角形三边不符和三角形
组成的条件,请重新输入三边"
B.当程序运行时单击窗体后分别输入3,4和5,输出显示三角形的面积=6
C.当程序运行时单击窗体后分别输入3,4和5,输出显示三角形的面积=6.5
D.以上说法都不正确
[判断题] 功率因数COS可利用电压三角形、阻抗三角形及功率三角形中任一个三角形的角边关系求得。()A . 正确B . 错误
[单选题]等腰三角形、等边三角形、直角三角形都是三角形的()。A.反例B.概况C.变式D.抽象
[单选题]等腰三角形、等边三角形、直角三角形都是三角形的()。A.反例B.变式C.概括D.抽象