Option Explicit

Private Sub Command1_Click()
Dim gerensds As Single ' 个人所得税
Dim fd As Single

Dim renshu As Long '人数
gerensds = Text1.Text


If gerensds <= 45 Then '所得税小于45元时的处理
Text4.Text = 0.03
Text2.Text = 1
Text3.Text = gerensds / 0.03
  End If
If gerensds > 45 Then
If Text2.Text <> "" Then

GoTo veryend
End If
If Text2.Text = "" Then
MsgBox "本次没有输入人数，则默认人数为10人"
Text2.Text = 10
End If
veryend:
Text4.Text = 0.1
renshu = Text2.Text

Text3.Text = Round((((gerensds / renshu + 105) / 0.1 + 3500) * renshu) - (renshu * 3500), 2)
End If


End Sub