Private Sub Command1_Click()
Dim feng, yu, mi, ni
feng = 0
For yu = 1 To 4
For mi = 0 To 100000
DoEvents '防假死
Next mi
Randomize
'产生随机数语句：rnd() *(上限－下限+1）+下限
Text2.Text = Int(Rnd() * (129 - 100 + 1)) + 100
Next yu
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024