PrivateSubTimer_Timer()DimiAsIntegerText.Text=List.List(i)i=i+Ifi=List.ListCountTheni=EndIfEndSub运行程序，发现有错误