斜率算角度

[轉貼]
1.三角函數是用「角度量」計算角的大小。VB6 是以「弧度量」計算角的大小。
2.「角度」與「弧度」的轉換方法為：角度乘以 pi/180 為弧度；弧度除以 pi/180 是角度。
3.VB 可用 Atn(1)*4 得到一個 Double 型別的 PI 值。

Private Sub Command1_Click()
'-----建立一個 30度、60度、90度的直角三角形-----
dy = Sqr(3) / 2 '--- 二分之根號３
dx = 0.5 '--- ０．５
pi = 4 * Atn(1) '--- 圓周率
斜率 = dy / dx '--- 用 dt_Y 除以 dt_X 求斜率
角度 = Atn(斜率) / (pi / 180)
斜率1 = Tan(角度 * (pi / 180))
Debug.Print "用 dt_Y 除以 dt_X 求斜率 = "; 斜率
Debug.Print "用Ａｔｎ函數從斜率求角度 = "; 角度
Debug.Print "用Ｔａｎ函數從角度求斜率 = "; 斜率1
End Sub