怎样使用VBA根据勾股定理求弦长?

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub 利用勾股定理求弦长()

    Dim勾As Integer, 股As Integer
    勾=Application.InputBox("勾", "数据", 3, 10, 10, , , 1)
    股=Application.InputBox("股", "数据", 4, 10, 10, , , 1)
    If勾 <=0 Or股 <=0 Then MsgBox "勾和股必须大于0！": Exit Sub
    MsgBox "弦为:" & WorksheetFunction.Power(勾 ^ 2+股 ^ 2, 0.5)
End Sub

5、利用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，程序将提示输入勾长和股长