7,763
社区成员
发帖
与我相关
我的任务
分享
For k1 = ka1 To ka2 Step sk1
DoEvents
ka = k1
For k2 = kb1 To kb2 Step sk2
DoEvents
kb = k2
For h1 = ha1 To ha2 Step sh1
DoEvents
ha = h1
For h2 = hb1 To hb2 Step sh2
DoEvents
hb = h2
For T = 30 To 70 Step 10
DO WHILE
CALL SUB
NEXT T
NEXT h2
next h1
next k2
next k1
18楼,目前程序中已应用DOEVENTS函数,与你的稍有差别。但想想加DOEVENTS函数已否似乎不影响ka,kb,ha,hb取值的,DOEVENTS函数的功用到底体现在什么地方有点迷糊。另外,ME项是否仅是为了考察程序是否仍在运行而设的,那还是有其他什么功能。For k1 = ka1 To ka2 Step sk1
ka = k1
For k2 = kb1 To kb2 Step sk2
kb = k2
For h1 = ha1 To ha2 Step sh1
ha = h1
For h2 = hb1 To hb2 Step sh2
hb = h2
me.caption="k1,k2,h1,h2="+CStr(k1)+","++CStr(k2)+","++CStr(h1)+","++CStr(h2)
me.refresh
doevents
For T= 30 To 70 Step 10
Do While
程序段(主要是call sub过程)
Loop
next T
next h2
next h1
next k2
next k1