Question

.在VB编辑环境中建立了一个窗体Form1，并在窗体左上角放置了一个命令按钮“绘制同心圆”，假定命令按钮的

Answer 1

Private Sub Command1_Click()
Show
Me.AutoRedraw = True

Dim CX, CY, Radius, Limit ' Declare variable.
ScaleMode = 3 ' 以像素为单位。
CX = ScaleWidth / 2 ' X 位置。
CY = ScaleHeight / 2 ' Y 位置。
If CX > CY Then Limit = CY Else Limit = CX
For Radius = 0 To Limit ' 半径。
Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Next Radius

End Sub