本帖最后由 想飞的鸟 于 2012-2-21 20:15 编辑
'第一题:把下面的代码用With语句来表示?
Sub 单元格填充()
With Sheets("sheet3")
.Range("A1") = 100
.Range("A3") = 900
.Range("A5") = 100
.Range("A8") = 4500
End With
End Sub
'第二题：根据下面的条件，编写计算个人所得税的自定义函数GeShui
'个人所得税的计算公式
' =(工资-3500)*税率-速算扣除数
Function GeShui(gz) '注gz为引用单元格中的工资数额
Dim SDS As Single
Select Case gz
Case Is <= 1500
SDS = gz * 0.03
Case 1500 To 4500
SDS = (gz - 3500) * 0.1 - 105
Case 4500 To 9000
SDS = (gz - 3500) * 0.2 - 555
Case 9000 To 35000
SDS = (gz - 3500) * 0.25 - 1005
Case 35000 To 55000
SDS = (gz - 3500) * 0.3 - 2755
Case 55000 To 80000
SDS = (gz - 3500) * 0.35 - 5505
Case Is > 80000
SDS = (gz - 3500) * 0.4 - 13505
End Select
End Function
来领作业了,校长辛苦了,我会不断学习并提高
第一题：
Sub 单元格填充()
With Sheets("sheet3")
.Range("a1") = 100
.Range("a3") = 900
.Range("a5") = 100
.Range("a8") = 4500
End With
End Sub
第二题：
Function GeShui(gz As Range)
Dim i As Long
i = gz - 3500
If i >= 0 Then
GeShui = i * 0.03
ElseIf i > 1500 Then
GeShui = i * 0.1 - 105
ElseIf i > 4500 Then
GeShui = i * 0.2 - 555
ElseIf i > 9000 Then
GeShui = i * 0.25 - 1005
ElseIf i > 35000 Then
GeShui = i * 0.3 - 2755
ElseIf i > 55000 Then
GeShui = i * 0.35 - 5505
ElseIf i > 80000 Then
GeShui = i * 0.45 - 13505
End If
End Function
第一题答案：
With Sheets("sheet3")
.Range("A1") = 100
.Range("A3") = 900
.Range("A5") = 100
.Range("A8") = 4500
End With
第二题答案：
Function GeShui(gz)
Dim b As Single
a = gz - 3500
If a <= 1500 Then
b = a * 0.03 - 0
ElseIf a > 1500 And a <= 4500 Then
b = a * 0.1 - 105
ElseIf a > 4500 And a <= 9000 Then
b = a * 0.2 - 555
ElseIf a > 9000 And a <= 35000 Then
b = a * 0.25 - 1005
ElseIf a > 35000 And a <= 55000 Then
b = a * 0.3 - 2755
ElseIf a > 55000 And a <= 80000 Then
b = a * 0.35 - 5505
Else
b = a * 0.45 - 13505
End If
GeShui = b
End Function
（老师，您辛苦了）