请 高手帮忙 停不住 咋样停 ？？？？？？？

--------------------编程问答-------------------- DO LOOP 没有做跳出的，当然会死 --------------------编程问答-------------------- 帮忙给 改1下 到33的组合出完 就停，我 不会写 啦 
非常感谢
--------------------编程问答--------------------  Loop Until i=33 --------------------编程问答-------------------- 谢谢！！！
可是一直运行不完？？！！！！！！？？？
咋 才能运行完  啊 
这个程序是不是要运行很长时间  啊 大哥？
请指教啊 ？？
--------------------编程问答-------------------- DO
LOOP 你想要他有啥作用？可以设定随即出现几组？

Dim r as integer 
Do Until (r = 5)
LOOP --------------------编程问答-------------------- DO LOOP 没写退出条件 --------------------编程问答-------------------- 你好 
Dim r as integer  
Do Until (r = 5)
LOOP
放在哪 里 ？请指教！
--------------------编程问答-------------------- 首先是DO循环的问题，你需要它循环几次？？你都没给DO loop一个跳出条件，比如生成10个号码之后结束循环，那么要写成
r=0
do
……
r=r+1
loop while r< 10
你这段代码估计还有问题
小于10加0的话可以用format(q,"00")来实现，不需要判断是否小于0
如果按照你这个方法的话，q=0&q结果应该是还是个位数 --------------------编程问答-------------------- 谢谢  谢谢 
我 已经试过啦 效果很好 
只是出10组  100组  500组也可以
再多  的 话 时间很长很长
有 办法解决这个 问题 吗 
敬请指导

补充：VB ,  基础类