15问答网 > 这个正弦的可以运行，COS的却是空白，为什么呢？？？？各位高手帮我看看哪里错了，紧急啊！谢谢啦

这个正弦的可以运行，COS的却是空白，为什么呢？？？？各位高手帮我看看哪里错了，紧急啊！谢谢啦

2025-01-19 16:22:02

推荐回答（2个）

回答1：

少了else，现在相当于Option1(0)和Option1(1)都成立才执行cos
Private Sub Command1_Click()
If Text1.Text <> " " Then
If Option1(0).Value = True Then
Text2.Text = Format(CStr(Sin(CInt(Text1.Text) * 3.14159 / 180)), "0.000")
else
If Option1(1).Value = True Then
Text2.Text = Format(CStr(Cos(CInt(Text1.Text) * 3.14159 / 180)), "0.000")
End If
End If
End If
End Sub

回答2：

咱不懂啊~~爱莫能助
不过像是我上大学时候的计算机编程一类的吧