我的程序总体上有3个循环组成，我如何使用一个进度条来显示程序运行进度呢？？

Question

我的程序总体上有3个循环组成，我如何使用一个进度条来显示程序运行进度呢？？

Answer 1

放在折中的位置。如果ProgressBarx.Value=?这句被运行太多次将严重影响程序性能。举个例子：
For X=1 To 3
  For Y=1 To 100
    For Z=1 To 10000
      '位置1
    Next Z
    '位置2
  Next Y
  '位置3
Next X放在位置1处，设置进度条的语句要被运行10000*100*3次，严重影响性能。放在位置3处，进度条前进的密度太小，视觉上不好（咔咔咔三下子就到终点，视觉上变化不平滑）。相对折中的选择是位置2，执行次数100*3=300次，前进密度1/300，也差不多。

Answer 2

while 条件1
'语句组1
wendwhile 条件2
'语句组2
wendwhile 条件3
'语句组3
wend
若是这样的程序，如何用一个进度条显示程序进度？

Answer 3

“分割”进度条：（这里只能讨论For比较简单，While不确定因素太多）
ProgressBarx.Max=1000
For X=1 To 500
ProgressBarx.Value=X
Next XFor Y=1 To 200
ProgressBarx.Value=500+Y
Next YFor Z=1 To 300
ProgressBarx.Value=700+Z
Next Z