VB中,在文本框中输入弧度值,将弧度值换算为角度值的形式,然后输出
来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/19 07:05:12
VB中,在文本框中输入弧度值,将弧度值换算为角度值的形式,然后输出
例如弧度值为1.474919573,1.要求先将弧度值变成十进制数,即84.50666665;2.去掉整数部分84,余0.50666665;3.0.50666665*60=30.399999;4.去掉30,余0.399999;5.0.399999*60=23.99994=24;6.最后将84,30,24拼接成84°30′24〃
例如弧度值为1.474919573,1.要求先将弧度值变成十进制数,即84.50666665;2.去掉整数部分84,余0.50666665;3.0.50666665*60=30.399999;4.去掉30,余0.399999;5.0.399999*60=23.99994=24;6.最后将84,30,24拼接成84°30′24〃
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
换算公式有点乱你自己看看
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
换算公式有点乱你自己看看
1,将弧度为1.474919573的值换算为角度值(度分秒)的形式
VB中知道正弦值求弧度
VB编写一个程序,实现在文本框内输入一个长度值,单位为“厘米”,点击名利按钮转化为X米X分米X厘米的形式
在Excel中添加三角函数时,怎样将弧度转化为角度啊?
VB角度转弧度打比方说 我在text1中输入30°45′23″ 当command1_click触发时,如何在text2中
角度与弧度的换算一弧度等于多少角度
C语言中cos(x),x输入的是弧度,怎么输入角度?
excel中角度化弧度的公式
在几何画板中,x轴是弧度时,点的横坐标的度量值如何用弧度显示
系统自带附件中计算器怎么计算三角函数 弧度 怎么将角度转换为弧度等
角度与弧度的换算公式
角度与弧度的换算公式?