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),RGB(Rnd * 255,Rnd * 255,Rnd * 255)同心圆的坐标()色彩调试 R 红色 G绿色 B蓝色
Next radius

End Sub

成果图

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!