Question

求VB中让显示的字体颜色自动随时间变化代码

a = Rnd(a * 255)
b = Rnd(b * 255)
c = Rnd(c * 255)
Label1.ForeColor = RGB(a, b, c)
Label2.ForeColor = RGB(a, b, c)
Label3.ForeColor = RGB(a, b, c)
Label4.ForeColor = RGB(a, b, c)

这是我写的。但是总是没用
我在Label中写了四句话。应该是rnd函数语法的范围还要错误
求助啊

Answer 1

Private Sub Command1_Click()
a = Int (Rnd * 255)
b = Int (Rnd * 255)
c = Int (Rnd * 255)
Label1.ForeColor = RGB(a, b, c)
Label2.ForeColor = RGB(a, b, c)
Label3.ForeColor = RGB(a, b, c)
Label4.ForeColor = RGB(a, b, c)
End Sub
应该能看懂吧

Answer 2

看看是不是数据类型的问题。