?? 齒頂圓壓力角正切值模塊.bas
字號:
Attribute VB_Name = "齒頂圓壓力角正切值模塊"
Option Explicit
Dim x As Single
Dim Z As Integer
Dim yux As Double
Public Function tgRA(ByVal x, ByVal Z) As Double
yux = rb(Z) / ra(x, Z)
tgRA = Sqr(1 - (yux) ^ 2) / yux
End Function
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -