在Mathematica进行计算时，经常需要用到循环语句，当循环次数比较多时，往往耗时很长，但是我们只能看到Mathematica正在计算，并不知道执行到哪一步了，为了做到“心中有数”，可以设置一个计算进度的监控。

ProgressIndicator[Dynamic[n], {100, 140}]
Table[(n = k; FactorInteger[2^k - 1]), {k, 100, 140}];

第一个就是在笔记本中输出一个进度条，当n从100到140变化时，进度条逐渐变长，执行完成后，进度条被填满。进度条的语句需要放在执行带“n”的语句之前。

效果如下：

是不是很直观。