Private Sub Command1_Click()
Text1.FontSize = 25
Randomize
For i = 1 To 200
For j = 1 To 180000
x = x + 1
x = x - 1
Next j
Text1.Text = Int(Rnd * 100 + 1)
Text1.Refresh
Next i


End Sub

问题?呢

帮我解释下代码的意思

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Sub Command1_Click()
    Text1.FontSize = 25 '字符尺寸
    Randomize '初始化随机数
    For i = 1 To 200 '循环
        Sleep 10 '等待 10ms
        Text1.Text = Int(Rnd * 100 + 1) 'rnd 得到随机数
        'Text1.Refresh
        DoEvents '响应信息
    Next i
End Sub
'那代码实在看不下去!~ 不知道大家怎么看!~