作业帮 > 数学 > 作业

VB 三角函数转值问题

来源:学生作业帮 编辑:神马作文网作业帮 分类:数学作业 时间:2024/11/19 05:15:00
VB 三角函数转值问题
在VB中三角函数的单位为弧度,比如说sin(30)算出的结果为30弧度的值.
现求一代码.功能为把三角函数括号内的数值转成角度值.
比如,我在程序中输入sin(30)+48-cos(46)+7.则自动得出这一算式的角度计算值,记住不是弧度计算值.(及通过代码把三角函数括号内的值转为相对应的弧度值,sin(30角度)约等于sin(0.523弧度))
VB 三角函数转值问题
方法一;
一个方便可行的方法是,在你的程序里设置一个变量,用来保存每度对应的弧度值:
Dim hd As Double
Dim PI As Double
PI = 3.14159265358979 '存放圆周率
hd = PI / 180 '存放每度对应的弧度值
Print  sin(30*hd)+48-cos(46*hd)+7
方法二:
自己编写函数:例如:
Private Function MySIN(byval JiaoDu As Double) As Double
MySin = Sin(JiaoDu*3.14159265358979/180)
End FuncTion
那你就可以直接用:MySIN(30)来求30度角的正弦值了.