以下是求三角形面积的程序:
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.以上说法都不正确
第1题:
第2题:
int x,y,z; x=2/4*7; y=4/2*7.0; z=x+y; 执行完上面程序段后,z的值是()
第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
第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.不确定