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
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
'那代码实在看不下去!~ 不知道大家怎么看!~