为何产生不了随机数

Question

我想利用timer事件每隔一秒产生三个随机数,给一个圆的背景色赋值
可是不行啊
请问原因在哪里啊
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
Shape1.Shape = 3
Shape1.FillColor = RGB(r, g, b)
Label1.Caption = Str$(r) & "," & Str$(g) & "," & Str$(b)
End SubPrivate Sub Timer1_Timer()
r = Int((255 * Rnd) + 0)
g = Int((255 * Rnd) + 0)
b = Int((255 * Rnd) + 0)
End Sub

Answer 1

1.你的变量范围有问题
2.你的给圆的背景色赋值的代码的位置有问题
3.你要改变Shape1的fillstyle属性

Answer 2

randomize 
r = Int((255 * Rnd) + 0)
randomize 
g = Int((255 * Rnd) + 0)
randomize 
b = Int((255 * Rnd) + 0)

Answer 3

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
Shape1.Shape = 3
End SubPrivate Sub Timer1_Timer()
dim r as long,g as long,b as long
r = Int((255 * Rnd) + 0)
g = Int((255 * Rnd) + 0)
b = Int((255 * Rnd) + 0)
Shape1.FillColor = RGB(r, g, b)
Label1.Caption = Str$(r) & "," & Str$(g) & "," & Str$(b)
End Sub

Answer 4

完整代码 好的习惯也是变成的关键
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
Shape1.Shape = 3
End SubPrivate Sub Timer1_Timer()
dim r as long,g as long,b as long
randomize 
r = Int((255 * Rnd) + 0)
randomize 
g = Int((255 * Rnd) + 0)
randomize 
b = Int((255 * Rnd) + 0)
Shape1.FillColor = RGB(r, g, b)
Label1.Caption = Str$(r) & "," & Str$(g) & "," & Str$(b)
End Sub  

Answer 5

你的Sshape的FillStye属性有问题,还有就是要在Timer1_Timer()里面也设置颜色的改变才能显示颜色的改变!