編程:VisualBasic編一個(gè)弧度值轉(zhuǎn)換為角度值的程序？Private Sub Command1_uu2;Click（）x=Val（text1）/3.1415926*180“將弧度文本轉(zhuǎn)換為實(shí)數(shù)X

編程:VisualBasic編一個(gè)弧度值轉(zhuǎn)換為角度值的程序？

Private Sub Command1_uu2;Click（）

x=Val（text1）/3.1415926*180“將弧度文本轉(zhuǎn)換為實(shí)數(shù)

X1=int（x）”取出度的整數(shù)部分

x=（x-X1）*60“將度的小數(shù)部分轉(zhuǎn)換為分?jǐn)?shù)

x2=int（x）”取出分?jǐn)?shù)的整數(shù)部分

x=round（（x-x2）*60000）/1000“把分?jǐn)?shù)的小數(shù)部分轉(zhuǎn)換成秒，四舍五入到千分之一

text2=這個(gè)程序不難做。界面上有兩個(gè)文本控件，分別獲取輸入數(shù)據(jù)和顯示計(jì)算結(jié)果。

首先用Val函數(shù)將弧度文本轉(zhuǎn)換成實(shí)數(shù)，再除以3.1415926，再乘以180得到實(shí)數(shù)階數(shù)。然后將它們分為整數(shù)部分和純小數(shù)部分，并將純小數(shù)部分乘以60得到一個(gè)分?jǐn)?shù)。使用相同的方法將“Fen”的值分為整數(shù)部分和純小數(shù)部分。將純分?jǐn)?shù)乘以60得到角的第二部分。

最后，將度數(shù)和分秒符號(hào)添加到這些部分，將它們?nèi)窟B接起來，最后在輸入文本框中顯示它們。

在vb語言里編程實(shí)現(xiàn)輸入–弧度制轉(zhuǎn)化為角度制(度,分,秒)的形式輸出,要求秒數(shù)保留三？

1. 現(xiàn)在在Excel表格中輸入一列角度數(shù)據(jù)，需要將其轉(zhuǎn)換成弧度。

2. 在單元格B2中輸入換算公式：=A2/180*pi（）。

3. 單擊〖回車〗按鈕，生成計(jì)算結(jié)果，單擊〖公式〗按鈕，批量生成弧度數(shù)據(jù)。

4. 如果需要再次將弧度轉(zhuǎn)換為角度，可以在單元格C2中輸入：=B2/PI（）*180。

5. 單擊enter并下拉公式以查看生成的角度數(shù)據(jù)。