主题：数值循环

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

谢谢

如果规律不变的话，这样更简单一点

经典