在表单上放2个文本框1个command按钮,在按钮中添加如下代码即可。(sin 改成cos 即可得余弦值)Private Sub Command1_Click()If Val(Text1.Text) >= 0 And Val(Text1.Text) <= 360 Then Text2.Text = Sin(Val(Text1.Text))Else MsgBox "请输入0-360的数字!"End IfEnd Sub