将你的任务一,任务二写成一个sub,再在click中循环调用,如 sub task() 任务一 任务二 end sub private sub command1_click() dim i as integer do while i <100 '循环100次任务一,任务二 call task i =i +1 loop end sub
sub task() '你的任务代码 任务一 任务二 end sub private sub command1_click() '这是click事件不会不知道吧 dim i as integer ‘定义i为整数类型 do while i <100 '循环100次 Do型循环不会不懂吧 call task '调用task函数(就是上边的函数sub task) i =i +1 loop end sub 还用继续解释吗?你什么问题 直接叫人帮你做好了