VB中,在文本框中输入弧度值,将弧度值换算为角度值的形式,然后输出例如弧度值为1.474919573,1.要求先将弧度值变成十进制数,即84.50666665;2.去掉整数部分84,余0.50666665;3.0.50666665*60=30.399999;4.去
来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/25 07:16:49
VB中,在文本框中输入弧度值,将弧度值换算为角度值的形式,然后输出例如弧度值为1.474919573,1.要求先将弧度值变成十进制数,即84.50666665;2.去掉整数部分84,余0.50666665;3.0.50666665*60=30.399999;4.去
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〃
VB中,在文本框中输入弧度值,将弧度值换算为角度值的形式,然后输出例如弧度值为1.474919573,1.要求先将弧度值变成十进制数,即84.50666665;2.去掉整数部分84,余0.50666665;3.0.50666665*60=30.399999;4.去
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
换算公式有点乱你自己看看