Public Function san(x As Double) As Doublesan = sin(x * 3.14 / 180)End FunctionPrivate Sub Command1_Click()MsgBox san(InputBox("输入角度"))End Sub
Dim x As Doublex = Sin(30 * 3.14159 / 180)Print "sin30° ="; x
