VB工程---百例45--同心圆.

Option Explicit

Private Sub form_Click()
Dim cx, cy, radius, limit
ScaleMode = 3 设置同心圆的单位像素是3
cx = ScaleWidth / 2 圆心的横坐标是窗体宽度的一半
cy = ScaleHeight / 2
If cx > cy Then 如果同心圆的横坐标大于纵坐标
limit = cy 变量limit择区间纵坐标
Else
limit = cx 反之亦然；
End If
For radius = 0 To limit
Circle (cx, cy), radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)同心圆的坐标()色彩调试 R 红色 G绿色 B蓝色
Next radius

End Sub

成果图