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

显示全部楼层 · 2011-6-18 11:21:55

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

千问 · 2011-6-18 11:21:55

窗体再加一个Picture1，示例如下：
PrivateSubCommand1_Click()
Picture1.AutoRedraw=True
DimcX,cYAsLong\'圆心
DimrAsLong\'半径
cX=2000
cY=2000
r=1000
Picture1.Cls\'清除之前的圆
Picture1.Circle(cX,cY),r
Dimi,stAsLong
st=100\'若多次，每次半径变化量

Fori=1ToVal(Text1.Text)
Picture1.Circle(cX,cY),ri*st
Nexti
EndSub

<h4class=\"ask\">追问

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

千问 · 2011-6-18 11:21:55

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