读书人

前些天有人说起的那个循环显示20-50的

发布时间: 2012-09-03 09:48:39 作者: rapoo

前些天有人说起的那个循环显示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的方法好,通用。

读书人网 >VB

热点推荐