VB编程:利用circle方法绘随机产生颜色各异的同心圆,最大圆半径不超过1000

Dim x As Single,y As Single,r As Integer
Private Sub Command1_Click()
x = Form1.ScaleWidth / 2
y = Form1.ScaleHeight / 2
Randomize
r = Int(Rnd * 1000) + 1
Circle (x,y),r,QBColor(Int((15 * Rnd) + 1))
End Su