vb中的sin等三角函数编写问题

2025-04-04 14:11:43
推荐回答(1个)
回答1:

Private
Sub
Command1_Click()
Dim
v
As
Single
s=
Int(Val(Text1))
&
"°"
&
Val(Text1)
*
60
Mod
60
&
"'"
v
=
Val(Text1)
/
180
*
3.1415926
MsgBox
s
&
"
的正弦:
"&Math.Sin(v)
End
Sub
本来我都忘弦度是啥,幸好我还记得180*等3.1415...