用VB编程画同心圆

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

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

还有就是如果可以的话可不可以解释一下给我听

我只会画一个同心圆

For i = 100 To 2000 step 100

r=i

Ctrcle(2000,25000),500

Next i

可以看这个页面， http://wenwen.soso.com/z/q164609853.htm

问题和你的基本上一样，已经解决

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) 是圆心坐标，后面部分是半径

其实你的方法就差一个部分，就是把圆的半径按比例扩大就行了

Option Explicit Private Sub Command1_Click() Dim i As Integer Dim N As Long Form1.Cls N = Form1.ScaleWidth / 20 For i = 1 To Val(Text1) Circle (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2), i * N Next End Sub Private Sub Form_Load() Text1 = 5 End Sub

Cls

S1 = 100 S2 = S1 * Val(Text1.Text)

For i = S1 To S2 Step S1

r = i

Me.Circle (4000, 2000), r

Next i

下边是个实例，放一个TEXT，一个按钮，TEXT里输入几个就画几个

Private Sub Command2_Click() Dim i As Integer For i = 1 To Val(Text2.Text) Form3.Picture1.Circle (120, 260), i * 10, vbRed '在左边为120.260的位置为圆心，i*10的数量为半径画个圆 Next Form3.Picture1.Refresh End Sub