那位高手帮小弟翻译下 下面的代码
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
2009-09-12 12:06
2009-09-12 14:40