随着手机里面功能越来越丰富，让我们使用起来越来越方便了，给我们的生活带来了极大的便利。怎样使用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调出运行宏窗口，然后单击“执行”按钮，程序将提示输入勾长和股长
注意事项
智能手机助理给我们的生活带来了极大的便利！