Dim salary As Single, salary1 As Single Dim salary2 As Single, salary3 As Single salary1 = Val(Text3.Text) salary = salary1 - 3500 If Text4.Text = "" Then MsgBox "请输入其他扣款!", vbOKOnly + vbExclamation, "警告" Else salary3 = Val(Text4.Text) '其他扣款 Select Case salary Case Is