文件名称：VB计算员工工资代码
文件大小：17KB
文件格式：FRM
更新时间：2017-12-29 16:34:53
VB
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 <= 0 salary2 = 0 Case 0 To 1500 salary2 = salary * 0.03 Case 1500 To 4500 salary2 = salary * 0.1 - 105 Case 4500 To 9000 salary2 = salary * 0.2 - 555 Case 9000 To 35000 salary2 = salary * 0.25 - 1005