使用宏判断三角形的形状

测试三角形类型的测试用例
下面给出测试三角形类型的测试用例，分为以下四类：
1. 边长无效的三角形测试用例
- 输入三条边长度分别为0，0，0的三角形，应该提示“长度无效”。

- 输入两条边长度之和小于第三条边的三角形，例如3，4，8，应该提示“不能构成三角形”。

- 输入边长为负数的三角形，例如2，-3，4，应该提示“长度无效”。

2. 等边三角形测试用例
- 输入边长都为5的三角形，应该返回“等边三角形”。

- 输入边长都为2.5的三角形，不是等边三角形，应该返回“非等边三角形”。

3. 等腰三角形测试用例
- 输入边长分别为3，4，4的三角形，应该返回“等腰三角形”。

- 输入边长分别为2.5，3，4的三角形，应该返回“非等腰三角形”。

4. 直角三角形测试用例
- 输入边长分别为3，4，5的三角形，应该返回“直角三角形”。

- 输入边长分别为2.5，3，4的三角形，应该返回“非直角三角形”。

以上是测试三角形类型的测试用例，可以按照以上用例进行测试，以确保代码能够正确地识别各种类型的三角形，并作出正确的输出。

呦，长半轴8 .I矶1•刀中心长半轴a'1•毛坯为四方块，分粗加工（椭圆柱）和精加工（椭圆半球体）；2•粗加工以椭圆轮廓自上而下分层加工，刀具为平底立铳刀；3•精加工时，加工路线，以自下而上0—90间等角度分层。

每层以圆弧切入切出，根据当前层的长短半轴以椭圆轮廓水平环绕加工，直至椭圆球顶完成椭圆球面加工。

工件坐标系原点设在椭圆球体的中心，以球头刀的球心轨迹编程（不用刀具半径补偿），球头铳刀加工，对刀点为球刀底平面（非球心）。

02003;椭圆柱台阶粗加工程序FANUC 01系统B类宏程序SIEMENS系统R参数程序G28;T02M06;G54;G90G00X48.Y50.M03S800；G43Z50.H02;GO1Z15.F2OO;#1=40.;# 2=30.;#3=15.;N5OGOOZ[#3-5.];GO1G41X#1YODO2;#103=360.；N1(M)#104-#1*COS 倂103]; #105=#2*SIN [#103];G01X #l()4Y#105;#103=# 103-1.;IF[#103GE0]GOT()10()；G00Z20.;T01M06;G54；G90G(X)X48.Y50.M03S800;Z50.；G01Z15.F200;Rl=4().;R2=30.;R3=15.;XN50:GO0Z=R3-5.;GO1G41X=R1YODO1;R103=360.;XN100:R1()4=R1*COS(R103);R1O5=R2*S1N(R1O3);G01X=R104Y=R105;R103=R103-l.;IF RI03>=0 G()T()B XN100；（直径24mm）G54；工件外加工起点长半轴（X）短半轴（Y）工件上平回坐标每层下刀5mm 建立半径补偿至X半轴顶点角度变呈賦初值360X坐标值变長Y坐标值变呈椭圆加工角度每次增長为1度如果角度大于0,循环继续#15. X殛01032;#1=40.; #2=30.; #3=15.; #4=4.; #17=2.; #18=1.5.; 椭圆球面在X 方向上的半轴长度a 为40 椭圆球面在Y 方向上的半轴长度b 为30 椭圆球面在Z 方向上的半轴k 度c 为15 刀具半径（球头铳刀）为4 环绕椭圆一周时的角度递增基为2自下而上分层时角度递増長为1.5 （能整除）MO3S15OO;#9=#H *COS[#6];根据椭圆参数方程，计算任意层时（随#6的角度变化）刀心在、向上的半NO5GO()XOYOZ[#3+15.]; #11=#1+ #4; #12=#2+#4； #13=#3+#4； 快速移到椭圆球面中心上方刀具中心在椭圆球面x 方向上的是大半轴长度a' 刀具中心在椭圆球面Y 方向上的最大半轴长度b' 刀具中心在椭圆球面z 方向上的呈大半轴长度c ，自下而上分层时角度自变長，赋初始值为0 （起点与X 轴重台，终点为WHILE[#6LT90]D()l; 当#6小于或等于90,即还没到Z 向椭圆顶时，循环1继续#6=0; 90度)轴长度#7=#13*SIN [#6];#8=[1-[#7*#7] / [# 13*# 13]]; #1()=SQRT[#8*#12*# 12];任意层时（刀具中心在Z方向上的半轴长度#8的表达式是为丁简化计算Y向半轴#10而设任意层时刀具中心在Y方向上的半轴长度N10 G00X倂9+#4]¥#4；N20 Z[#7-#4]；XY轴移到切入起点坐标Z抽移到层的加工平回N30 Q)3X#9Y0R#4F300; #5=0;WHILE[#5L E360]D()2;圆弧切入圆周初始角賦值当#5小于360度，循环2继续，完成一周的铳削#15=#9*C ()S[#5]; #16=-#10*SIN 倂习； N40 G01X#15Y#16F2000; #5=#5+#17； END2;N50 G03X 倂9+#4]Y-#4R#4； N60 GOOZ 倂7申4+1.]; N70 Y#4； #6=#6+#1& ENP1;N80 GOOZ 倂3+30.]; M05; M30;第二种方法：1206；高20,原点在-20mm.球刀半径4,自上而下 #1=0 #2=2();短半轴 #3=30;长半轴 # 4=1 #5=90WHILE [#5GE #1] DOI #6=#3*COS 倂习+4 #7=# 2*S1N[#5] G01*X#6 Z#7 #8=360 # 9=0WHILE 倂 9LE# 8]D()2 #10=#6* C ()S[#9] #11=#6*SI N[# 9]*2/3 G<)1X#1OY#11 # 9二#9+1 E ND1 END2 M30正多边形外轮廓宏程序编制正多边形外轮.廊加工宏程序，能实现边数为n 边5=3,4,5,6,8,9,10,12等，n 能被36（）整 除即可）的外轮廓自上而下环绕分层加工，同时通过控制多边形中心与其中一顶点的连线与 水平方向的夹角，加工出不同摆放位直的正多边形（如图乞24所示，为编程方便，我们将 编程起始点，即多边形的一个顶点A 放在'水平轴上，要加工出所要求的摆放位萱，雲用 G68指令进行坐标系旋转，旋转角度为（）人与QA'的夹角）。

VBA关于shape相关，图形，形变，变⾊，旋转效果。

shapes.addshape（ms。

1 先展⽰下今天做的效果1.1 素材按钮1：绑定start1()按钮2：绑定stop1()⽂字旋转效果图形，形变，变⾊，旋转效果四⾓星是插⼊的图形，⽂字是插⼊的艺术字（选择图形效果--选形状）1.2 对应的代码1. Private switch12.3. Sub stop1()4. switch1 = False5. End Sub6.7.8. Sub start1()9. Dim p1, p2 As Shape10. Set p1 = Worksheets('sheet1').Shapes(1)11. Set p2 = Worksheets('sheet1').Shapes(4)12. Set p3 = Worksheets('sheet1').Shapes('4-Point Star 3')13.14.15. a = Timer16. switch1 = True17. Do While switch1 = True18. DoEvents19. If Timer - a > 0.1 Then20. a = Timer21. p1.IncrementRotation (10)22. p2.Rotation = p2.Rotation + 523. p3.Fill.ForeColor.RGB = RGB(255 * Rnd(), 255 * Rnd(), 255 * Rnd())24. p3.Rotation = 90 - Rnd() * 8025. p3.Adjustments(1) = 0.2 * Rnd()26. End If27. Loop28. End Sub1.3 测试时的各种原始调试代码（废代码很多，仅做备忘）1. Private switch12.3. Sub stop1()4. switch1 = False5. End Sub6.7.8. Sub start1()9. Dim p1, p2 As Shape10. Set p1 = Worksheets('sheet1').Shapes(1)11. Set p2 = Worksheets('sheet1').Shapes(4)12. Set p3 = Worksheets('sheet1').Shapes(3) 'shapes(3)是btn会造成拒绝的权限，实际四⾓星是shapes(5)13. 'Set ap3 = Worksheets('sheet1').Shapes('autoshape 1')14. Set p3 = Worksheets('sheet1').Shapes('4-Point Star 3')15.16. a = Timer17. switch1 = True18. Do While switch1 = True19. DoEvents20. If Timer - a > 0.1 Then21. a = Timer22. p1.IncrementRotation (10)23. ' p2.Adjustments(1) = 0.1 * Rnd()24. ' p2.IncrementRotation (10)25. ' p2.Rotation = 360 - Rnd() * 35026. p2.Rotation = p2.Rotation + 527.28. ' p3.Adjustments.Item(1) = 0.129. ' p3.IncrementRotation (10)30. ' p3.ShapeRange.Rotation = 90 - Rnd() * 8031. ' ap3.ShapeRange.ajustments(1) = 0.132. p3.Fill.ForeColor.RGB = RGB(255 * Rnd(), 255 * Rnd(), 255 * Rnd())33. p3.Rotation = 90 - Rnd() * 8034. p3.Adjustments(1) = 0.2 * Rnd()35.36. End If37. Loop38.39. End Sub1.4 代码的关键点和问题总结注意，找对所要操作的具体哪⼀个 shape有些shape 并不⽀持 rotation 等操作⽤公共变量在2个开关程序之间传递值每次条件满⾜，马上充值 a1=timer1.5 报错处理（拒绝的权限和该形状已经被锁定）拒绝的权限该形状已经被锁定当时忘了bt1 bt2这2个按钮我已经先添加了，这2个也是shape，这是常见思维漏洞测试发现，button控件，可能并不⽀持选择，rotation,adjustmen(1) 等等⽅法或者是指了sheet1⾥不存在的控件所以这⼏种报错时要了解⼤致的问题。

山西省朔州市怀仁市峪宏中学2024-2025学年上学期第一次月考八年级数学试卷一、单选题1．如果一个正多边形的一个外角是45︒，这个正多边形是（ ）A ．正五边形B ．正六边形C ．正七边形D ．正八边形 2．以下列各组线段长为边，能组成三角形的是（ ）A ．1cm 2cm 4cm ，， B ．10cm 3cm 5cm ，， C ．8cm 6cm 3cm ，， D ．2cm 3cm 6cm ，， 3．已知图中的两个三角形全等，则α∠的度数是（ ）A ．72︒B ．60︒C ．58︒D ．50︒4．如果一个三角形的三个内角的度数之比为1:5:6，那么这个三角形一定是（ ） A ．直角三角形B ．锐角三角形C ．钝角三角形D ．无法判断5．在ABC V 中，若3AB =、5AC =，且BC 的长度为整数，则ABC V 的周长可能是（ ） A ．15 B ．16 C ．17 D ．186．下列各图中，正确画出ABC V 中AC 边上的高的是（ ）A ．B ．C ．D ．7．已知ABC V ，求作：A B C '''V ，使得A B C ABC '''≌△△．如图是小明的作图痕迹，他作图的依据是（ ）A ．SSSB ．AASC ．ASAD ．SAS8．如图所示，在ABC V 中，已知点D E F 、、分别是BC AD CE 、、的中点，且ABC V 的面积为96，则BEF △的面积是（ ）A ．48B ．32C ．24D ．169．如图，在V ABC 中，AD 是BC 边上的高，AE 平分∠BAC ，∠C ＝46°，∠DAE ＝10°，∠B 的度数为（ ）A ．66°B ．68°C ．50°D ．60°10．如图，在33 的正方形网格中，ABC V 的顶点都在小正方形的顶点上，像ABC V 这样顶点均在格点上的三角形叫格点三角形，在图中画与ABC V 有一条公共边且全等的格点三角形，这样的格点三角形最多可以画（ ）A ．3个B ．4个C ．5个D ．6个二、填空题11．如图，空调外机支架设计成三角形，这样做的依据是三角形具有．12．如图，已知 ABC BAD ∠=∠，要使 ABC BAD V V ≌，只需添加的一个条件是（答案不唯一，写出1个即可）．13．如图，是一个瓶子的切面图，测量得到瓶子的外径AB 的长度是10cm ，为了得到瓶子的壁厚cm a ，小庆把两根相同长度的木条DE 和CF 的中点O 固定在一起，做了一个简单的测量工具，如图，得到EF 的长为6cm ，则瓶子的壁厚a 的值为cm ．14．如图，两个小朋友在水平地上玩跷跷板．已知跷跷板的支点是长板的中点，支柱高0.6m ．当长板的一端着地时，长板的另一端到地面的高度为m ．15．如图，AD 是ABC V 的高，BE 平分ABC ∠交AD 于点E ．若76C ∠=︒，64BED ∠=︒，则BAC ∠的度数为．三、解答题16．一个多边形，它的内角和比外角和还多 180︒，求这个多边形的边数．17．中国农民丰收节，是第一个在国家层面专门为农民设立的节日，节日时间为每年“秋分”．该节日的设立提升了亿万农民的荣誉感、幸福感、获得感．工作人员小张在丰收节展览会上不慎打碎一个如图所示的三角形玻璃展台（ABC V ）．(1)小张只要从碎片中度量出哪些边、角，就可以到店铺加工一块与原来三角形玻璃展台（ABC V ）的形状和大小完全相同的新展台（A B C '''V ）？请简要说明理由．(2)按尺规作图的要求，作出A B C '''V ．（保留作图痕迹，不写作法和证明）18．如图，D 是ABC V 的边AB 上一点，CF AB ∥，DF 交AC 于点E ，=DE EF ．(1)求证：AE EC =；(2)若5AB =，4CF =，求BD 的长．19．如图ABC V 中，AE ，CD 是ABC V 的两条高，6AB =，3CD =．(1)请画出AE ，CD ；(2)求ABC V 的面积：(3)若4AE =，则BC 的长为_____（直接填写答案）．20．如图，AC BC AD BD AD BC CE AB DF AB ⊥⊥=⊥⊥，，，，，垂足分别是E ，F ，求证：(1)ABC BAD ≌△△；(2)CE DF =．21．如图，四边形ABCD 中，对角线AC ，BD 交于点O ，AB AC =，点E 是BD 上一点，且AE AD =，EAD BAC ∠=∠．(1)求证：ABD ACD ∠=∠；(2)若65ABC ACB ∠=∠=︒，求BDC ∠的度数．22．请阅读下列材料，并完成相应的任务：有趣的“飞镖图”如图，这种形似飞镖的四边形，可以形象地称它为“飞镖图”．当我们仔细观察后发现，它实际上就是凹四边形．那么它具有哪些性质呢？又将怎样应用呢？下面我们进行认识与探究：凹四边形通俗地说，就是一个角“凹”进去的四边形，其性质有：凹四边形中最大内角外面的角等于其余三个内角之和．（即如图1，∠ADB=∠A＋∠B＋∠C ）理由如下：方法一：如图2，连接AB，则在△ABC 中，∠C+∠CAB+∠CBA=180°，即∠1+∠2+∠3+∠4+∠C=180°，又∵在△ABD 中，∠1+∠2+∠ADB=180°，∴∠ADB=∠3+∠4+∠C，即∠ADB=∠CAD+∠CBD+∠C．方法二：如图3，连接CD 并延长至F，∵∠1 和∠3 分别是△ACD 和△BCD 的一个外角，. . . . . .大家在探究的过程中，还发现有很多方法可以证明这一结论，你有自己的方法吗？任务：(1)填空：“方法一”主要依据的一个数学定理是；(2)探索：根据“方法二”中辅助线的添加方式，写出该证明过程的剩余部分；(3)应用：如图4，AE 是∠CAD 的平分线，BF 是∠CBD 的平分线，AE 与BF 交于G，若∠ADB=150°，∠AGB=110°，请你直接写出∠C 的大小．23．综合与实践小西在物理课上学习了发声物体的振动实验后，对其作了进一步的探究：在一个支架的横杆点O处用一根细绳悬挂一个小球A，小球A可以自由摆动，如图①，OA表示小球静止时的⊥于位置，当小明用发声物体靠近小球时，小球从OA摆到OB位置，此时过点B作BD OA点D，当小球摆到OC位置时，OB与OC恰好垂直（点A，B，O，C在同一平面上），过点C作CE OA⊥于点E．(1)【初步探究】请你探究线段DE BD CE ，，之间的数量关系；(2)【全等模型】如图②，在ABC V 中，90BAC ∠=︒，AB AC =，直线l 经过点A ，BD ⊥直线l ，CE ⊥直线l ，垂足分别为D ，E ，则DE BD CE ，，之间的数量关系为；(3)【类比探究】如图③，在ABC V 中，AB AC =，直线MN 经过点A ，E ，D ，且BDM BAC DEC ∠=∠=∠，请判断DE BD CE ，，之间的数量关系，并说明理由．。

淮海工学院计算机工程学院实验报告书课程名：《软件工程导论》题目：软件测试学号： 511020825姓名：薛思雨一、实验目的与要求1、掌握软件测试2、掌握白盒测试方法3、掌握黑盒测试方法（边界值分析和等价类划分）4、掌握自动化测试软件和方法二、实验内容或题目1）试画出：给定四边形的四条边，判断这个四边形是普通四边形、平等四边形、菱形的流程图，给出详细设计结果与C语言代码，对其使用白盒和黑盒测试技术分别设计测试用例（包括所有白盒测试的覆盖、黑盒测试的边界值分析与等价类划分）。

然后，使用测试用例进行实际测试，并给出测试结果；（或输入三条边，判断三条边组成的图形是一般三角形、等腰三角形、直角三角形、等边三角形，亦或不能构成三角形，其它要求同四边形）2）了解一些典型的自动化测试软件和方法，建议有条件可下载、安装Mercury Interactive公司的负载测试工具LoadRunner、功能测试工具WinRunner和测试管理工具TestDirector；IBM-Rational公司的测试套件Rational Suite TestStudio的Rational Robot、Rational TestManagerhe、Rational Quantify等工具，了解软件的使用方法。

3) 课内认真完成实验报告，禁止抄袭。

三、实验步骤与源程序第一题：1. 根据题目画流程图核心流程图：源代码：#include<stdio.h>void main(void){int a,b,c,k;printf("请输入三角形的三边长(0-100):");scanf("%d %d %d",&a,&b,&c);if((a>=1&&a<=100)&&(b>=1&&b<=100)&&(c>=1&&c<=100)) {if((a+b>c)&&(a+c>b)&&(b+c>a)){if((a==b&&b!=c)||(a==c&&c!=b)||(b==c&&a!=b))k=1;if(a==b&&a==c)k=2;if((a*a+b*b==c*c)||(a*a+c*c==b*b)||(c*c+b*b==a*a))k=3;switch(k){case 1:printf("等腰三角形\n");break;case 2:printf("等边三角形\n");break;case 3:printf("直角三角形\n");break;default:printf("一般三角形\n");break;}}elseprintf("不能构成三角形\n");}elseprintf("警告：无效输入！！\n");}第二题：1.打开虚拟机，启动Windows XP Professional。

基于MFC的三角形面积和周长计算程序MFC（Microsoft Foundation Classes）是一个用于Windows应用程序开发的类库，提供了一系列的类和函数来简化应用程序的开发过程。

在MFC中，通过创建对话框或窗口，可以实现与用户的交互。

本文将基于MFC编写一个三角形面积和周长计算程序。

该程序包括一个对话框，用户可以输入三角形的三边长度，然后通过点击计算按钮，程序会计算并显示出三角形的面积和周长。

首先，创建一个基于对话框的MFC应用程序。

在Visual Studio中，选择File -> New -> Project，在弹出的对话框中选择Visual C++ -> MFC，在右侧的模板列表中选择MFC Application，并设置相应的项目名称和位置。

在项目创建完成后，打开Resource View窗口，在Dialogs文件夹下找到IDD_CALCULATE_DIALOG，并右键单击该文件，选择Add -> Resource，添加一个Button控件和三个Edit Control控件到对话框中。

然后，在Solution Explorer窗口中找到对应的对话框类文件，通常命名为xxxDialog.cpp（xxx为对话框的名称），双击打开该文件。

在对话框类文件中，我们需要添加用于计算的函数以及事件处理函数。

首先，添加用于计算三角形面积和周长的函数。

在类的声明中，添加下列代码：```cppdouble CalculateArea(double a, double b, double c);double CalculatePerimeter(double a, double b, double c);然后，在类的实现中，添加下列代码：```cppdouble CCalculateDialog::CalculateArea(double a, double b, double c)double p = (a + b + c) / 2; // 计算半周长return sqrt(p * (p - a) * (p - b) * (p - c)); // 使用海伦公式计算三角形面积double CCalculateDialog::CalculatePerimeter(double a, double b, double c)return a + b + c; // 计算周长```接下来，我们需要在相应的事件处理函数中调用上述计算函数。

三角函数及其相关定理在数控编程宏指令中的应用摘要】数学中的函数及其逻辑关系在手工编程中的地位非常重要，但对于数学知识比较贫乏的技术人员，未必都能掌握一定的数学知识及其逻辑宏指令运算，本文就三角函数在数控编程宏指令中用于倒R球面及斜面加工中作为参考。

【关键词】三角函数在数控编程宏指令的应用：R球面圆角铣削，斜面铣削中图分类号：Ｇ71文献标识码：Ａ文章编号：ISSN1004-1621（2010）11-114-02必须强调的是，尽管使用各种CAD/CAM软件来编制数控加工程序已经潮流（或主流），但手工编程毕竟还是基础，各种"疑难杂症"的解决往往还要利用手工编程，且手工编程还可以使用变量编程，既宏指令的应用。

其最大特点就是将有规律的形状或尺寸用最短的程序表示出来，具有极好的易读性和易修性，编写出的程序非常简洁，逻辑严密，通用性强，而且机床在执行此类程序时较CAD/CAM软件生成程序更为快捷，反应更迅速。

三角函数在宏程序中的更是广泛，下面就以西门子802D为例讲解三角函数在倒R球面及斜面加工中的应用。

一、三角相似定理及勾股定理应用于宏指令中加工凹R球面遇到一些宏指令编程问题，首先要分析走刀路径，然后建立数学模型来解决实际问题（如图1所示）。

加工SR=26的凹球面，用￠=8的球头铣刀，下刀点在A点下刀终止点在B点，应先计算下刀点A的坐标为：X=26-4=22、Z=4{即A点的初始坐标为（22、4）}。

应用三角形的相似定理：△OBC∽△OB′C′，所以OB′/OB=OC′/OC,即22/24=X/22得X=18.615，再有勾股定理得C′的坐标Z′=√22 -18.615 =11.725,{即C′的坐标为（18.615、-11.725）}下面以西门子802D为例编写其加工的宏程序：AOQIUMIANJIAOGONG 程序名G90G17G40 建立坐标，取消刀补T3M06 选刀G00Z50 刀具快速定位TRANS X0 Y-18 坐标平移G00X22Y0 快速定位Z4 下刀R1=2 设置R1的初始值R2=2 设置R2的初始值AAA: 子程序名AROT RPL=R1 平面坐标系增量旋转R1G03X18.615 Z=-7.725 CR=22 逆圆弧插补GOOZ4 快定位X22R2=R2+2 R2变量赋值IF R2<=360 判断语句GOTOBAAA 跳转G0 Z50 快速定位ROT 取消旋转指令TRANS 取消平移坐标指令M05 主轴停止M30 程序停止二、三角函数应用于宏指令中加工凸圆角（或球面）的加工我们再来分析（图2所示）在其轮廓上加工出R3圆角，同样分析走刀路线并建立数学模型，如b1点的A点下刀走轮廓形状，再回到起初位置逐一分刀下到B点为止，则A点到B点的数学模型为（用￠=8的球头铣刀）：以∠A0B=90°为初始角度，终止角度为0，所以有：刀具在加工过程中发生了下列的变化函数关系：Z=(4+3)SIN(90°-￠-4-3),X=（4+3）COS(90-￠)-3,这里的￠为宏指令指定要变化的量，下面同样西门子802D为例编写（如图2）的宏程序：TUQIUMIANJIAGONG 程序名R1=4 设置R1的初始值R2=3 设置R2的初始值R3=90 设置R3的初始值AAA: 子程序名R4=(R1+R2)SIN(R3)-R1-R2 建立三角函数关系R5=(R1+R2)＊COS(R3)-R2G01Z=R4 直线插补＄TC-DP6[3、2]=R5 设置刀具半径补偿值G0X110Y27 快速点定位Z5G01Z-10G42X90Y27D2 刀具右补偿G01X75.63Y23.150G03X68.476Y5.336CR=12 逆圆弧插补G02X68.476Y-41.336CR=45 顺圆弧插补G03X75.631Y-59.150CR=12G01X90Y-63G40X110 取消刀具补偿G0Z50R3=R3-3 再次给R3赋值IFR3﹥=0 判断语句GOTOBAAAM17 子程序调用结束三、三角函数应用于斜角（或斜面）的加工分析如图所示轮空斜面，不难看出刀具从A→B的点函数关系为X=6+△Ztg15°△Z为宏指令指定的变化量，下面同样西门子802D为例编写（如图3）的宏程序XIEMIANXIXUE 程序名G90G40G17 建立绝对坐标系取消刀补设置坐标平面T1D1 建立刀具刀补M6 调用刀具G54G90G00Z50 在G54坐标下建立绝对系快速点定位M3S800F100 主轴正传G00X0Y0L100 调用子程序G00Z50M05 主轴停止M30 程序结束L100 子程序名R1=0 设置R1的初始值R2=-5 设置R2的初始值R3=5＊TAN(15°) 设置R3的初始值AAA; 子程序名R3=R3+R1＊TAN(15°)再次给R3赋值R2=-5-R1 建立R3的函数关系＄TC-DP6[1、1]=R3 设置刀具半径补偿值G0X-110Y40 快速点定位Z-3G01Z=R2 直线插补G41G1Y20F300 刀具左补偿X-18G02X-74Y13CR=7 顺圆弧插补指令G01X71Y-13G02X-81Y-20CR=7G01X-110G0Z50G40X-110 取消刀具补偿值R1=R1+0.1 建立R1的函数关系IFR1＜5 判断语句GOTOBAAA 调用子程序M17 子程序调用结束结论：通过上面几个例子，我们不难看出应用三角形的相关定律及建立三角函数关系在手工编程宏指令当中的作用极其重要，对于其他的数学函数关系也同样有着不可替代的作用，笔者只是以三角函数为例让大家在以后的编程中有所领悟。

判断三角形的形状c语言代码#include <stdio.h>int main() {int a, b, c;printf("请输入三角形的三条边长：");scanf("%d %d %d", &a, &b, &c);if (a + b > c && a + c > b && b + c > a) {if (a == b && b == c) {printf("这是一个等边三角形。

\n");} else if (a == b || a == c || b == c) {printf("这是一个等腰三角形。

\n");} else {printf("这是一个普通三角形。

\n");}} else if (a == b || a == c || b == c) {printf("这是一个等腰三角形。

\n");} else {printf("这不是一个三角形。

\n");}return 0;}该程序首先要求用户输入三角形的三条边长，然后判断这三条边长是否可以构成一个三角形。

如果可以构成三角形，则进一步判断三角形的形状，并输出相应的结果。

否则，程序会输出“这不是一个三角形”。

程序的实现方式是先判断三条边长是否满足构成三角形的条件，即任意两边之和大于第三边。

如果满足这个条件，则进一步判断三角形的形状。

如果三条边长都相等，则是等边三角形；如果只有两条边长相等，则是等腰三角形；如果三条边长都不相等，则是普通三角形。

如果三条边长不满足构成三角形的条件，则不是三角形。

Excel编程VBA图形Shape复选框的状态判断Shape设置图形属性ActiveSheet.Shapes(2).Line.Weight '当前⼯作表⾥图形（Shapes）集合⾥的第⼆个对象⾥的直线（Line）对象的粗细（Weight）属性表单控件根据图形的 Type 属性判断图形类型，如果是表单控件msoFormControl 则接着判断表单控件的类型FormControlType 基本后通过控件的ControlFormat.Value 取得控件值参考For Each s In Worksheets(1).ShapesIf s.Type = msoFormControl ThenIf s.FormControlType = xlCheckBox Then _s.ControlFormat.Value = FalseEnd IfNextCheckBox获取选中状态选中时Value值为1，未选中时返回 -4146，直接赋值给 bool 会全部转为 TrueDim ckb As ShapeDim status As BooleanSet ckb = ActiveSheet.Shapes(Application.Caller)If ckb.Type = msoFormControl ThenIf ckb.FormControlType = xlCheckBox ThenDebug.Print ckb.ControlFormat.ValueIf ckb.ControlFormat.Value = 1 Thenstatus = TrueElsestatus = FalseEnd IfEnd IfEnd IfDebug.Print status实例根据复选框的状态添加删除线到当前⾏Sub BtnComplete()Dim curRow As IntegerDim ckb As ShapeDim status As BooleanSet ckb = ActiveSheet.Shapes(Application.Caller)If ckb.Type = msoFormControl ThenIf ckb.FormControlType = xlCheckBox ThenDebug.Print ckb.ControlFormat.ValueIf ckb.ControlFormat.Value = 1 Thenstatus = TrueElsestatus = FalseEnd IfEnd IfEnd IfDebug.Print statuscurRow = ActiveSheet.Shapes().TopLeftCell.RowWith Range("A" & curRow & ":D" & curRow).Font.Strikethrough = statusEnd WithEnd Sub。