meili 发表于 2022-10-27 15:45:57

VB中,在文本框中输入弧度值,将弧度值换算为角度值的形式,然后输出例如弧度值为1.202320233,1.要求先将弧度值变成十进制数,即84.20232023;2.去掉整数部分84,余0.20232023;3.0.20232023*60=30.202399;4.去

<p>问题:VB中,在文本框中输入弧度值,将弧度值换算为角度值的形式,然后输出例如弧度值为1.202320233,1.要求先将弧度值变成十进制数,即84.20232023;2.去掉整数部分84,余0.20232023;3.0.20232023*60=30.202399;4.去
<p>答案:↓↓↓<p class="nav-title mt10" style="border-top:1px solid #ccc;padding-top: 10px;">孙景燕的回答:<div class="content-b">网友采纳  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  换算公式有点乱你自己看看
页: [1]
查看完整版本: VB中,在文本框中输入弧度值,将弧度值换算为角度值的形式,然后输出例如弧度值为1.202320233,1.要求先将弧度值变成十进制数,即84.20232023;2.去掉整数部分84,余0.20232023;3.0.20232023*60=30.202399;4.去