谁知道随机函数的用法?
发布网友
发布时间:2022-04-22 01:05
我来回答
共2个回答
热心网友
时间:2023-12-06 04:58
Randomize 是用在 每次调用 Rnd 之前, 起到 随机化 种子的作用, 防止 Rnd 每次产生相同的结果
热心网友
时间:2023-12-06 04:58
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,就可以演示了)