VBA第6课作业题

bbhiox

来领作业了,校长辛苦了,我会不断学习并提高

wangfengren

第一题：
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

huzhiguo

第一题答案：
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
（老师，您辛苦了）