首页 > 计算机 > 计算机二级 正文

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

时间:2021-05-04 05:32:28 解答: 99 次

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

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

正确答案:

B

请充值VIP继续使用(未注册用户支付后会自动注册登录)

×

95元 29元

VIP截止日期:2025-01-02 00:06:21

←请使用支付宝扫码支付

95元 29元

VIP截止日期:2025-01-02 00:06:21

←请使用微信扫码支付