1、首先打开编辑器，这个时候可以先写上循环关键字。
创新互联公司是一家专业提供细河企业网站建设,专注与成都网站设计、成都网站制作、H5高端网站建设、小程序制作等业务。10年已为细河众多企业、政府机构等服务。创新互联专业的建站公司优惠进行中。
2、在界面上可以看到C语言的语句，然后需要使用协商For循环的循环变量。
3、接下来是需要写上初值和终值。
4、此时还可以进行嵌套使用。
5、这个时候就可以写入循环时的操作。
6、记得要有Next结尾完成。
Dim
bStop
As
Boolean
Private
Sub
Command1_Click()
bStop=
False
Do
DoEvents
'暂时释放CPU时间
执行其他代码
If
bStop=Ture
Then
goto
kk
Loop
kk:
End
Sub
Private
Sub
Command2_Click()
bStop=Ture
End
Sub
这里你应该用if else
bleak是可以的，不过是用在循环中，否则报错...
在这里，你只能用return;
你可以把这些判断重新放入一个方法中，
这样return就没问题了，不会跳出整个方法。
定义一个公有布尔值变量 flag，初始值 False。
循环里最开始 If 判断一下 flag，如果为 True 就 Exit Do 跳出循环，否则继续循环。
然后在别的函数控制 flag 的值就可以了。
P.S. 你这段代码是死循环，直到程序占用内存越来越大溢出进而程序崩溃为止……
首先你定义了两个变量x%，y% 其默认值为0
然后执行条件判断满足第一个条件x1000 ,就将x赋值给y 此时x=0，y=0
跳出判断，显示两个0。
我引用他的话， 后面就是你没有给他赋值。 差一点代码。
dim x% ,y%
'可以加一个检测textbox1.text 里只能输入整数的代码。
x=textbox1.text
if...
'就是你后面的啦 不过我也很菜，所以也不知道对不对，对你有 没有用啊。你试试看吧
