Question

vb6中，一个TextBox，一个commandbutton,想要执行一段代码，在TextBox中输入多少，他就执行多少次。

而且第二次要比第一次大一点或小一点，（如我画一个圆，为10mm，我在Text中输入2次，就会多出一个10.1和10.2的圆），代码应该怎么写，最好代码都有注释。如果能帮忙就会加分，谢谢！

Answer 1

窗体再加一个Picture1，示例如下：
Private Sub Command1_Click()
Picture1.AutoRedraw = True
Dim cX, cY As Long '圆心
Dim r As Long '半径
cX = 2000
cY = 2000
r = 1000
Picture1.Cls '清除之前的圆
Picture1.Circle (cX, cY), r
Dim i, st As Long
st = 100 '若多次，每次半径变化量

For i = 1 To Val(Text1.Text)
Picture1.Circle (cX, cY), r + i * st
Next i
End Sub

追问

还有一个问题没有回答，就是一段代码我要执行多少次，把数输入TEXT中，按执行他就从复走多少次。

追答

上面的For i = 1 To Val(Text1.Text)循环就是根据输入的重复次数来的，只不过每次执行画的圆都是同心圆