前些天有人说起的那个循环显示20-50的问题，确实有点意思，琢磨了两句代码

原帖具体内容忘记了，大概是要在label1上循环显示20到50再到20，反复循环。20,21...49,50,49...21,20,21...49,50,49.....
这个要用if就很容易实现，不用if就得琢磨琢磨，呵呵
昨天忽然想起这个问题，琢磨了两句

VB code

Private Sub Form_Load()
    Timer1.Interval = 300
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Static i As Long, m As Long
    m = (m + 31 + i) Mod 31
    i = (0 - ((((m + 31 + i) Mod 31) - m) And &H100) \ 255) Or 1
    Label1.Caption = m + 20
End Sub

沙发！
本来想发个1分贴的，不让发