题型:单选题 题类:常考题 难易度:容易
【bj】高中信息技术综合库——计算机解决问题的步骤化2
①输入三角形三条边的边长a,b,c ②计算 ③计算 ④输出s | Option Explict Private Sub Cormmand1_Chick( ) Dim a As Double Dim b As Double Dim c As Double Dim p As Double Dim S As Double a= Val(InputBox(输入三角形的边长a", "输入")) b= Val(InputBox(输入三角形的边长b", "输入")) c= Val(InputBox(输入三角形的边长c", "输入")) p=(a+b+c)/2 S=Sqr(p*(p-a)*(p- b)*(p-c)) Print S End Sub |
试题篮