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

帮我解释下代码的意思