求高手解答 循环,该怎么解决

求高手解答 循环
首先在窗体上放一个BUTTON控件
  在BUTTON控件内 写下如下代码
  Dim A As Integer() = {8000, 2000, 4000, 500, 6000, 3000, 1000} /定义的一维数组
  dim b as integer
  d2210_set_profile(0, 800, 1000, 0.4, 0.4) 控制卡的函数，设定 马达运动的速度和加减速时间 
  d2210_t_pmove(0, A(b), 1) 控制卡的函数，设定运行的距离和运动模式
  d2210_check_done(0) = 0或1 控制卡的函数，如果等于0说明在运行状态，不能给A(b)赋值。如果等于1说明是在停止状态，可以给A(b)赋值。
  我是想d2210_t_pmove(0, A(b), 1)函数连续运行， A(b）的值分别为{8000, 2000, 4000, 500, 6000, 3000, 1000}
  希望各位帮我用循环写个小程序。
  谢谢各位了

[解决办法]

VB.NET code

 Dim A As Integer() = {8000, 2000, 4000, 500, 6000, 3000, 1000} '/定义的一维数组  dim b as integer=0  d2210_set_profile(0, 800, 1000, 0.4, 0.4) '控制卡的函数，设定 马达运动的速度和加减速时间     do while b<A.lengthif  d2210_check_done(0) = 1 then d2210_t_pmove(0, A(b), 1)b+=1end ifloop