VB随机画圆

来源：百度知道 编辑：UC知道 时间：2024/05/28 18:57:57
随机画圆。在窗体上单击鼠标，画出50个位置随机、半径随机（r≤500）、颜色随机的圆。程序开始运行时，窗体背景色为黑色。每次单击窗体前，要清除窗体中的图形。要求：画图时必须使用循环语句。

Private Sub Form_Click()
Randomize
Cls
Dim MaxX As Long
Dim MaxY As Long
MaxX = Form1.ScaleWidth
MaxY = Form1.ScaleHeight
For I = 1 To 50
x = Int(Rnd * (MaxX - 500))
y = Int(Rnd * (MaxY - 500))
Form1.Circle (x, y), Int(Rnd * 500) + 1, RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))
Next
End Sub

Private Sub Form_Load()
Form1.BackColor = vbBlack
End Sub