A将If语句的条件修改为i<=List.ListCountB将Interval属性值改为C将语句DimiAsInteger修改为StaticiAsIntegerD将语句Text.Text=List.List(i)与i=i+交换位置