Dim Progress As Integer
Dim i As Integer
Form3.ProgressBar1.Min = 0
Form3.ProgressBar1.Max = river.NN
For i = 1 To river.NN
Progress = i \ river.NN
Form3.ProgressBar1.Value = Progress
Next

Form3.ProgressBar1.Max = river.NN    '最大值
Progress = i \ river.NN    '比例，最大为1
Form3.ProgressBar1.Value = Progress   '进度条值，最大为1，而满格为 NN ，所以进度条走不到终点。

感谢！