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

前些天有人说起的那个循环显示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 = TrueEnd SubPrivate 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 + 20End Sub

[解决办法]
楼主真能折腾。。佩服
[解决办法]
再次看了下这个题。
我那解决方法太有局限性了。严重依赖了对bool值的解释（true=-1,false=0)
如果是遇到像c#这样不能用-1来表示true,0表示false的语言，就无能为力了。

还是LZ的方法好，通用。

查看更多 下一篇