目标函数模块.bas
来自「一个设计齿轮变位系数的程序」· BAS 代码 · 共 7 行
BAS
7 行
Attribute VB_Name = "目标函数模块"
Option Explicit
Dim x As Single
Public Function Goal(ByVal x) As Single
Goal = Abs(n1m(x) - n2m(x))
End Function
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?