niusouti.com

以下是求三角形面积的程序:PublicFunctionarea(x!,y!,z!)AsSingleDimc!If(x+y>zAndx+z&以下是求三角形面积的程序:PublicFunctionarea(x!,y!,z!)AsSingleDimc!If(x+y>zAndx+z>yAndy+z>x) And (Abs(x-y))Thenc=1/2*(x+y+z)area=Sqr(c*(c-x)*(c-y)*(c-z))ElseMsgBox"你输入的三角形三边不符和三角形组成的条件,请重新输入三边"EndIfE

题目
以下是求三角形面积的程序:PublicFunctionarea(x!,y!,z!)AsSingleDimc!If(x+y>zAndx+z&

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

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.以上说法都不正确


相似考题
更多“以下是求三角形面积的程序:PublicFunctionarea(x!,y!,z!)AsSingleDimc!If(x+y>zAndx+z& ”相关问题
  • 第1题:

    设随机变量X~N(μ,σ^2),Y~U[-π,π],X,Y相互独立,令Z=X+Y,求fz(z).


    答案:
    解析:

  • 第2题:

    int x,y,z; x=2/4*7; y=4/2*7.0; z=x+y; 执行完上面程序段后,z的值是()


    Y3、Y1

  • 第3题:

    8、若有定义:int x=1,y=2,z=4;则以下程序段运行后z的值为()。 if(x>y) z=x+y; else z=x-y;

    A.3

    B.-1

    C.4

    D.0


    B

  • 第4题:

    设有单字节有符号数X,Y与Z,如果X+Y>200,则求X-Z,否则求X+Z,运算结果存储在SUM字单元中。(互评需要达到5次)


  • 第5题:

    3、若有定义:int x=1,y=2,z=4;则以下程序段运行后z的值为()。 if(x>y) z=x+y; else z=x-y;

    A.3

    B.-1

    C.5

    D.不确定


    -1