VB 三角函数转值问题在VB中三角函数的单位为弧度,比如说sin(30)算出的结果为30弧度的值.现求一代码.功能为把三角函数括号内的数值转成角度值.比如,我在程序中输入sin(30)+48-cos(46)+7.则自动得

VB 三角函数转值问题在VB中三角函数的单位为弧度,比如说sin(30)算出的结果为30弧度的值.现求一代码.功能为把三角函数括号内的数值转成角度值.比如,我在程序中输入sin(30)+48-cos(46)+7.则自动得
VB 三角函数转值问题
在VB中三角函数的单位为弧度,比如说sin(30)算出的结果为30弧度的值.
现求一代码.功能为把三角函数括号内的数值转成角度值.
比如,我在程序中输入sin(30)+48-cos(46)+7.则自动得出这一算式的角度计算值,记住不是弧度计算值.（及通过代码把三角函数括号内的值转为相对应的弧度值,sin(30角度)约等于sin(0.523弧度)）

VB 三角函数转值问题在VB中三角函数的单位为弧度,比如说sin(30)算出的结果为30弧度的值.现求一代码.功能为把三角函数括号内的数值转成角度值.比如,我在程序中输入sin(30)+48-cos(46)+7.则自动得
方法一；
一个方便可行的方法是,在你的程序里设置一个变量,用来保存每度对应的弧度值：
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度角的正弦值了．