写一段VBA代码：输入性别、年龄、缴费期间保险费输出到对应的单元格

Sub InsuranceFee()

Dim gender As String Dim age As Integer Dim period As Integer Dim fee As Double

gender = InputBox("请输入性别（男/女）：") age = InputBox("请输入年龄：") period = InputBox("请输入缴费期间（年）：") fee = InputBox("请输入保险费：")

If gender = "男" Then If age < 18 Then Range("A1").Value = "保费不符合标准" ElseIf age >= 18 And age < 40 Then Range("A1").Value = fee * 0.03 * period ElseIf age >= 40 And age < 60 Then Range("A1").Value = fee * 0.05 * period Else Range("A1").Value = "保费不符合标准" End If ElseIf gender = "女" Then If age < 18 Then Range("A1").Value = "保费不符合标准" ElseIf age >= 18 And age < 40 Then Range("A1").Value = fee * 0.025 * period ElseIf age >= 40 And age < 60 Then Range("A1").Value = fee * 0.04 * period Else Range("A1").Value = "保费不符合标准" End If Else Range("A1").Value = "性别输入有误" End If

End Su