如何在vb中输出几个特殊角的三角函数值
展开全部
Private Sub Form_Load()
Dim pi As Double
pi = 3.1415926
Show
Print "Sin(30)=" & Format(Sin(30 * pi / 180), "#.#####")
Print "Sin(45)=" & Format(Sin(45 * pi / 180), "#.#####")
Print "Sin(60)=" & Format(Sin(60 * pi / 180), "#.#####")
Print "Cos(30)=" & Format(Cos(30 * pi / 180), "#.#####")
Print "Cos(45)=" & Format(Cos(45 * pi / 180), "#.#####")
Print "Cos(60)=" & Format(Cos(60 * pi / 180), "#.#####")
Print "Tan(30)=" & Format(Tan(30 * pi / 180), "#.#####")
Print "Tan(45)=" & Format(Tan(45 * pi / 180), "#.#####")
Print "Tan(60)=" & Format(Tan(60 * pi / 180), "#.#####")
Print "cTan(30)=" & Format(Atn(30 * pi / 180), "#.#####")
Print "cTan(45)=" & Format(Atn(45 * pi / 180), "#.#####")
Print "cTan(60)=" & Format(Atn(60 * pi / 180), "#.#####")
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
