角度制和弧度制转换表 编程:VisualBasic编一个弧度值转换为角度值的程序?
浏览量:2298
时间:2021-03-17 22:06:42
作者:admin
编程:VisualBasic编一个弧度值转换为角度值的程序?
Private Sub Command1_uu2;Click()
x=Val(text1)/3.1415926*180“将弧度文本转换为实数
X1=int(x)”取出度的整数部分
x=(x-X1)*60“将度的小数部分转换为分数
x2=int(x)”取出分数的整数部分
x=round((x-x2)*60000)/1000“把分数的小数部分转换成秒,四舍五入到千分之一
text2=这个程序不难做。界面上有两个文本控件,分别获取输入数据和显示计算结果。
首先用Val函数将弧度文本转换成实数,再除以3.1415926,再乘以180得到实数阶数。然后将它们分为整数部分和纯小数部分,并将纯小数部分乘以60得到一个分数。使用相同的方法将“Fen”的值分为整数部分和纯小数部分。将纯分数乘以60得到角的第二部分。
最后,将度数和分秒符号添加到这些部分,将它们全部连接起来,最后在输入文本框中显示它们。
在vb语言里编程实现输入–弧度制转化为角度制(度,分,秒)的形式输出,要求秒数保留三?
1. 现在在Excel表格中输入一列角度数据,需要将其转换成弧度。
2. 在单元格B2中输入换算公式:=A2/180*pi()。
3. 单击〖回车〗按钮,生成计算结果,单击〖公式〗按钮,批量生成弧度数据。
4. 如果需要再次将弧度转换为角度,可以在单元格C2中输入:=B2/PI()*180。
5. 单击enter并下拉公式以查看生成的角度数据。
版权声明:本文内容由互联网用户自发贡献,本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。