1 Dim vl As Double 2 Dim pb As RibbonMenu.ProgressBar 3 pb = RibbonTabs("实战演练二").Groups("任务十一").Items("进度条1") 4 For i As Integer = 1 To 10000 5 vl = i / 3 6 If i Mod 100 = 0 Then 7 pb.Value = i / 10000 * 100 8 Application.DoEvents 9 End If 10 Next 11