以下是求三角形面积的程序:

PublicFunctionarea(x!,y!,z!)AsSingle Dimc! 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)) Else MsgBox"你输入的三角形三边不符和三角形组成的条件,请重新输入三边" EndIf EndFunction PrivateSubForm_Click() Dima!,b!,c! a=InputBox("输入a"):b=InputBox("输入b"):c=InputBox("输入c") s1=area(a,b,c) Print"三角形的面积=";s1 EndSub 以下说法正确的是() A.当程序运行时单击窗体后分别输入3,4和5,显示对话框"你输入的三角形三边不符和三角形 组成的条件,请重新输入三边" B.当程序运行时单击窗体后分别输入3,4和5,输出显示三角形的面积=6 C.当程序运行时单击窗体后分别输入3,4和5,输出显示三角形的面积=6.5 D.以上说法都不正确

时间:2023-08-18 12:24:00

相似题目