PrivateSubCommand1_Click()DimvAsSingles=Int(Val(Text1))&"°"&Val(Text1)*60Mod60&"'"v=Val(Text1)/180*3.1415926MsgBoxs&"的正弦:"&Math.Sin(v)EndSub本来我都忘弦度是啥,幸好我还记得180*等3.1415...