......//其他程序段Dim code_timeDim h1,m1,s1Dim h2,m2,s2h1=Hour(time):m1=Minute(time):s1=Second(time)
//利用VBS函数获得当前系统的时,分,秒 并各自保存到变量中..........//在这里运行n次 你的程序h2=Hour(time):m2=Minute(time):s2=Second(time)h2=h2-h1m2=m2-m1s2=s2-s1 code_time= "运行n次需要时间"& h &"小时"& m &"分"& s &"秒"
//把小时,分,秒连接起来 并保存到 code_time变量中//最后弹出个窗口 显示当前的系统时间(变量 code_time)
MessageBox code_time......//其他程序段
//这样就可以得到,运行一次的时间 t1
//然后1小时 除以 t1, 就是那部分(需要执行一小时的) 运行的次数n