示例1：验证直角三角形的边长关系
```python
import math
def is_right_triangle（a, b, c）:
if math.isclose（a2 + b2, c2）:
return True
else:
return False
测试样例
a = 3
b = 4
c = 5
print（is_right_triangle（a, b, c）） 输出： True
```
示例2：计算直角三角形的斜边
```python
import math
def calculate_hypotenuse（a, b）:
"""计算直角三角形斜边"""
squared_sum = a2 + b2
hypotenuse = math.sqrt（squared_sum）
return hypotenuse
输入直角边长度
side_a = float（input（"请输入直角边a的长度： "））
side_b = float（input（"请输入直角边b的长度： "））
计算斜边长度
hypotenuse = calculate_hypotenuse（side_a, side_b）
print（f"斜边长度为： {hypotenuse}"）
```
示例3：使用Manim库动态演示勾股定理
```python
from manim import *
class PythagorasTheorem（Scene）:
def construct（self）:
创建直角三角形的三条边
a = Line（[0, 0, 0], [3, 0, 0]）
b = Line（[3, 0, 0], [3, 4, 0]）
c = Line（[0, 0, 0], [3, 4, 0]）
创建表示边长的文本
text_a = Text（"a"）.next_to（a.get_center（）, DOWN）
text_b = Text（"b"）.next_to（b.get_center（）, RIGHT）
text_c = Text（"c"）.next_to（c.get_center（）, UP + RIGHT）
先绘制直角边
self.play（Create（a）, Write（text_a））
self.play（Create（b）, Write（text_b））
绘制斜边并显示边长文本
self.play（Create（c）, Write（text_c））
计算并显示勾股定理公式
formula = MathTex（r"a^2 + b^2 = c^2"）
formula.next_to（text_c, UP）
self.play（Write（formula））
```
示例4：使用VBA编程语言求解弦长
```vba
Sub 利用勾股定理求弦长（）
Dim 勾 As Integer， 股 As Integer， 弦 As Double
' 提示用户输入勾的长度
勾 = Application.InputBox（"请输入勾的长度：", "输入数据", 3, Type:=1）
' 提示用户输入股的长度
股 = Application.InputBox（"请输入股的长度：", "输入数据", 4, Type:=1）
' 检查输入数据是否有效
If 勾 <= 0 Or 股 <= 0 Then
MsgBox "勾和股必须大于0!", vbExclamation
Exit Sub
End If
' 根据勾股定理计算弦的长度
弦 = WorksheetFunction.Sqrt（勾 ^ 2 + 股 ^ 2）
' 显示计算结果
MsgBox "弦的长度为：" & 弦
End Sub
```
这些示例展示了如何使用不同编程语言和库来验证勾股定理、计算斜边长度以及动态演示勾股定理。你可以根据自己的需求和编程环境选择合适的示例进行学习和实践。