1.vb编程

Private Sub Command1_Click()

Dim a#, b#, c#, d#

Const pi = 3.141592657

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

Text4.Text = pi * (a + b / 60 + c / 3600) / 180

End Sub

Private Sub Command2_Click()

d = Val(Text4.Text)

Text1.Text = Int(180 * d)

Text2.Text = Int(60 * (180 * d - Int(180 * d)))

Text3.Text = CLng(60 * (180 * d - Int(180 * d)) - Int(60 * (180 * d - Int(180 * d))))

End Sub

我有工程，要的话 772671249，其实直接粘贴到vb中就中控件如图

2.VB中,在文本框中输入弧度值,将弧度值换算为角度值的形式,然后

private sub command1_click()

dim a ,a1,a2,a3

const PI = 3.141592653589793

a=180*text1.text/PI

a1=INT(a)

a2=INT((a-a1)*60)

a3=INT(((a-a1)*60-a2))

msgbox "角度为："&a1&；"°"&a2&；"′"&a3&；"〃"

end sub

private sub form1_load()

command1.caption="转换角度"

text1.text=""

end sub

换算公式有点乱你自己看看

3.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秒）

4.VB 高手请指教：怎么样来做弧度与角度的转换问题

可以这样来定义 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

_______________________

就是atan()

就按：pi = 4 * atan(1.0) 输入

pi 要先定义，Dim pi As Double

+++++++++++++++++

我没QQ

你查一下VB的反三角函数吧！VB只有唯一一个反三角函数就是正切的反三角函数 atan， 你也可到Excel中去看看，excel用的是VBA， 此函数是一样的！