Dim B As Single
B = (Val(Text1.Text)) * 3.14 / 180
MsgBox "指定角度的正弦值為:" & sin1(B)
End Sub
Public Function sin1(a As Single)
sin1 = Sin(a)
End Function
修改後的代碼,
希望對妳有所幫助,
期待被采納。