求三角形面积.pptVIP

新高考选考 技术会不会出奇制胜？ 技术学科在新高考中，地位直线上升，和其他科目相当。此次全国共有48所211高校的330个专业，都要求选考技术科目。在高校提出选考科目的专业里，选择技术这门科目的占36%，紧跟在物理和化学之后，这种热度多少让人有些意外。 省内高校要选考技术的，有浙江大学的科技与创意设计试验班，浙江财经大学的金融学、法学、软件工程专业等，浙江工业大学的电气通信与计算机类、计算机类等。省外高校要选考技术的，有北京工业大学的经济与贸易类、计算机科学与技术(实验班)、建筑学等，东南大学的物理学类、数学类等。 技术成为七门学科中的一门，地位已经直线上升，现在紧跟在物理、化学后面，更是炙手可热。 技术学科地位的变化—从高校看 技术学科地位的变化—从普通高中看 从我们学校，甚至从整个天台县来看，技术学科的地位也在发生改变！学校的重视，学生的重视，课时的增加，无不标示着学科地位的上升。 然而处于现在这个过渡时期，学科地位不可能直接等同其他传统主科，需要 界面设计 Text1 Text2 Text3 Label1 Label2 Label3 Label4 command1 算法描述 开始 输入a,b,c 值 两边之和 大于第三边 结束 输出三角开面积 输出警告语句 计算三角形面积 Y N ? 编写代码 开 始 输入a,b,c 值 两边之和 大于第三边 结束 输出三角开面积 输出警告语句 计算三角形面积 Y N ? a=Val(Text1.Text) b=Val(Text2.Text) c=Val(Text3.Text) a + b c And a + c b And b + c a p=(a+b+c)/2 S=Sqr(p*(p-a)*(p-b)*(p-c)) Label4.Caption=Str(s) MsgBox (你输入的三边不能构成三角形，请重输！) 分支结构－－if语句 If 条件表达式 Then 语句1 Else 语句2 行if语句 块if语句 If 条件表达式 Then 语句1 Else 语句2 End If 没有end if 编写代码 Dim a As Integer, b As Integer, c As Integer, p As Single, s as single If a + b c And a + c b And b + c a Then Else End If Private Sub Command1_Click() End Sub a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) p = (a + b + c) / 2 s = Sqr(p * (p - a) * (p - b) * (p - c)) Label4.Caption = Str(s) MsgBox (你输入的三边不能构成三角形，请重输！) Label4.Caption = 此处显示结果