yunzhimu 发表于 2006-5-11 11:25:00

求教。。VBA中如何调用三角函数

<P>调用格式？是否能用参数表示角度?例如：tan kr</P>

xinghesnak 发表于 2006-5-11 13:11:00

<P>Dim aa As Double<BR>aa = 3.1415926<BR>MsgBox Sin(aa</P>

yunzhimu 发表于 2006-5-12 07:44:00

本帖最后由 作者 于 2006-5-12 8:07:01 编辑 <br /><br /> <P>哦，谢谢，我定义错了数据类型，怪不得一运行就无响应。还有就是没注意调用格式，直接调用不用加括号如 sin a </P>
<P>如果是计算式中使用的话，就需要加扩号。如 a=sin(as)/tan(bc)。很常识的东西，有时不注意。嘻嘻</P>

yunzhimu 发表于 2006-5-12 08:40:00

<P>反正余弦函数需要自定义，下面是计算公式。</P>
<P>Public Function Arcsin(x As Double) As Double<BR>&nbsp; Arcsin(x) = Atn(x / Sqr(-x * x + 1))<BR>End Function<BR>Public Function Arccos(x As Double) As Double<BR>&nbsp; Arccos(x) = Atn(-x / Sqr(-x * x + 1)) + 2 * Atn(1)<BR>End Function</P>
页: [1]
查看完整版本: 求教。。VBA中如何调用三角函数