VB角度转换程序利用弧度制公式

来源：百度知道编辑：UC知道时间：2024/05/27 02:16:01

急！！！！谢谢！！！

你要的代码是这样的,你自己试试!!!

Private Sub Command1_Click()
Dim num
Const PI = 3.1415926
num = InputBox("请输入一个角度值:", "输入角度值")
MsgBox num * (PI / 180)
End Sub

其实圆周率无需自己指定的，VB 有函数可以计算：pi = 4 * Atn(1)

比如 45 度转换为弧度：

Private Sub Command1_Click()
Print 45 * 4 * Atn(1) / 180
End Sub