Question

用VB如何编程画出“随机彩色圆”

要会考了
帮忙啊~~~~~

Answer 1

Private Sub Form_Load()
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
Randomize Timer
r = Rnd * 255
g = Rnd * 255
b = Rnd * 255
Form1.FillColor = RGB(r, g, b)
Form1.Circle (Rnd * Form1.Width, Rnd * Form1.Height), Rnd * 1000, RGB(r, g, b)
End Sub
修改一下楼上的程序
拖一个timer到窗体上即可，效果更佳
娱乐而已
当然辛苦分还要给楼上的兄弟呀～

Answer 2

GDI使用他。

Answer 3

一个PictureBox和一个CommandButton

Private Sub Command1_Click()
Randomize Timer
r = Rnd * 255
g = Rnd * 255
b = Rnd * 255
Pic.FillColor = RGB(r, g, b)
Pic.Circle (Rnd * Pic.Width, Rnd * Pic.Height), Rnd * 1000, RGB(r, g, b)
End Sub