第1个回答 2013-11-21
用rgb()函数来实现,代码如下randomizergb(int(rnd*255),int(rnd*255),int(rnd*255))这就生成了一个随机的颜色,直接用就可以了 ,比如me.backcolor=rgb(int(rnd*255),int(rnd*255),int(rnd*255))
第2个回答 2013-11-21
Private Sub Option11_Click()
a = Int(Rnd * 256)
b = Int(Rnd * 256)
c = Int(Rnd * 256)
Text1.ForeColor = RGB(a, b, c)
End Sub本回答被网友采纳