高考问答大型最省油的suv排行榜:谁知道随机函数的用法?
来源：百度文库 编辑：高考问答 时间：2024/04/29 18:34:42
程序设计中Randomize的具体用法,谁知道快说一下.急用.急用.急用.
Randomize 是VB初始化随机数函数 rand的函数
在Form 的load事件中调用一次就可以了
然后用rand生成随机数
比如：
Private Sub Form_Load()
Randomize
DrawWidth = 2
End Sub
Private Function MyPrint(rx As Integer)
x = Form1.Width / 2
y = Form1.Height / 2
r = Form1.Height / 2
Circle (x, y), rx, RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
End Function
Private Sub Timer1_Timer()
r1 = Rnd * r
MyPrint (r1)
End Sub
（要绘图把form的AutoRedraw设置为true，就可以演示了）
Randomize 是用在 每次调用 Rnd 之前， 起到 随机化 种子的作用， 防止 Rnd 每次产生相同的结果