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

         成果图