<p>这样搞个随机次数也好!</p><p>Sub 抽奖()<br/> Dim x%, i%<br/> x = Int(Rnd() * (500 - 200) + 200)<br/> For i = 1 To x<br/> Calculate<br/> Next i<br/>End Sub</p>