统计VBA学习小组正式组第六课（第七讲）的积分帖之作业上交贴（第8周）

vbamaster · 发表于 2012-2-21 17:48

第一题：
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) '注gz为引用单元格中的工资数额
Dim lShuoDeE As Long
lShuoDeE = gz - 3500
If lShuoDeE <= 0 Then
      GeShui = 0
ElseIf lShuoDeE <= 1500 Then
      GeShui = lShuoDeE * 0.03
ElseIf lShuoDeE > 1500 And lShuoDeE <= 4500 Then
      GeShui = lShuoDeE * 0.1 - 105
ElseIf lShuoDeE > 4500 And lShuoDeE <= 9000 Then
      GeShui = lShuoDeE * 0.2 - 555
ElseIf lShuoDeE > 9000 And lShuoDeE <= 35000 Then
      GeShui = lShuoDeE * 0.25 - 1005
ElseIf lShuoDeE > 35000 And lShuoDeE <= 55000 Then
      GeShui = lShuoDeE * 0.3 - 2755
ElseIf lShuoDeE > 55000 And lShuoDeE <= 80000 Then
      GeShui = lShuoDeE * 0.35 - 5505
ElseIf lShuoDeE > 80000 Then
      GeShui = lShuoDeE * 0.45 - 13505
End If
End Function

修改后的作业，兰版辛苦了。
D05:vbamaster

QQ七七 · 发表于 2012-2-24 09:56

Sub 第6课作业()
With Sheets("sheet3")
.Range("A1") = 100
.Range("A3") = 900
.Range("A5") = 100
.Range("A8") = 4500
End With
End Sub
第二题作业
Function GeShui(gz) '注gz为引用单元格中的工资数额
Dim y As Integer 'y为全月应纳税所得额
y = gz - 3500
Select Case y
Case Is <= 0
GeShui = 0
Case Is <= 1500
GeShui = y * 0.03
Case Is <= 4500
GeShui = y * 10 - 105
Case Is <= 9000
GeShui = y * 0.2 - 555
Case Is <= 35000
GeShui = y * 0.25 - 1005
Case Is <= 55000
GeShui = y * 0.3 - 2755
Case Is <= 80000
GeShui = y * 0.35 - 5505
Case Is > 80000
GeShui = y * 0.45 - 13505
End Select
End Function

复制代码

tiankongwuy · 发表于 2012-2-25 16:09

G12:tiankongwuy

VBA第7课作业题.rar (9.09 KB, 下载次数: 0)

		自动登录	找回密码
密码			注册

[通知] 统计VBA学习小组正式组第六课（第七讲）的积分帖之作业上交贴（第8周）