vb6 请问如何在label中让数字叠加显示?

比如一个循环0到10000
一个command控制,单击后让label显示从0到10000

Private Sub Command_Click()
Dim i As Integer
for i = 0 to 10000
Label1.Caption = i
next
End Sub

为什么label只显示最后的结果?

你的代码只能显示最后的结果，你想慢慢的一个一个显示出来，能让别人感觉到数字的跳动？试一下下面的代码吧？
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 10000
Label1.Caption = i
DoEvents
Sleep 300
Next
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/f8pvm77vq.html