7,788
社区成员
发帖
与我相关
我的任务
分享我想做一个输入角度，然后点一下确定就自动算出sin的值，我是个新手，请各位指点
我想做一个输入角度，然后点一下确定就自动算出sin的值，我是个新手，请各位指点
...全文
请发表友善的回复…
发表回复
hjjhjj250 2006-06-09
- 打赏
- 举报
谢谢大家这么热心。我忠心的感谢大家了
yechat 2006-06-09
- 打赏
- 举报
Private Sub Command1_Click()
Dim A%
A%=15
Msgbox Round(Sin(A%/ 360 * (2 * 3.1415926)),4)
End Sub
Dim A%
A%=15
Msgbox Round(Sin(A%/ 360 * (2 * 3.1415926)),4)
End Sub
verywzm 2006-06-09
- 打赏
- 举报
Private Sub Command1_Click()
Text1.Text = Format(Round(Sin(Text1.Text / 360 * (2 * 3.1415926)), 2), "0.00")
End Sub
Text1.Text = Format(Round(Sin(Text1.Text / 360 * (2 * 3.1415926)), 2), "0.00")
End Sub
verywzm 2006-06-09
- 打赏
- 举报
Private Sub Command1_Click()
Text1.Text = Sin(Text1.Text / 360 * (2 * 3.1415926))
End Sub
Text1.Text = Sin(Text1.Text / 360 * (2 * 3.1415926))
End Sub
