Dim Day,Js As Integer
Day = e.Sender.Value
If Day > 0 Then
If Day >= 10 And Day < 20 Then
Js = 1
Else If Day >= 20 And Day < 30 Then
Js = 3
Else If Day >= 30 And Day < 40 Then
Js = 5
Else If Day >= 40 And Day < 50 Then
Js = 7
Else If Day >= 50 And Day < 60 Then
Js = 9
Else If Day >= 60 And Day < 70 Then
Js = 11
Else If Day >= 70 And Day < 80 Then
Js = 13
Else If Day >= 80 And Day < 90 Then
Js = 15
Else If Day >= 90 And Day < 100 Then
Js = 17
Else If Day >= 100 And Day < 110 Then
Js = 19
End If
End If
怎样用循环简化,请指教,谢谢!