Question

VB 文本显示进度条当前百分比

以下是计算圆周率π的近似值的代码文本框Text4为什么不可以同步显示计算进度百分比 只是到了100%时才会显示

Private Sub Command1_Click()
Dim i As Long, pr As Double, n As Long
ProgressBar1.Min = 1
ProgressBar1.Max = Val(Text2.Text)
ProgressBar1.Value = 1
pr = 2
i = Val(Text2.Text)
For n = 1 To i
pr = pr * (((2 * n) / (2 * n - 1)) * ((2 * n) / (2 * n + 1)))
ProgressBar1.Value = n
Text4.Text = Int(n / i * 100) & "%"
Next n
Text1 = pr
End Sub
Private Sub Command1_Click()
Dim i As Long, pr As Double, n As Long
ProgressBar1.Min = 1
ProgressBar1.Max = Val(Text2.Text)
ProgressBar1.Value = 1
pr = 2
i = Val(Text2.Text)
For n = 1 To i
DoEvents
pr = pr * (((2 * n) / (2 * n - 1)) * ((2 * n) / (2 * n + 1)))
ProgressBar1.Value = n
Text4.Text = Int(n / i * 100) & "%"
Next n
Text1 = pr
End Sub
改成这样在for 中位置加doevents 可以详细说明一下原因吗？doevents会延迟程序运行吗？这样加是否计算速度慢了？

Answer 1

在循环里要增加一条闲置语句。
不然，程序一直忙着循环，而来不及向显卡发送数据。

回答补充：
1、在for……next之间任何位置都可以，当然，你的也可以。
2、原因就是在每次执行循环到这里留出空闲响应其他任务，在这里就表现为刷新显示。
3、速度应该略有影响，但不会太大。因为刷新占用cpu很少，使用完立刻就会归还cpu的使用权。当然，如果同时运行的其他进程较多，影响就会较大，因为每循环一次，就会出让一次cpu的使用权。

Answer 2

Text4.Text = Int(n / i * 100) & "%"
后面加一句
doevents

实际上任何大量循环里面都应加这句话，否则整个程序就象死掉一样，想关都关不掉（开发环境下可以按Ctrl + break暂停，编译成exe就不行了）

如果运行太快可能也看不出效果，可以用个空循环延时

Answer 3

你在for 前任一位置加一句：
doevents 试试
即让程序交出部分控制权给windows去处理其它的事情.如重画窗口

Answer 4

可以同步啊。你在text2输入100000 数值越大 就越明显