参考答案

Private Sub Command1_Click()
    If Option1.Item(0) = True Then
        Text2.Text = Format(Sin(Val(Text1.Text) * 3.14159 / 180), "0.000")
    End If
    If Option1.Item(1) = True Then
        Text2.Text = Format(Cos(Val(Text1.Text) * 3.14159 / 180), "0.000")
    End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
    mysub
End Sub