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

来源：百度知道 编辑：UC知道 时间：2024/06/06 14:17:22
如:Private Sub Command1_Click()
dim t as single
t=val(text1.text)
Text2.Text = Tan(?)
End Sub
应该在?处怎么写后是做什么转换才能实现如:输入45,显示为1?
我要的是精确的值!
让PI=3.1415926输出的只是大概值

4楼你的是什么意思?

哦
你说的是arctan啊
哈哈
我想到了 不过在VB里没有这个函数!! 这只是数学里的
也就是PI在VB里没办法表示 你说还有什么办法?

没有啊,我说的是VB 啊 它说是函数未定义
是不是格式不对啊?比如不是atan 而是a*的?

哈哈
还是不行啊
我的QQ:258547370 加我吧,在那上面讨论讨论

可以这样来定义 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, 此函数是一样的！

Private Sub Command1_Click()
Dim t As Single
t = Val(Text1.Text)
Text2.Text = CStr(Tan(t))
End Sub

Private Sub Command1_Click()
Dim t As Single
t = Val(Text1.Text)
Text2.Text = "输入为:" & Text1.Text & " 结果为