Question

用vb编写一个小程序，是计算机根据输入或选择的值，画出相应数量的同心圆

最简单的语言，谢谢

Answer 1

添加一个按钮及text，text用于输入同心圆数
Private Sub Command1_Click()
Dim a As Integer
a = 1000
For i = 1 To Text1.Text
Me.Circle (Form1.Width / 2, Form1.Height / 2), a
a = a + 1000
Next
End Sub
Private Sub Form_Load()
AutoRedraw = True
End Sub