程序显示的人名滚动很快，怎么显示的慢一点呢？

显示全部楼层 · 2013-2-19 14:50:40

加延迟。代码开始处添加一句声明：Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long) '声明Sub start()On Error Resume NextIf List1.ListCount = 0 Then Exit SubIf go = False Then Exit SubDo While go = Truep = Int((0 + List1.ListCount) * Rnd)Text1.Text = List1.List(p)Sleep 20'这里延迟20毫秒DoEventsLoopEnd Su...