VB中,在文本框中输入弧度值,将弧度值换算为角度值的形式,然-查字典问答网
分类选择

来自马茜的问题

  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〃

1回答
2020-12-28 02:47
我要回答
请先登录
孙景燕

  privatesubcommand1_click()

  dima,a1,a2,a3

  constPI=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&"〃"

  endsub

  privatesubform1_load()

  command1.caption="转换角度"

  text1.text=""

  endsub

  换算公式有点乱你自己看看

2020-12-28 02:49:37

最新问答

推荐文章

猜你喜欢

附近的人在看

推荐阅读

拓展阅读

  • 大家都在看
  • 小编推荐
  • 猜你喜欢
  •