Private Sub Command1_Click()
'计算应发工资,Text4
Text4 = Val(Text1) + Val(Text2) - Val(Text3)
'计算个人所得税,Text5
If Val(Text4) <= 1000 Then
Text5 = 0
ElseIf Val(Text4) > 1000 And Val(Text4) <= 3000 Then
Text5 = (Val(Text4) - 1000) * 0.15
ElseIf Val(Text4) > 3000 Then
Text5 = Val(Text4) * 0.2
End If
'计算实发工资,Text6
Text6 = Val(Text4) - Val(Text5)
End Sub
百度Hi我 我帮你做
这样的问题好像不太难呢,但是快到学期末了,求相同的VB程序的人太多了,不知道为何,是老师没教好吧,这样的老师也快下课了。太多的学生都不会,若只是几个同学不会的话,是学生不努力 ,但是多数同学都不会,老师有责任。至少说明学生没来上课老师没有理会。
分好少 20分就给你你做