用VB编程画圆

就是在文本框中写多少，就画就几个同心圆

比如写5就是5个同心圆，写10就是10个同心圆

Private Sub Command1_Click()

Dim i As Integer
Dim j As Integer

j = CInt(Me.Text1.Text)

For i = 1 To j
Form1.Circle (2400, 2000), 800 + i * 100
Next
End Sub

使用Circle 方法

其中(2400, 2000) 是圆心坐标，后面部分是半径

添加以个TEXT2,一个按钮，复制一下代码即可

Private Sub Command2_Click() Dim i As Integer 'i = Val(Text2.Text) For i = 1 To Val(Text2.Text) Form3.Picture1.Circle (120, 260), i * 10, vbRed

Next 'Form3.Picture1.Circle (60, 60), 40, vbRed '画一个圆心(60,60)半径40的红色的圆（默认空心） ' ' 'Form3.Picture1.FillStyle = 0 '设定填充模式为实心 'Form3.Picture1.FillColor = vbBlue '设定填充色蓝色 'Form3.Picture1.Circle (190, 60), 40, vbRed '下来画出来的就是填充了实心蓝色的圆了 ' ' 'Form3.Picture1.DrawWidth = 3 '设定边框宽度为3 'Form3.Picture1.Circle (60, 190), 40, vbRed '这次绘制出来的圆边框粗细为3 ' 'Form3.Picture1.DrawStyle = 5 '设定边框不可见 'Form3.Picture1.FillColor = vbRed '设定填充色红色 'Form3.Picture1.Circle (190, 190), 40 '这次绘制出来一个无边框、填充颜色是红色的圆 Form3.Picture1.Refresh

End Sub