谁知道用VB编角度转换成弧度. VB中怎样来做弧度与角度的转换

Option Explicit
Const PI = 3.1415926
Dim an As Single

Private Sub Command1_Click()
an = Val(Text1.Text) '读取角度
an = an * PI / 180
Text1.Text = Str(an)
End Sub

或者
Private Sub Command1_Click()
an = Val(Text1.Text) '读取角度
an = an / 180
Text1.Text = Str(an) + "π"
End Sub
直接以π的形式输出

可以这样来定义 Pi 值
Dim pi As Double
pi=4*atan(1.0)
__________________________

Private Sub Command1_Click()
Dim pi As Double
dim t as single
pi=4*atan(1.0)
t=val(text1.text)
Text2.Text = Str(Tan(t*pi/180))
End Sub
__________________________
可以这样来定义 Pi 值
Dim pi As Double
pi=4*atan(1.0)
这是定义π值的方法，因为aretan(1.0)=45°即π/4
4 * aretan(1.0) = π
用VB表示就是：pi=4*atan(1.0)
______________________
VB里有atan函数，就是arctan

以前学过角度与弧度转换关系，但现在忘记了。
你把转换关系写明一下。

VB中角度化为弧度的代码？~

const PI=3.14159 '定义常数π，这里取5位小数，可以根据需要修改
Dim an as single，result as signle


an=30.303312345 '获得输入值
result = an * PI/180 ‘按原值计算弧度值，保留所有的小数
Text1.Text = Format(result,"0.000") '输出转换后的值，根据需要设置小数位数，这里是保留3位

PS:你的计算有误，30.30度应该是30度18分（1度=60秒）

这个其实更多的是数学常识。1角度=π/180弧度。
圆周上某一点（x,y）与x轴正方向的夹角假定为m°，圆的半径假定为r，则
Const pi As Single = 3.141593
x = r * Cos(m * pi / 180)
y = r * Sin(m * pi / 180)

---

#翟烁窦# vb中sin60°转化为弧度的代码 -
(18723967582)： 360°是2π,那么60°就是360分之60再乘以2乘以π,即π/3 Const pi As Double = 3.1415926 Print Sin(pi / 3)

#翟烁窦# VB中怎样来做弧度与角度的转换 -
(18723967582)： 这个其实更多的是数学常识.1角度=π/180弧度.圆周上某一点(x,y)与x轴正方向的夹角假定为m°,圆的半径假定为r,则Const pi As Single = 3.141593x = r * Cos(m * pi / 180)y = r * Sin(m * pi / 180)

#翟烁窦# 用vb编写一个角度弧度正余弦(切)相加减的计算器 -
(18723967582)： vB中计算角度的sin cos之类的都是用弧度计算的··· const PI as single = 3.1415926 弧度a和角度b的转换关系是 b=a/PI*180 你要的加减运算就是带入就可以的···另外VB要在没有VB环境的情况下能够运行 要弄安装包的····不过如果你就是这个运算的话 没有什么大问题的···不懂hi我···

#翟烁窦# VB中的三角函数怎么表示 -
(18723967582)： vb中三角函数要求的角度的单位是弧度,不是度,因此你输入的90代表的是90弧度而不是90度 Sin 函数 返回一 Double,指定参数的 sine(正弦)值. 语法 Sin(number) 必要的 number 参数是 Double 或任何有效的数值表达式,表示一个以弧度为单位的角. 说明 Sin 函数取一角度为参数值,并返回角的对边长度除以斜边长度的比值. 结果的取值范围在 -1 到 1 之间. 为了将角度转换为弧度,请将角度乘以 pi /180.为了将弧度转换为角度,请将弧度乘以 180/pi.COS和TAN一样使用

#翟烁窦# 在vb语言里编程实现输入–弧度制转化为角度制(度,分,秒)的形式输出,要求秒数保留三 -
(18723967582)： 做这个程序并不难的.在界面中制作两个文本控件,分别用来获取输入数据和显示计算结果. 首先把取得的弧度文本用val函数转换为实数,然后再除以3.1415926,乘以180,就得到实数的度数.然后把它们分离成为整数部分和纯小数部分,纯小数部分乘以60就得到了度数的几分.用同样的方法把“分”的数值分离为整数部分和纯小数部分.纯小数部分再乘以60就得到角度的秒数部分. 最后把这些部分加上度数和分数秒数的符号,全部都连接起来,最后显示在输入文本框中就可以了.

#翟烁窦# VB编写三角函数的程序 -
(18723967582)： 1. c6=a5+d6 改成: c6=val(a5) + val(d6) ,因为a5和d6都是文本型,+号相当于把这两个字符串连接起来,而不是进行运算.要用val函数把a5和d6转成数值型再加,才是加法运算.2. c8=fix(sqr(d6*d6+d7*d7)) ,fix就是vb内置的取整函数.3. b1=atn(a2/a5) ,atn就是vb内置的反正切函数.4. b4=sqr(b2*b2+b3*b3+2*b2*b3*cos(b1)) ,sqr就是vb内置的开平方函数.

#翟烁窦# VB编写角度转换程序转换为角度 -
(18723967582)： Private Sub Command1_Click() x = Val(Text1.Text) Picture1.Print x * 180 / 3.1415926 End Sub

#翟烁窦# vb中的三角函数 -
(18723967582)： 角度全部用弧度制表示.反正弦Atn(角/Sqr(-角*角+1))反余弦Atn(-角/Sqr(-角*角+1))+2*Atn(1)反正切直接用内置函数Atn (弧度度数)把角度转成弧度弧度=角度* 1.74532925199433E-02

#翟烁窦# VB中,在文本框中输入弧度值,将弧度值换算为角度值的形式,然后输出 -
(18723967582)： 很简单啊,可以给一个Commend按钮,点击以后就把弧度值换成角度值就好了. 我给你换算的代码C++计算的,改下就好了: int du,fen; //度、分 HD为弧度值 double miao; //秒 du=int(HD*180/PI); fen=int((HD*180/PI-du)*60.0); miao=HD*Ru-du*3600.0-fen*60.0; jj=(du*10000+fen*100+miao); //角度值 形式为:度度分分秒秒.00

#翟烁窦# 用Vbscript写的一个角度转换为弧度的函数那点错了 -
(18723967582)： 你定义PI了么?vbscript脚本里可没有pi常量哦,jscript里才有Math.PI<script language=＂vbscript＂> function changehd(b) changehd=0.017453292519943294*b 'pi/180=0.017453292519943294 end function dim d d=90 document.write changehd(d) </script>